polis-53
Altın Üye
- Katılım
- 26 Aralık 2008
- Mesajlar
- 1,118
- Excel Vers. ve Dili
- EXCEL 2016 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 23-02-2025
Merhaba arkadaşlar combobox um sayfa1 de verilerim sayfa2 de aşağıdaki kodla combobox a verileri nasıl alabilirim.
Private Sub ComboBox1_Change()
Call adet
End Sub
Sub benzersiz()
Dim a&, sayi$, y, x
With CreateObject("Scripting.Dictionary")
y = Range("L2:L" & Cells(Rows.Count, "L").End(3).Row).Value
For a = 1 To UBound
sayi = y(a, 1)
If Not .Exists(sayi) Then
.Add sayi, y(a, 1)
End If
Next a
'Range("D1").Resize(.Count, 1).Value = Application.Transpose(.Keys)
'Range("E1").Resize(.Count, 1).Value = Application.Transpose(.Items)
x = .keys
End With
ComboBox1.List = x
sayi = Empty: a = Empty
End Sub
Private Sub ComboBox1_DropButtonClick()
Call benzersiz
End Sub
Private Sub ComboBox1_Change()
Call adet
End Sub
Sub benzersiz()
Dim a&, sayi$, y, x
With CreateObject("Scripting.Dictionary")
y = Range("L2:L" & Cells(Rows.Count, "L").End(3).Row).Value
For a = 1 To UBound
sayi = y(a, 1)
If Not .Exists(sayi) Then
.Add sayi, y(a, 1)
End If
Next a
'Range("D1").Resize(.Count, 1).Value = Application.Transpose(.Keys)
'Range("E1").Resize(.Count, 1).Value = Application.Transpose(.Items)
x = .keys
End With
ComboBox1.List = x
sayi = Empty: a = Empty
End Sub
Private Sub ComboBox1_DropButtonClick()
Call benzersiz
End Sub