PC-HELP.CZ

Zdravím chytré hlavičky, existuje nějaká funkce či postup, který by mi umožnil toto:

Mám v jednom listu 3 sloupce: A, B - jméno, C - příjmení
a chtěl bych aby to udělalo to, že kdybych do sloupce A třeba X aby to zkopírovalo celý ten řádek do druhého listu. aby to kopírovalo jen ty řádky, kde bude ve sloupci A to x

zkoušel jsem to pomocí funkce KDYŽ ale pokus selhal

Zkuste toto:

Kód: Vybrat vše

Sub kopiruj()
List2.Activate
Cells.ClearContents

List1.Activate
For i = 2 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 1) = "x" Then
Rows(i).Select
Selection.Copy
List2.Activate
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
List1.Activate
End If
Next i
Application.CutCopyMode = False
End Sub

to je přesně ono, akorát bych potřeboval, aby se původní řádky přepisovaly. aby se doplňovaly jen ty, u kterých tam to x přibude.

upravil jsem puvodni kod - jen vzdy na zacatku procedury smazou vsechny data z listu 2.

děkuju ti mnohokrát

PC-HELP.CZ

Excel 2003 - kopírování dat z listu do listu

Excel 2003 - kopírování dat z listu do listu

Re: Excel 2003 - kopírování dat z listu do listu

Re: Excel 2003 - kopírování dat z listu do listu

Re: Excel 2003 - kopírování dat z listu do listu

Re: Excel 2003 - kopírování dat z listu do listu Vyřešeno