MS Excel

Téma: VBA kopírování určitých řádků

Zaslal/a Thomas1971 27.2.2017 19:46

Dobrý večer,
pro vás určitě maličkost. Jak zkopírovat všechny řádky z aktivního listu do dalšího listu (List2). Podmínkou je, že jen ty řádky, které mají ve sloupci D vyplněno: Hotovo. Děkuji.

Zaslat odpověď >

Strana: « předchozí 1 2

elninoslov(28.2.2017 14:34)#035164

Z brucha : na konci pripočítajte 1
...
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row + 1
...

EDIT:
Respektíve, keď na to pozerám, tak fakt od brucha, tak by to malo byť plus mínus autobus takto:
...
x = 1
maxRadek = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row

For i = 1 To maxRadek
If ActiveSheet.Cells(i, 4).Value = "Hotovo" Then
ActiveSheet.Rows(i).EntireRow.Copy List2.Rows(maxRadek2 + x)
x = x + 1
End If
Next i
...
ale neskúšam to, to len tak ...citovat

Stalker(28.2.2017 19:20)#035170