Sutundaki aynı verilerin birer tanesini listview e alma

[ridvan2111]

Selam arkadaşlar.

Dim i As Long, a, deg, s1 As Worksheet

Set s6 = Sheets("desen bilgileri")

With CreateObject("Scripting.Dictionary")
For i = 3 To s6.Cells(Rows.Count, "E").End(xlUp).Row
deg = s6.Cells(i, "E")
If Not .exists(deg) Then .Add deg, Nothing
Next i
a = .keys
End With

With Me.ComboBox1
.Clear
.List = a
End With

yukarıda yazılı kod ile E sutunundaki verileri teke indirerek comboya alıyor.
aynısını ListView1 üzerine yapılabilirmi ?

 

[Orion1]

Selam arkadaşlar.




yukarıda yazılı kod ile E sutunundaki verileri teke indirerek comboya alıyor.
aynısını ListView1 üzerine yapılabilirmi ?

Evet,yapılır.
Örnek dosya ekleyiniz.

 

[ridvan2111]

Evet,yapılır.
Örnek dosya ekleyiniz.

Merhaba Evren bey.

İlginiz için teşekkür ederim
örnek dosyayı ekledim.


K sutunu ( depolar ) da teke indirerek listwiev e alacak

 

[Orion1]

Merhaba.
Dosyanız ektedir.

Sub lw1list()
Dim sat As Long, i As Long, z As Object, liste()
Dim sh As Worksheet
Set sh = Sheets("sipariş girişi")
ListView1.ListItems.Clear
sat = sh.Cells(Rows.Count, "K").End(xlUp).Row
If sat < 3 Then
    MsgBox "Sipariş girişinde veri yok!!" & vbLf & "İşlem iptal oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
liste = sh.Range("K3:K" & sat).Value
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
        ListView1.ListItems.Add , , liste(i, 1)
    End If
Next i
       
End Sub

Private Sub ListView1_Click()
'On Error Resume Next
x = ListView1.SelectedItem.Index
TextBox3.Text = ListView1.ListItems(x).Text
End Sub

 

[ridvan2111]

Merhaba.
Dosyanız ektedir.

Sub lw1list()
Dim sat As Long, i As Long, z As Object, liste()
Dim sh As Worksheet
Set sh = Sheets("sipariş girişi")
ListView1.ListItems.Clear
sat = sh.Cells(Rows.Count, "K").End(xlUp).Row
If sat < 3 Then
    MsgBox "Sipariş girişinde veri yok!!" & vbLf & "İşlem iptal oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
liste = sh.Range("K3:K" & sat).Value
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
        ListView1.ListItems.Add , , liste(i, 1)
    End If
Next i
       
End Sub

Evren bey Teşekkür ederim Tam olarak istediğim buydu.
Fakat Kendi çalışmama uyarlayamadım.
Sorunum listview1 click olayını çalıştıramadım

Ayrıca sorunun bende olduğunun farkındayım listview clik olayından bahsetmemiştim tekrar zahmet vereceğim için özürdilerim.

dosya ekte

 

[Orion1]

Evren bey Teşekkür ederim Tam olarak istediğim buydu.
Fakat Kendi çalışmama uyarlayamadım.
Sorunum listview1 click olayını çalıştıramadım

Ayrıca sorunun bende olduğunun farkındayım listview clik olayından bahsetmemiştim tekrar zahmet vereceğim için özürdilerim.

dosya ekte

Gerekli eklemeyi yaptım. 4 nolu mesajdan dosyanızı indirebilirsiniz.

 

[ridvan2111]

Gerekli eklemeyi yaptım. 4 nolu mesajdan dosyanızı indirebilirsiniz.

Çok Teşekkürler.