Eklediğim uygulamada UserForm1 çakıışmiyor.
UserForm_Initialize aşağıdaki kodları sildiğim zaman açılıyor. UserFom1 çalışması için aşağıdaki kodu nasıl değiştirebilirim.
Kod:
Dim col As Object
Set col = CreateObject("System.Collections.ArrayList")
For i = 7 To [d65536].End(3).Row
If Not col.contains(CStr(Cells(i, "d").Value)) = True Then
col.Add CStr(Cells(i, 4))
End If
Next
ComboBox3.Clear
If col.Count > 0 Then
col.Sort
ComboBox3.List = col.toarray
End If
Set col = Nothing
