Sorgu için arama sonuçları: listcount

Selamlar Arkadaşlar Listbox boş ise işlem yapmasın istiyorum. aşağıdaki 3 seçeneği de denedim olmadı. If Listbox1.ListCount = 0 Then Exit Sub If Listbox1.ListCount < 0 Then Exit Sub If Listbox1.ListCount = -1 Then Exit Sub

By Fika çok teşekkürler gayet güzel olmuş :)

Denemeden yazıyorum. byfikanın gösterdiği kodda şu satırı kodların en altına taşımanız daha mantıklı olacak. For i = 0 To Me.ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp...

Merhabalar, Araç sil butonuna (CommandButton5) alttaki kodları yazıp dene misiniz? For i = 0 To Me.ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp Me.ListBox1.RowSource =...

...= cbvardiya .Range("V" & sonsat) = Now .Range("W" & sonsat) = Environ("USERNAME") End With If sonsat = ListBox1.ListCount + 1 Then tnm.Range("K2") = tnm.Range("K2") + 1 End If kac = WorksheetFunction.Match(txtID, per.Range("A:A"), 0)...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To lstdesimaldosya.ListCount - 1 If lstdesimaldosya.Selected(a) Then ara = lstdesimaldosya.List(a, 0) Sheets("DESİMALDOSYA").Range("B:B").Find(what:=ara...

çok tşk eerim hocam sağ olun var olun

hocam ben yapamam keşke yapabilsem,ekledim ama olmadı sanırım yapamadım.

...False ListBox1.RowSource = "'personel listesi'!B5:K" & Sheets("personel listesi").[c65536].End(xlUp).Row End If For X = XD To ListBox1.ListCount Sheets("personel listesi").Cells(X, 1) = X - 1 Next If Cks <> "" Then MsgBox "Çıkış Kaydı Tamamlandı", vbCritical Else MsgBox...

...yada silebilirsiniz. Private Sub ListBox1_Click() Dim hcr As Range Range("B2:H132").Interior.Color = xlNone If Me.ListBox1.ListCount = 0 Then Exit Sub Dizi = Range("A1:I132").Value For i = 1 To UBound(Dizi) If Dizi(i, 1) = "" Then Dizi(i, 1) = Dizi(i - 1, 1)...

...Date1) ComboBox2.AddItem Format(Date1 - 1, "dd.mm.yyyy") Loop ComboBox1.ListIndex = 0 ComboBox2.ListIndex = ComboBox2.ListCount - 1 CombolarEnable = True End Sub Sub Listbox() sql = "Select f1,f2,f3,f4,format([f5],""dd.mm.yyyy""),format([f6],""dd.mm.yyyy""),f7,f8...

Lstgelenevrak.ListIndex = Lstgelenevrak.ListCount - 1 bu kod ile son satırı gösterme yaparak düzenledim. Şu anda en iyi sonuç bu oldu

...ListBox1.ColumnCount = 3 ListBox1.ColumnWidths = "30;70;150" ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = s1.Cells(i, "a").Value ListBox1.List(ListBox1.ListCount - 1, 1) = s1.Cells(i, "b").Value...

...For i = 2 To ToplamSatir If Range("f" & i).Value Like TextBox_sicil.Value & "*" Then liste = ListBox1.ListCount ListBox1.AddItem ListBox1.List(liste, 0) = Range("A" & i).Value ListBox1.List(liste, 1) = Range("B" & i).Value...

...= "100;60;40;40" .ListBox1.Height = 150 .ListBox1.Column = My_List End With For ii = 1 To ListBox1.ListCount - 0 topla = CDbl(ListBox1.List(ii - 1, 1) + topla) Next ii TextBox17 = vbCrLf & "GENEL TOPLAM :" & " " & Format(topla, "#,##0.00") Set Sh = Nothing...

...= "100;60;40;40" .ListBox1.Height = 150 .ListBox1.Column = My_List End With For ii = 1 To ListBox1.ListCount - 2 topla = CDbl(ListBox1.List(ii - 1, 1) + topla) Next ii TextBox17 = vbCrLf & "GENEL TOPLAM :" & " " & Format(topla, "#,##0.00") Set Sh = Nothing...

For ii = 1 To ListBox1.ListCount - 1 topla = CDbl(ListBox1.List(i - 1, 0) + topla ) Next i TextBox17 = vbCrLf & "GENEL TOPLAM :" & " " & Format(topla, "#,##0")

...23.000 rakamını 23 olarak topluyor.Sanırım format hatası var.Yardımcı olabilir misiniz.?.Teşekkür ederim. For ii = 0 To ListBox1.ListCount - 1 topla = topla + Val(ListBox1.list(ii, 1)) Next ii TextBox17 = vbCrLf & "GENEL TOPLAM :" & " " & Format(topla, "#,##0") end sub

...& "/" & "January" & "/" & Me.ComboBox1.Value, y) Me.ListBox3.AddItem Format(a, "MMMM") For i = 0 To ListBox3.ListCount - 1 Me.ListBox3.List(ListBox3.ListCount - 1, 1) = Application.WorksheetFunction.SumIfs(Sheets("Takip").Range("G:G"), Sheets("Takip").Range("D:D"), _ ">=" & a...

...ListBox( i+1, 1) gibi ifade yazamıyoruz sanırım sadece Dizilerde mi yazabiliyoruz Dim l As Long ListBox3.AddItem For i = 0 To ListBox3.ListCount - 1 l = Fix(ListBox3.List(i, 1) / 60 / 8) If l < 1 Then ListBox3.List(i, 2) = 0 ListBox3.List(i + 1, 1) = CDbl(ListBox3.List(i, 1)) +...