Sorgu için arama sonuçları: listcount

...= 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...

...yeniden arama yaparak yine doğru olarak çalışır. Private Sub TextBox1_Change() If Len(TextBox1) < 3 Then Exit Sub verisayisi = ComboBox1.ListCount - 1 uzunluk = Len(TextBox1) Select Case IsNumeric(TextBox1) Case False: sutno = 0 Case True: sutno = 1 End Select For a = 0 To verisayisi If...

...KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) On Local Error Resume Next If KeyCode = vbKeyReturn Then For Z = 0 To ListBox1.ListCount DoEvents If ListBox1.Selected(Z) Then For i = 12 To 41 If Sayfa3.Cells(i, 1).Value = ListBox1.List(Z, 0) Then MsgBox "Aşağıdaki ürün Daha Önce...