< návrat zpět
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
Poki(18.1.2011 16:15)#003805 zkuste prilozit soubor, podivam se na to
citovat
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!
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 uvadite
citovat
felli(18.1.2011 16:36)#003812 Pardon, každopádně makro nefunguje i když dám vyhledat "ahoj".
Děkuji
citovat
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
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