Çözüldü Açılır listede ilk veriyi almak

[k0081]

Merhaba arkadaşlar;

B4:B22 arasındaki her hücrede açılır liste var.

yapmak istediğim ;

command buton ile B4:B22 arasındaki açılır listelerin ilk verisini seçtirmek...


yardımcı arkadaşa şimdiden teşekkürler.

 

[Haluk]

Veri doğrulama listeleri =M1:M5 gibi hücrelere referansla hazırlanıyorsa;

Sub Test()
    For Each xRng In Range("B4:B22")
        xRng.Value = Range(Split(Mid(xRng.Validation.Formula1, 3), ":")(0)).Value
    Next
End Sub

Eğer veri doğrulama listeleri elle hazırlanmışsa (değer1;değer2;değer3;.....gibi) o zaman;

Sub Test2()
    For Each xRng In Range("B4:B22")
        xRng.Value = Split(xRng.Validation.Formula1, ";")(0)
    Next
End Sub

.

 

[k0081]

Veri doğrulama listeleri =M1:M5 gibi hücrelere referansla hazırlanıyorsa;

Sub Test()
    For Each xRng In Range("B4:B22")
        xRng.Value = Range(Split(Mid(xRng.Validation.Formula1, 3), ":")(0)).Value
    Next
End Sub

Çok teşekkür ediyorum. Tamamdır... Elinize sağlık Haluk hocam.