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

Zaslat odpověď >

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íkycitovat

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

Uživatelské menu

Nejste přihlášen(a)

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.