Combobox`i Otomatik Doldur

Resimdeki combobox ilk sutundaki veriler ile doldurulmustur, Suan isleyecegimiz ornekte buradaki gibi bir sutundaki verilerin sadece tekil olan verileri nasil comboboximizda calistirabiliriz?

Oncelikle bu verileri tekil olarak ayiracak bir kod ornegi verelim;

Sub Tekil_datalari_Suz()

Dim Satir As Long, test As New Collection

Dim Value As Variant, temp() As Variant

ReDim temp(0)

On Error Resume Next

With Worksheets("Sheet1")

Satir = .Range("A" & Rows.Count).End(xlUp).Row

temp = .Range("A2:A" & Satir).Value

End With

For Each Value In temp

If Len(Value) > 0 Then test.Add Value, CStr(Value)

Next Value

ReDim temp(0)

Worksheets("Sheet1").Shapes("Drop Down 1").ControlFormat.RemoveAllItems

For Each Value In test

Worksheets("Sheet1").Shapes("Drop Down 1").ControlFormat.AddItem Value

Next Value

Set test = Nothing

End Sub

Daha sonra yeni bir veri girildiginde yahut herhangi bir degisiklik yapoildiginda bu tekillestiren kodlarimizi calistiricak sayfanin degisimine yazilmis kod gerekiyor, bu kodlar;

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("$A:$A")) Is Nothing Then

Call Tekil_datalari_Suz

End If

End Sub

Son olarak sadece dosyada oldugundan veriyorum combobox`taki secilen veriyi ornekte B5 hucresine atadik, bunu da paylasalim;

Sub Secilen_Deger()

With Worksheets("Sheet1").Shapes("Drop Down 1").ControlFormat

Worksheets("Sheet1").Range("B5") = .List(.Value)

End With

End Sub

Combobox Doldur

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 7 =