Sorgu için arama sonuçları: listcount

...' ListBox1'deki verileri bir diziye aktar ListBoxVerileri = ListBox1.List Do While ListBox1.ListCount > 0 ListBox1.RemoveItem 0 ' BU SATIRDA HATA VERİYOR Loop ' Seçilen sütundaki verileri filtrele ve ListBox1'e ekle For i =...

...muyum? Ayırdığınız zaman için teşekkür ederim. Private Sub CommandButton1_Click() ListBox1.AddItem "Filtre Kahve" ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("Fiyatlar").Range("B2") & " TL" If ComboBox1 = "" Then ComboBox1.Text = "1" ListBox1.List(ListBox1.ListCount - 1, 2) =...

...= False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents Dim lItem As Long For lItem = 0 To ListBox1.ListCount - 1 With Worksheets("LISTEGORUSME") Sheets("LISTEGORUSME").Cells(lItem + 2, 4) = ListBox1.List(lItem, 5)...

bu satırda hata verdi For i = 2 To .ListCount - 15

...= False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents With lstFiltre For i = 2 To .ListCount - 15 Sheets("LISTEGORUSME").Range("D" & i).Value = .List(i - 2, 5) Sheets("LISTEGORUSME").Range("F" & i).Value = .List(i - 2, 6)...

...Application.ScreenUpdating = False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents With ListBox1 For i = 2 To .ListCount - 15 Sheets("LISTEGORUSME").Range("D" & i).Value = .List(i, 5) Sheets("LISTEGORUSME").Range("F" & i).Value = .List(i, 6)...

...If .Range("B" & x) <> Empty Then cb_kabayem1.AddItem (.Range("B" & x)) cb_kabayem1.List(cb_kabayem1.ListCount - 1, 4) = (.Range("E" & x)) cb_kabayem1.List(cb_kabayem1.ListCount - 1, 7) = (.Range("H" & x))...

çok teşekkür ediyorum

...Cells(p, 18), TextBox1.Value, vbTextCompare) > 0 Then ListBox1.AddItem ws.Cells(p, 1).Value ListBox1.List(ListBox1.ListCount - 1, 1) = CDbl(ws.Cells(p, 16).Value) ListBox1.List(ListBox1.ListCount - 1, 2) = CDbl(ws.Cells(p, 17).Value)...

...ListBox1.List(satir, 2) = rs.Fields("Birim") ListBox1.List(satir, 3) = rs.Fields("B-Fiyat") satir = satir + 1 End If rs.MoveNext Loop End If Set rs = Nothing: Set con = Nothing Label3.Caption = "Listelenen Kayıt Sayısı : " & ListBox1.ListCount End Sub

...1) & Cells(p, 16) & Cells(p, 17) & Cells(p, 18), 1) If Err.Number > 0 Then Err.Number = 0 Else ListBox1.AddItem Cells(p, 1) ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(p, 16) ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(p, 17) ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(p, 18)

...= Sheets("Koleksiyon") sonsat = s1.[A65536].End(3).Row s1.Range("A:A").Clear s1.Range("H:H").Clear x = 1 For i = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.Selected(i) = True Then s1.Cells(x, "A") = UserForm1.ListBox1.List(i) 'MsgBox s1.Cells(x, "H") x = x +...

Teşekkürler

Merhaba... Private Sub CommandButton1_Click() Dim i With CreateObject("Scripting.Dictionary") If ListBox2.ListCount > 0 Then For Each i In ListBox2.List .Item(i) = Null Next i End If If ListBox1.ListCount > 0 Then...

...Ancak daha önce seçip ve aktarılmış bir verinin tekrardan aktarılmaması için nasıl bir kod oluşturulmalıdır. Listboxlar tek sütundan oluşmakta. For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i, 0) End If Next i

Dener misiniz? Private Sub CommandButton1_Click() For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) =True Then say = say + 1 End If Next MsgBox "ListBox'ta " & say & " satır seçili.", vbInformation, "BİLGİ" End Sub

Çok teşekkürler sayın DoğanD elinize sağlık. İstediğim oldu.

Şu şekilde dener misiniz? dim i as integer For i = 0 To ListBox1.ListCount - 1 Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.list(i) 'Listbox'ta nasıl göründüğünü bilmiyorum. "Dosyaİsmi.xlsx" şeklinde uzantısı ile görünmüyorsa...

Sayın DoğanD ilgilendiğiniz için teşekkür ederim. Benim kodlarım aşağıda. (Döngünün içinde çalışacak kodlar) Listboxtaki verilerim STAJYER_ÖĞRENCİ_PUANTAJLARI adlı klasörde hepsi kapalı dosya. Döngü ile ilk veri seçili hale gelecek ve Listbox'ın hangi isim seçili ise o dosyayı açacak ve diğer...

...aşağıdaki gibi ayarlayabilirsiniz. Önemli nokta, Listbox'ın ilk iteminin indexi sıfırdır. Dolayısıyla döngüyü sıfırdan başlatmalı ve ListCount verisinin bir aşağısında bitirmelisiniz. ListBox1.List(i) koduyla da sıradaki veriyi kullanabilirsiniz. For i = 0 To ListBox1.ListCount - 1...