selam..
Sheets("Ana Liste").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa1").Select
Range("C3").Select
Selection.Copy
Sheets("Ana Liste").Selec
...
...
bööle gidiyor
Ãimdi benim istedeğim arkdaşlar burda bu macro sona ulaştığında tekrar başa dönüp sayfa1 i sayfa 2 yapsı n bu işlem 50 .i sayfaya kadar devam ettirsin yardımcı olursanız sevinirim :yardim:
Sheets("Ana Liste").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa1").Select
Range("C3").Select
Selection.Copy
Sheets("Ana Liste").Selec
...
...
bööle gidiyor
Ãimdi benim istedeğim arkdaşlar burda bu macro sona ulaştığında tekrar başa dönüp sayfa1 i sayfa 2 yapsı n bu işlem 50 .i sayfaya kadar devam ettirsin yardımcı olursanız sevinirim :yardim: