< návrat zpět

MS Excel

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

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:  1 2   další »
marjankaj(27.2.2017 20:54)#035148
avatar
Na to ti netreba VBA.
Daj automatický filter, vyfiltruj "hotovo"
A potom iba CTRL+C a CTRL+V.

Makro si môžeš aj nahrať a upraviť.citovat
Stalker(27.2.2017 21:06)#035149
Stalker
Např:
Sub Kopiruj()

Dim i As Long
Dim maxRadek As Long
Dim maxRadek2 As Long
Dim x As Byte
x = 0

maxRadek = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To maxRadek
If ActiveSheet.Cells(i, 4).Value = "Hotovo" Then
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Rows(i).EntireRow.Copy List2.Rows(maxRadek2 + x)
x = 1
End If
Next i

MsgBox "Kopírování dokončeno", vbInformation, "INFO"

End Sub
citovat
marjankaj(27.2.2017 21:15)#035150
avatar
@Stalker
Ako vieš, že všetky bunky v stlpci "A" sú vyplnené? Možno je celý stlpec "A" prázdny.citovat
Stalker(27.2.2017 21:56)#035151
Stalker
@marjankaj
Máš pravdu, nevím. Buď si kód upraví nebo se doptá 1citovat
elninoslov(28.2.2017 1:16)#035153
elninoslov
Nočný nástrel pred spaním. Dve verzie. Jedna kopíruje celé riadky (teda aj formát), druhá len hodnoty. Príliš som to netestoval...
Příloha: zip35153_copy-hotove.zip (13kB, staženo 132x)
citovat
xlnc(28.2.2017 1:28)#035154
avatar
A) Zmíněné filtry
B) Malá "očůrávka" SpecialCells, EntireRow a Copy?citovat
Thomas1971(28.2.2017 7:28)#035155
avatar
Díky všem. Sloupec A je vždy vyplněný.
@Stalker: použil bych tuto verzi, ale nic se mě nepřekopíruje, List2 zůstává prázdný 7citovat
veny(28.2.2017 8:11)#035156
avatar
při spouštění makra je potřeba být v aktivním listucitovat
marjankaj(28.2.2017 9:36)#035158
avatar

Thomas1971 napsal/a:

Díky všem. Sloupec A je vždy vyplněný.
@Stalker: použil bych tuto verzi, ale nic se mě nepřekopíruje, List2 zůstává prázdný

Namiesto List2 daj sheets("List2")citovat
Thomas1971(28.2.2017 11:19)#035161
avatar
Díky moc, už to fičí. Jen ještě jedna vada na kráse. První spuštění makra OK. Při dalším spuštění je ale vždy přepsán poslední řádek s daty v Listě2 novými daty.citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

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.

On-line nástroje