Diğer Sheeteki verileri çağırma

[tamer060]

Günaydın Hocalarım; Bir konuda takıldım Ek'teki dosyada Ana menü kısmında A sütınunda araç plakaları var ve diğer şheetlerdede ayrı ayrı plakalar var. ANA MENÜ sayfasında plakaya tıkladığımda yine ana menü sayfasında tıkladığım bilgeleri getirmek için nasıl bir yol izlemeliyim. Yardımcı olursanız memnun olurum. Saygılarımla

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne ekleyin ve deneyin.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim S1 As Worksheet
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Application.ScreenUpdating = True: Exit Sub
Set S1 = Sheets(Target.Text)
S1.Range("A1:N77").Copy Destination:=Range("B1")
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[sakman26]

Merhaba,

Eki inceleyiniz... KÖPRÜ yardımıyla yapılmıştır..

Kolay gelsin...

 

[tamer060]

Hocam kodu ekledim ama çalıştıramadım size zahmet siz dosyaya ekleyip gönderirmisiniz atladığım bir yer var heralde

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim S1 As Worksheet
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Application.ScreenUpdating = True: Exit Sub
Set S1 = Sheets(Target.Text)
S1.Range("A1:N77").Copy Destination:=Range("B1")
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[asi_kral]

Eki inceleyiniz.
Olmayan sayfaya tıklamayın hata verir.

 

[tamer060]

elinize sağlık hocam excelde makro içeren çalışma diye kaydetmemişim ondan hata vermiş çok teşekkür ederim..

 

[asi_kral]

elinize sağlık hocam excelde makro içeren çalışma diye kaydetmemişim ondan hata vermiş çok teşekkür ederim..

Kolay Gelsin.