yeni başladım yardımcı olursanız sevinirim combo ve userform nasıl yapılır
ayrıca
Private Sub UserForm_Initialize()
For X = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, 1)) = 1 Then
ComboBox1.AddItem Cells(X, 1).Value
End If
Next
End Sub
var bunu nasıl çalıştırırım şimdiden emeğinize teşekürler
ayrıca
Private Sub UserForm_Initialize()
For X = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, 1)) = 1 Then
ComboBox1.AddItem Cells(X, 1).Value
End If
Next
End Sub
var bunu nasıl çalıştırırım şimdiden emeğinize teşekürler
