Dobrý den,
měl bych malou prosbu o tvorbu makra, které vykopíruje hodnoty z jednoho listu na jiný list podle stanoveného filtru.
Popř. jestli to nejde udělat jiným způsobem než za pomocí makra - v VBA se bohužel moc neorientuji :(
Detailnější popis v příloze.
Děkuji za pomoc
Makro výpis hodnot na jiném listu
Makro výpis hodnot na jiném listu
- Přílohy
-
- Makro filtr výpis hodnot.xlsx
- (15.9 KiB) Staženo 49 x
Re: Makro výpis hodnot na jiném listu
Trochu jsem pokročil, ale stále to není ono.
Tlačítko "Zobraz opravy"
Když dám do řádku 2 podmínky (měsíc i druh nákladu - v kódu to tučné), tak mi nevyjedou žádné hodnoty.
Když v řádku nechám pouze
If Cells(I, "D").Value = Mesic Then
Tak mi to vypíše všechny druhy nákladů za daný měsíc. Ale nedaří se mi zkombinovat tyto 2 podmínky dohromady.
Poradíte prosím? Díky.
Sub OpravyXX()
Dim Mesic As String, X As Integer
Mesic = Sheets("Prehled").Range("B3")
X = 2
For I = 1 To 100
Sheets("Data").Select
If Cells(I, "D").Value = Mesic And Cells(I, "A").Value = Opravy Then
Radek = ActiveCell.Row
Sheets("Data").Rows(Radek).Select
Selection.Copy
X = X + 1
Sheets("Výpis hodnot").Cells(X, "A").Select
ActiveSheet.Paste
End If
Next I
End Sub
Tlačítko "Zobraz opravy"
Když dám do řádku 2 podmínky (měsíc i druh nákladu - v kódu to tučné), tak mi nevyjedou žádné hodnoty.
Když v řádku nechám pouze
If Cells(I, "D").Value = Mesic Then
Tak mi to vypíše všechny druhy nákladů za daný měsíc. Ale nedaří se mi zkombinovat tyto 2 podmínky dohromady.
Poradíte prosím? Díky.
Sub OpravyXX()
Dim Mesic As String, X As Integer
Mesic = Sheets("Prehled").Range("B3")
X = 2
For I = 1 To 100
Sheets("Data").Select
If Cells(I, "D").Value = Mesic And Cells(I, "A").Value = Opravy Then
Radek = ActiveCell.Row
Sheets("Data").Rows(Radek).Select
Selection.Copy
X = X + 1
Sheets("Výpis hodnot").Cells(X, "A").Select
ActiveSheet.Paste
End If
Next I
End Sub
- Přílohy
-
- Makro filtr výpis hodnot – pokus 2.xlsm
- (25.06 KiB) Staženo 43 x
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro výpis hodnot na jiném listu
Dobrý den.
Vítám Vás na PC-HELP.
Mejspíš to bude tím, že proměnná Opravy je prázdná. Musíte ji naplnit stejně jako proměnnou Měsíc. Snad to bude jako nápověda stačit.
Vítám Vás na PC-HELP.
Mejspíš to bude tím, že proměnná Opravy je prázdná. Musíte ji naplnit stejně jako proměnnou Měsíc. Snad to bude jako nápověda stačit.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Makro výpis hodnot na jiném listu
Zkus něco takového:
Vyber si, V buňce jsou "Opravy" to s čím to porovnáváš by tedy měl být text, buď konstanta nebo konstanta v proměnné.
Ještě by to chtělo dočistit předchozí seznam.
Kód: Vybrat vše
Sub OpravyXX()
Dim Mesic As String, X As Integer
Mesic = Sheets("Prehled").Range("B3")
X = 2
With Sheets("Data")
For I = 1 To 100
If .Cells(I, "D").Value = Mesic And .Cells(I, "A").Value = "Opravy" Then
X = X + 1
.Rows(I).Copy Destination:=Sheets("Vypis").Rows(X)
End If
Next I
End With
End Sub
Vyber si, V buňce jsou "Opravy" to s čím to porovnáváš by tedy měl být text, buď konstanta nebo konstanta v proměnné.
Ještě by to chtělo dočistit předchozí seznam.
Re: Makro výpis hodnot na jiném listu
Super, moc díky za tuto modifikaci! Šlape to skvěle! S tím dočištěním předchozího seznamu máte pravdu, to budu muset ještě pořešit.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 2469
-
od luko02420
Zobrazit poslední příspěvek
02 srp 2023 14:12
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 3181
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 9
- 1358
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 11 hostů