Açılan kutudaki ismin sayfasına giderek hücre kopyalama

[sdegirmenci]

Arkadaşlar;sorumu ekte bulunan dosyamda sayfa üzerinde açıkladım.Yardımcı olursanız sevinirim.Şimdiden herkese teşşekkür ederim.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.Makro ile yaptım.

Sub sayfa()
Range("A2").Value = Sheets(Range("A1").Value).Range("A2").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
Call sayfa
End Sub

 

[Orion1]

Merhaba.
Formül ile aşağıdaki gibi olur.
A2 hücresine..
=DOLAYLI(A1&"!A2")

 

[sdegirmenci]

Sayın Sezar; İlginize ve yardımlarınıza çok teşekkür ederim.Bütün işleriniz kolay gelsin. İyi akşamlar.

 

[Orion1]

Sayın Sezar; İlginize ve yardımlarınıza çok teşekkür ederim.Bütün işleriniz kolay gelsin. İyi akşamlar.

Rica ederim.
İyi akşamlar.