MS Excel

Téma: Kopírování- víc podmín

Zaslal/a felli 18.1.2011 12:58

Opet zdravim,

potrebuji makro, ktere mi zkopiruje radky, pokud jsou splneny podminky, ze ve sloupci A a F jsou pozadovane hodnoty. Zkouším tento kód, ale ten mi vždy zkopíruje jen jeden řádek, i když je podmínek splněných více.Sub pokus()
Dim Datum As String
Datum = Range("B1").Value

For i = 1 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 4) = Datum And Len(Cells(i, 1)) > 0 And _
Cells(i, 1) = "aa" 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
End If
Next i

End Sub

Díky

Zaslat odpověď >

Poki(18.1.2011 16:15)#003805

zkuste prilozit soubor, podivam se na tocitovat

felli(18.1.2011 16:27)#003808

Soubor příkládám.
V tomto případě jsou splněny podmínky v řádku 5 a 8, takže tyto řádky se mají kopírovat do prvního volného řádku v listě 2.
Díky moc!

Příloha: zip

3808_kopirovani-dat-kdyz-se-splni-2-podminky.zip (12kB, staženo 13x)

citovat

Poki(18.1.2011 16:32)#003810

nemate splnenu podminku Cells(i, 1) = "aa", protoze v prvnim sloupci je hodnota "ahoj" v tech radcich, ktere uvaditecitovat

felli(18.1.2011 16:36)#003812

Pardon, každopádně makro nefunguje i když dám vyhledat "ahoj".
Děkujicitovat

Poki(18.1.2011 16:39)#003813

problem je v aktivaci listu, na zacatku cyklu musite vstupovat s aktivnim listem1, tedy v podmince musite mit tento kod: Rows(i).Select
Selection.Copy
List2.Activate
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
List1.Activatecitovat

felli(18.1.2011 16:43)#003815

Jak jednoduche

Díky moc!citovat

Poki(18.1.2011 16:45)#003816

ano, kazdopadne - pokud pouzivate v kodu vice listu (typicky u .copy a .paste), je vyhodnejsi u cells() pouzivat i identifikaci listu, tedy worksheets("List1").cells() ...atd (tim se odstrani ten problem prepinani listu

citovat

Palda001(27.2.2012 20:51)#007480

ahoj,řeším podobný problém.jak ošetřit aby nevznikaly duplikáty kopírováním, prosím? díky.citovat

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.