Makroda sayfa ismini hücreden aldırma

[kneehot]

arkadaşlar merhaba. kullandığım bir makroyu farklı sayfalar için kullanıyorum aynı kitap içinde fakat her sayfa için makronun içindeki Sheets("son uyarı").Select kodunu sayfa ismi ile değiştirip çoğaltmam gerekiyor. burdaki son uyarı adındaki sayfa ismini hücreden aldırabilirmiyim. örnek olarak ana sayfa isimli bir sayfanın B2 hücresindeki sayfa ismi ne ise bu kodu ona göre çalıştırsın. son uyarı yazıyosa son uyarı sayfasını seçsin, data yazıyosa data sayfasını gibi. Yardımlar için şimdiden çok teşekkür ederim.

 

[muygun]

Merhaba;

ThisWorkbook.Worksheets(Cells(2, "b").Value).Select

Şeklinde deneyin.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Doğrudan range'i verince almazsa, önce bir değişkene aktarın

Dim Syf As String

Syf = Range("B1")
Sheets(Syf).Select

gibi.

 

[kneehot]

çok teşekkürederim. birşey daha sorabilirmiyim. bu makronun altında Call yazdır diye bir makro çağıran kod mevut bu kodda örnek olarak B2 hücresinde sayfa adlarını seçiyorduk B3 hücresindede X varsa Call yazdır çalışsın yoksa çalışmasın. mümkünmüdür. Umarım anlatabilmişimdir.

 

[Necdet]

Neden olmasın?

if range("B3") = "X" or range("B3") = "x" then call yazdır