combobox veri getirmek

[polis-53]

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

 

[Ziynettin]

y = sheets("sayfa2").Range("L2:L" & sheets("sayfa2").Cells(Rows.Count, "L").End(3).Row).Value satırını bu şekilde kullanın

 

[polis-53]

teşekkürler