Faklı Sayfalardaki aynı veri doğrulamayı bir sayfaya yazdırma

[dejavuxer]

ARKADALAR ;

Benim yapmak istediğim ,

1-2-3-4-5 gibi farklı sayfalarda veri aynı veri doğrulama listem var

Ben o an hangi sayfada isem O sayfadaki VERİ DOĞRULAMA verisinin

DATA sayfasındaki B4 hücresini yazılmasını istiyorum fakat yapamıyorum

ben şu an manuel olarak DATA B4 2 e = ilgili sayfa nın hücresi hücre bağlayarak yapıyorum


Bunu yapmanın bir yolu varmı ?

İlginiz ve yardımlarınızdan dolayı teşekkürler

 

[hamitcan]

Module1 içine;

Public S As String

ThisWorkBook kod kısmına;

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
    If sh.Name <> "data" Then S = sh.Name
End Sub

Data sayfasının kod kısmına;

Private Sub Worksheet_Activate()
    [b4] = Sheets(S).[k3]
End Sub

 

[dejavuxer]

teşekkür ederim çok iyi olmuş çok işime yarayacak