• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse