[ÇÖZÜLDÜ] Birden fazla sayfa seçerek, seçilen sayfalara işlem yapmak..

[enteresan]

Sevgili excel'ci arkadaşlar, çalışmakta olduğum dosyada bir makro var ve bu makroda tek bir sayfayı seçerek o sayfa üzerinde işlem yapıyorum. Oysa ki, ben aynı anda 3 sayfayı seçerek o üç sayfanın ilgili satırlarına bir yazı yazdırmak istiyorum. Aşağıdaki kodu ne şekilde değiştirmem gerekir. Saygılarımla...


Public Sub CommandButton11_Click()
On Error Resume Next
Set s1 = Sheets(4)
Set s2 = Sheets(".......")
s1.Select

 

[efee2000]

Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select

kodunu denediniz mi?

 

[enteresan]

Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select

kodunu denediniz mi?

Denedim ama olmadı....

 

[Skorpiyon]

Sayın enteresan,

Set s2 = Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3"))

şeklinde denediniz mi ? select bölümünü eklerseniz hata verecektir zira.

Saygılarımla...

 

[enteresan]

Sayın enteresan,

Set s2 = Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3"))

şeklinde denediniz mi ? select bölümünü eklerseniz hata verecektir zira.

Saygılarımla...

Sevgili sertkaya, benim sorunus Set s1 bölümünde, Set s2'de herhangi bir sorun yok zaten.
İlginize teşekkür ederim.
Yapmak istediğim şu ;
7 sayfalık çalışma kitabımda 1 nci sayfadaki bazı verileri 3,4,5 nci sayfadaki en son boş satıra yazdırmak istiyorum. Hepsi bu. Saygılarımla...

 

[Skorpiyon]

Sayın enteresan,

Dosyanızdan küçük bir örnek ekleyin, üzerinde halletmeye çalışalım.

Saygılarımla...

 

[Seyit Tiken]

1.sayfadaki A1 hücresine herhangi bir değer girip butona basın ve diğer sayfalara gözatın, ilgili verinin diğer sayfalara yansıdığı gözlemlenecektir.

Sub Düğme1_Tıklat()
For s = 2 To 4
Sheets(s).[a6500].End(3).Offset(1) = Sayfa1.[a1]
Next
End Sub

 

[enteresan]

1.sayfadaki A1 hücresine herhangi bir değer girip butona basın ve diğer sayfalara gözatın, ilgili verinin diğer sayfalara yansıdığı gözlemlenecektir.

Sub Düğme1_Tıklat()
For s = 2 To 4
Sheets(s).[a6500].End(3).Offset(1) = Sayfa1.[a1]
Next
End Sub

Sayın Seyit Hocam, bunun gibi bir şey ama tam değil. İstediğim şekli ekte gönderiyorum. 3 ayrı isimbloku var ve bu isimleri 1 nci sayfadan alarak diğer sayfalara en son dolu satırın 4 satır altına yazacak....

 

[enteresan]

Sayın enteresan,

Dosyanızdan küçük bir örnek ekleyin, üzerinde halletmeye çalışalım.

Saygılarımla...

Sayın Sertkaya, dosya ektedir. İlginize teşekkür ederim....

 

[Skorpiyon]

Sayın enteresan,

Kodlar ile uzunboylu uğraşma vaktim olmadı maalesef. O yüzden herhangi bir döngü veya yöntem için uğraşmadan kısa yoldan hallettik. (Sadece Sayfa3 ve 4 için ekleme yaptım, daha doğrusu kodlarınızı alt alta kopyaladım diyebilirim)

Siz başka sayfa eklemek isterseniz, kodları incelediğinizde ne demek istediğimi anlayacaksınız.

Saygılarımla...

 

[enteresan]

Sayın enteresan,

Kodlar ile uzunboylu uğraşma vaktim olmadı maalesef. O yüzden herhangi bir döngü veya yöntem için uğraşmadan kısa yoldan hallettik. (Sadece Sayfa3 ve 4 için ekleme yaptım, daha doğrusu kodlarınızı alt alta kopyaladım diyebilirim)

Siz başka sayfa eklemek isterseniz, kodları incelediğinizde ne demek istediğimi anlayacaksınız.

Saygılarımla...

Sayın Sertkaya, çok teşekkür eder, saygılar sunarım....
Ayrıca, HAYIRLI RAMAZANLAR....