sayfada formül tetikleme

[oydemir]

Tutanak diye bir sayfam var bu sayfada formüllerim var buradaki formüller a1 hücresinden arayarak işleme giriyor resim ve bilgi getiriyor.

Parseller sayfasındaki a kolonundaki sayılar kadar Tutanak sayfasından çoğaltıyorum buraya kadar sorun yok.

Sayfaları açmadıktan sonra kodlar çalışmıyor. Benim dilediğim sayfaları açmadan sayfaları gruplayıp pdf olarak yazdırmak istiyorum,

Sayfa1.Activate kodun forumda buldum fakat bu seferde kaç sayfa açtığını bilemediğim için sayfayı bulamayınca hata verdi. Sizlerden yardım istiyorum.

 

[ÖmerBey]

Merhaba,
Tutanaklar sayfasında yer alan aşağıdaki kodu siliniz. (Bu kod açılan sayfanın A1 hücresine sayfa adını yazıyor.)

Private Sub Worksheet_Activate()
[a1] = ActiveSheet.Name
End Sub

Bunun yerine tutanaklar sayfası A1 hücresine aşağıdaki formülü uygulayarak deneyiniz. (Bu formül hücreye sayfa adını yazdırır.)

=PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("]";HÜCRE("DOSYAADI";A1))+1;50)

Böylece sayfa adını makro yerine formülle yazdırdığınız için sayfa ismi değiştikçe A1 verisi de dinamik bir şekilde değişecektir.
. . . . . . . . . . . .
Mevcut haliyle dosyanızı kullanmaya devam etmek isterseniz de sayfaları aktif etmek için aşağıdaki kodu kullanabilirsiniz. Döngü ile dosyanızdaki tüm sayfaları sıra ile aktifleştirir.

For Each sh In Sheets
    sh.Activate
Next

 

[oydemir]

Ömer Bey cevap için teşekkür ederim. Dediklerinizi yapabildim zannediyorum fakat
style='background:whitesmoke'> color:#141414'>For Each sh In Sheets
sh.Activate

Next

Döngüyü beceremedim benim becerebildiklerim kopyala yapıştır. Deneme yanılma

Sub Makro1()

' Makro1 Makro

Range("I19").Select

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9")).Select

Sheets("9").Activate

Range("D1").Select

End Sub

Sayfaları gruplandırıyor ama acılan sayfaların isimleri değişinde bu kot işe yaramıyor. Bunu kodla yapabilir miyim. Teşekkürler

 

[ÖmerBey]

Dosyanızda oluşturduğunuz formda "aktif sayfa yap" butonuna ait bu kodları:

Private Sub CommandButton2_Click()
Sayfa1.Activate
Sayfa2.Activate
'Sayfa3.Activate
'Sayfa4.Activate
Sayfa5.Activate
Sayfa6.Activate
Sayfa7.Activate
Sayfa8.Activate
Sayfa9.Activate

Sayfa10.Activate
Sayfa11.Activate
Sayfa12.Activate
Sayfa13.Activate
Sayfa14.Activate
Sayfa16.Activate
Sayfa16.Activate
Sayfa17.Activate
Sayfa18.Activate
Sayfa19.Activate
Sayfa20.Activate
Sayfa21.Activate
Sayfa22.Activate
Sayfa23.Activate
Sayfa24.Activat
End Sub

Bunlarla değişiriniz.

Private Sub CommandButton2_Click()
For Each sh In Sheets
    sh.Activate
Next
End Sub

 

[oydemir]

emeğinize sağlık teşekkürler

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[oydemir]

Sizede