combobox dan seçimine göre açıklama alma

[salimcifci1026]

ben excelde makro bir örnek yaptım fakat mesela combo boxdan hikaye kitabını secdim asagıda kitap adı yazarı geliyor fakatAcıklama Kısmını Yapamadım şimdiden teşekkür ederim

 

[Husgvarna]

ben excelde makro bir örnek yaptım fakat mesela combo boxdan hikaye kitabını secdim asagıda kitap adı yazarı geliyor fakatAcıklama Kısmını Yapamadım şimdiden teşekkür ederim

Merhaba.
Aşağıdaki gibi de deneyebilirsiniz.

Private Sub ComboBox1_Change()
[b5:h65500] = Empty
m = 4
   Set Bul = Sheets("1").Range("A2:A65536").Find(ComboBox1)
If Not Bul Is Nothing Then
    Application.EnableEvents = False
    hg = Bul.Address
    Do
If LCase(Bul) Like LCase(ComboBox1) Then
m = m + 1
Range("b" & m & ":d" & m).Value = Sheets("1").Range("b" & Bul.Row & ":d" & Bul.Row).Value
End If
 Set Bul = Sheets("1").Range("A2:A65536").FindNext(Bul)
    Loop While Not Bul Is Nothing And Bul.Address <> hg
    Application.EnableEvents = True
End If
End Sub

 

[salimcifci1026]

Cok teşekkür ederim allah razı olsun senden.