< návrat zpět
MS Excel
Téma: Kopírování s podmínkou
Zaslal/a felli 13.1.2011 14:11
Zdravím,
potřeboval bych pomoci s kopírováním textu s podmínkou, když jakákoli buňka ve sloupci A je rovna např. "Ahoj" potom se mi celý tento řádek zkopíruje do jiného listu.
Díky
felli(13.1.2011 14:17)#003748 ještě bych k tomu doplnil, že podmínek pro hodnoty, které se budou kopírovat, bude víc.
Díky
citovat
Poki(13.1.2011 15:25)#003749 slo by to takhle (do If lze vlozit vice podminek (ta Len() je tam jen pro ilustraci, jak podminky spojit)
Sub kopiruj()
List1.Activate
For i = 2 To Cells(65000, 1).End(xlUp).Row
If Cells(i, 1) = "ahoj" And Len(Cells(i, 1)) > 0 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 Subcitovat