Příspěvky uživatele


< návrat zpět

Funguje super. Děkuji za pomoc.

Dobrý den,
prosím o radu ohledně vzorce pro přiřazení stejné hodnoty nebo nejbližší vyšší z druhé tabulky na základě podmínky stejné položky viz přiložený soubor. Z modrého sloupce (G) přiřadit stejnou nebo nejbližší vyšší hodnotu do každého řádku sloupce (C) dle hodnoty ve sloupci (B). Děkuji za nápady.

OK, děkuji za cenné rady.

Děkuji, vyzkouším. S VBA začínám, tudíž děkuji, že se mohu přiučit.

Pokud jsem dobře pochopil zadání a pokud nevadí pomocný sloučený sloupec, tak by mohlo snad jednoduše fungovat viz přiložený soubor.

Zdravím a prosím o radu. Mám vytvořené jednoduché makro, které otevře několik souborů xlsx, kde provede jednoduchou úpravu, uloží a zavře. Prosím o radu zda je možné toto provést nějakým cyklem abych nemusel vytvářet a volat makra postupně. Vždy se provede stejná úprava, ale v jiném souboru s jiným daty. Souborů může být až např. 10. Všem děkuji.

Sub uprav()
Call Z1
Call Z2
Call Z3
Call Z4
Call Z5
End Sub
Sub Z1()
With Workbooks.Open(ThisWorkbook.Path & "\Z1.xlsx")
For x = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(x + 1, 1) = Cells(x + 1, 3).Value & Cells(x + 1, 4).Value
Next x
.Save
.Close
End With
End Sub
Sub Z2()
With Workbooks.Open(ThisWorkbook.Path & "\Z2.xlsx")
For x = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(x + 1, 1) = Cells(x + 1, 3).Value & Cells(x + 1, 4).Value
Next x
.Save
.Close
End With
End Sub

Oba kódy pracují naprosto super a splňují moje potřeby. Děkuji za Vaši pomoc i diskusi plnou nápadů a motivace.

Velice děkuji za komentáře a především za kódy, nápady i diskusi.

Ještě jedna drobnost, v případě, že bych potřeboval variantu, když Head1-Head5 jsou již vyplněny, tak data ponechat a nepřepsat jej z Head4. Viz přiložený soubor.Děkuji.

Velice děkuji za pomoc, funguje perfektně.

Ještě doplnění k bodu 2., po kontrole tabulek je vždy zaplněn Head 1 a Head 2 tzn., že by snad mohlo jít použít pro vyhledání vždy End(xlToRight).

Děkuji za reakci. Fungovat by mělo, tak jak je to v přiloženém souboru, ale pomocí rozumnějšího kódu. Tedy vždy přesunout text, který obsahuje poslední vyplněná buňka v řádku do Head 5. Řádky se mohou měnit tzn., že jednou mám tabulku s 5 řádky a jednou s 150 a vždy potřebuji najít poslední s textem a daný text přesunout do Head5.
1. V Head 1 je vždy text
2. ano pokud je Head1 zaplněný tak také přesunout do Head5

Prosím o pomoc s vytvořením kódu pro posun vždy poslední buňky o různou vzdálenost v různém počtu řádků. Názorněji ukazuje přiložený obrázek. Počet řádků se mění. Posun v jednom řádku o přesný počet není problém, ale o různý počet a pro n řádků potřebuji pomoc. Všem děkuji za nápady.


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21