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

V souboru kopírování funguje, případně si kód uprav jak radil marjankaj - Namiesto List2 daj sheets("List2").

Příloha: zip

35170_wall.zip (12kB, staženo 117x)

citovat

Thomas1971(28.2.2017 20:38)#035173

Děkuji všem za cenné rady. Funguje to parádně.

citovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.