Tuşa veri atama

[Lokmanx]

Merhaba ,

Ekte yer alan dosyada 4 tane düğme var ( 1 Nolu Form - 2 Nolu Form - 3 Nolu Form - 4 Nolu Form )

Bu düğlerden herhangi birine bastığımızda Data yazan sayfada karşılığı olan veriler (Açıklama 1 - Açıklama 2 - Açıklama 3) Düşey ara mantığı gibi Çıktı yazan sayfadaki yerlerine getirmesini istiyorum.

Bu işlemi Combo box ile yaptım ancak istediğim düzeyde olması için yardımcı olabilir misiniz?

İyi çalışmalar

 

[Korhan Ayhan]

Deneyiniz.

Makronun sağlıklı sonuç vermesi için;

ÇIKTI sayfasındaki "c6:c8" hücreleri ile DATA sayfasındaki "b1:d1" hücrelerindeki ifadelerin birebir aynı olması gerekmektedir.
Butonların üzerindeki yazılar ile DATA sayfasındaki A sütunundaki isimlerin birebir aynı olması gerekmektedir.

Sonrasında aşağıdaki kodu bütün butonlara tanımlayıp kullanabilirsiniz.

Option Explicit

Sub Aktar()
    Dim My_Buton As Object
    
    Set My_Buton = ActiveSheet.Buttons(Application.Caller)
    
    With Range("C6:C8")
        .ClearContents
        .Formula = "=IFERROR(VLOOKUP(""" & My_Buton.Caption & """,DATA!A:D,MATCH(B6,DATA!A$1:D$1,0),0),"""")"
        .Value = .Value
    End With

    Set My_Buton = Nothing
End Sub

 

[Lokmanx]

Çok teşekkür ederim Korhan Bey.