Sayfa Üzerindeki ComBoboxla İşlem

[omeryılmaz]

Merhaba Arkadaşlar
Sorum:
Sayfa Üzerinde mevcut ComboBox1 den Aile Sağlığı Merkezi seçildiğinde, Aile Hekimleri Sekmesinden O Aile Sağlığı Merkezinde Görevli Hekimlerin Kodunun hücrelere gelmesi...

İnternetten yararlanarak şöyle bir kod uygulamaya çalıştım ama olmadı.

Dim ara As Range
Dim son As Integer
Sheets("AŞIDAĞITIM").Range("E8:J8").ClearContents
son = Sheets("AileHekimleri").Cells(Rows.Count, 2).End(3).Row
Set ara = Sheets("AileHekimleri").Range("C4:C" & son).Find(ComboBox1, , xlValues, xlWhole)
If ara = ComboBox1.Text Then

Sheets("AŞIDAĞITIM").Range("E8") = Sheets("AileHekimleri").Cells(ara.Row - 1, 4)
Sheets("AŞIDAĞITIM").Range("F8") = Sheets("AileHekimleri").Cells(ara.Row, 4)
Sheets("AŞIDAĞITIM").Range("G8") = Sheets("AileHekimleri").Cells(ara.Row + 1, 4)
Sheets("AŞIDAĞITIM").Range("H8") = Sheets("AileHekimleri").Cells(ara.Row + 2, 4)
Sheets("AŞIDAĞITIM").Range("I8") = Sheets("AileHekimleri").Cells(ara.Row + 3, 4)
Sheets("AŞIDAĞITIM").Range("J8") = Sheets("AileHekimleri").Cells(ara.Row + 4, 4)

End If


Örnek dosya ekte sunulmuş olup yardım ve önerileriniz için şimdiden şükranlarımı sunuyorum.

 

[Orion1]

Ömer bey dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim ara As Range, adr As String
Dim son As Integer, sut As Byte
Sheets("AŞIDAĞITIM").Range("E8:J8").ClearContents
son = Sheets("AileHekimleri").Cells(Rows.Count, 2).End(3).Row
Range("E8:L8").Value = ""
Set ara = Sheets("AileHekimleri").Range("C1:C" & son).Find(ComboBox1.Text, , xlValues, xlWhole)
sut = 5
If Not ara Is Nothing Then
    adr = ara.Address
    Do
        Sheets("AŞIDAĞITIM").Cells(8, sut) = ara.Offset(0, 1).Value
        sut = sut + 1
        Set ara = Sheets("AileHekimleri").Range("C1:C" & son).FindNext(ara)
Loop While Not ara Is Nothing And ara.Address <> adr
End If
End Sub

 

[omeryılmaz]

Teşekkürler hocam
Eline yüreğine sağlık....