Sorgu için arama sonuçları: listcount

...For i = 2 To Bekle ListBox1.AddItem Worksheets("SipY").Range("A" & i) ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("SipY").Range("B" & i) ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("SipY").Range("D" & i) ListBox1.List(ListBox1.ListCount - 1, 3) =...

Merhaba, Açıkçası ListCount komutunu neden kullandığınızı anlayamadım, ya da ne yapmak istediğinizi... Kodu aşağıdaki şekilde dener misiniz? If X <> -1 Then SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value Adet = SiparisMenu.ListBox2.List(X, 3) Fiyat = SiparisMenu.ListBox2.List(X, 2)...

...If X <> -1 Then SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value Adet = SiparisMenu.ListBox2.Column(3, SiparisMenu.ListBox2.ListCount - 1) Fiyat = SiparisMenu.ListBox2.Column(2, SiparisMenu.ListBox2.ListCount - 1) SiparisMenu.ListBox2.Column(4...

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