ComboBox eklemek

[yavuz829]

Merhaba arkadaşlar ekli dosyamda açıklama kısmına C5 ile C1000 arasındaki hücrelerdeki cumleleri hatırlayarak cumle tamamlaması yapması için bir tane ComboBox1 ekledim buraya ilk harflerini yazdığım cumleyi tamamlayarak c hücresine aktarılması için kod yazmasını bilmiyorum. Bu konuda yardımlarınızı bekliyorum. Teşekürler.

 

[hamitcan]

Form içine bu kodu ekleyin.

Private Sub UserForm_Initialize()
    ComboBox1.MatchEntry = fmMatchEntryFirstLetter
    For i = 5 To [c65536].End(3).Row
        If WorksheetFunction.CountIf(Range("c5:c" & i), Cells(i, "c")) = 1 Then
          ComboBox1.AddItem Cells(i, 3)
        End If
    Next
End Sub

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık.
Hocam birde tarih yazan yere ComboBox2 yi eklemek istiyorum A5 hücreinden A1000 hücresindeki tarihleri tamamlasın. Onunu içinde kod ekleseniz sevinirim.

 

[hamitcan]

Böyle deneyin.

Private Sub UserForm_Initialize()
    ComboBox1.MatchEntry = fmMatchEntryFirstLetter
    For i = 5 To [c65536].End(3).Row
        If WorksheetFunction.CountIf(Range("c5:c" & i), Cells(i, "c")) = 1 Then
          ComboBox1.AddItem Cells(i, 3)
        End If
    Next

    ComboBox2.MatchEntry = fmMatchEntryComplete
    For i = 5 To [a65536].End(3).Row
        If WorksheetFunction.CountIf(Range("a5:a" & i), Cells(i, "a")) = 1 Then
          ComboBox2.AddItem CStr(Format(Cells(i, 1), "dd/mm/yyyy"))
        End If
    Next
End Sub

 

[yavuz829]

Çok teşekürler hocam.