Hücre bilgisi ile sheet aktive etmek

[isik_h]

Arkadaşlar merhaba,
Çalışma kitabımda bir çok sayfa ver, bir hücreye bu sayfa ismini yazarak o hücreyi aktive edecek ve oradan bazı verileri alacak bir makro yazmak istiyorum. Sorunum şu; hücre içine 756395 gibi bir sayı giriyorum ve bu sayı aynı zamanda benim sayfalarımdan biri, o sayfayı nasıl aktive ederim makroda?
saygılar

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya ekleyerek ne yapmak istediğiniz tarif edebilirmisiniz. Böylelikle daha çabuk çözüme ulaşabilirsiniz.

 

[isik_h]

Haklısınız, ekte bir dosya sundum. Teşekkürler.

 

[Levent Menteşoğlu]

all isimli sayfanın B5 hücresine aşağıdaki formülü kopyalayın.

=DOLAYLI(A5&"!B5")

 

[isik_h]

all isimli sayfanın B5 hücresine aşağıdaki formülü kopyalayın.

=DOLAYLI(A5&"!B5")

verdiğiniz örnek tam olarak benim aradığım değil. Asıl amacım bunu bir makro içinde kullanmak. Ben şöyle birşey yazdım ancak işe yaramadı.

aktif = Range("A5").Value
Sheets(aktif).Select
Range("B5").Select
Selection.copy
Sheets("all").Select
Range("B5").Select
ActiveSheet.Paste

 

[Levent Menteşoğlu]

verdiğiniz örnek tam olarak benim aradığım değil. Asıl amacım bunu bir makro içinde kullanmak.

Haklısınız bunu atlamışım aşağıdaki gibi deneyin.

[b5]=sheets([a5]).[b5]

 

[isik_h]

Haklısınız bunu atlamışım aşağıdaki gibi deneyin.

[b5]=sheets([a5]).[b5]

malesef başaramadım makro içinde. yine de teşekkür ederim.

 

[isik_h]

Haklısınız bunu atlamışım aşağıdaki gibi deneyin.

[b5]=sheets([a5]).[b5]

Sheets([a5]).Select
şeklinde kullanabilir miyim? benim istediğim hücre içinde yazan sayfayı aktive etmek

 

[Korhan Ayhan]

Selamlar,

A5 hücresine sayfa ismini yazıp aşağıdaki kodu çalıştırın.

Sub VERİYİ_AKTAR()
    [B5] = Sheets("" & [A5]).[B5].Value
End Sub

 

[isik_h]

arkadaşlar cok tesekkur ederim, işe yaradı son verdıgınız makro.
çok tesekkurler