< návrat zpět
MS Excel
Téma: Kopírování s podmínkou ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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 ![avatar](./pictures/avatars/no-avatar.jpg)
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![Poki](./pictures/avatars/8584.jpg)
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