Çalışma Sayfasını

[ScRaT]

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:

 

[Levent Menteşoğlu]

Ã?ncelikle hoşgeldiniz.

sorunuzun yanıtına gelince bir for-next döngüsü kurmanız gerekecektir. Kodları Aşağıdaki gibi değiştirin

for a=1 to 50
Sheets("Ana Liste").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Sayfa" & a).Select
Range("C3").Select
Selection.Copy
next a

 

[ScRaT]

gerçekten çoksaol gerçekten aslında excele gierken çekişniyordum şimdi excel de yapabileceklerimin farkında olunca vede bişeyler yapıca çok güel oldu ayrıca bu kadar kısa sürede cevap lamayı beklemiyordum çok saol sanırım oldu :hey:

 

[Levent Menteşoğlu]

Rica ederim.

Exceli keşfettikçe dahada keyif alacaksınız. Bol excelli günler dileğiyle....