bybedo
Altın Üye
- Katılım
- 19 Eylül 2006
- Mesajlar
- 7
- Excel Vers. ve Dili
- türkçe 0ffice 2003
- Altın Üyelik Bitiş Tarihi
- 23-10-2025
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