PC-HELP.CZ

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

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

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.

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.

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.