< návrat zpět

MS Excel


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

Zaslal/a 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ší »
#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
#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
#035150
avatar
@Stalker
Ako vieš, že všetky bunky v stlpci "A" sú vyplnené? Možno je celý stlpec "A" prázdny.citovat
#035151
Stalker
@marjankaj
Máš pravdu, nevím. Buď si kód upraví nebo se doptá 1citovat
#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 109x)
citovat
#035154
avatar
A) Zmíněné filtry
B) Malá "očůrávka" SpecialCells, EntireRow a Copy?citovat
#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
#035156
avatar
při spouštění makra je potřeba být v aktivním listucitovat
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

cislovanie riadkov

martin1 • 18.1. 20:47

Podmíněné formátování

Baja • 18.1. 18:55

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 18.1. 14:29

zápis čísla fce suma

Stalker • 18.1. 13:17

smazání více obrázků

Zdenda-R • 18.1. 9:47

výpis adresáře

Milan-158 • 18.1. 9:31

zápis čísla fce suma

Josef-Sekan • 18.1. 9:26