Sorgu için arama sonuçları: listcount

  1. A

    Listboxta bir sütundaki toplamı alma

    Hocam merhaba bu kodu hangi bölüme ekliyoruz?
  2. ahmed_ummu

    Listbox'a Sayfadaki Yatay Bilgileri Aldırma

    Teşekkürler Muzaffer Ali bey . Listbox'a verileri alırken İmleç aktif satırın A sütununda. Listbox'a almadı. Örnek dosyayı ekledim. Önce 4 adet combobox dan veriler seçilecek. Seöildikten sonra imleç hangi kişi seçili ise o kişinin A sütunundaki hücreye konumlanıyor. o işlemden sonra...
  3. Muzaffer Ali

    Listbox'a Sayfadaki Yatay Bilgileri Aldırma

    ...ListBox1.ColumnCount = 3 For Bak = 14 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3 ListBox1.AddItem Cells(1, Bak) ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(1, Bak + 1) ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(1, Bak + 2) Next End Sub
  4. C

    CheckBox ile ListBox'da Filtreleme

    Veysel Emre bey Yukarıdaki kodlar güzel çalışıyor ancak ben tümünü göstertmek için checkbox ekledim ve ona "Tümü" yazdım onu nasıl bu formüle uygulayabiliriz tümü dediğimde diğer checkboxlardaki işaretlerin kalkması gerekiyor
  5. veyselemre

    CheckBox ile ListBox'da Filtreleme

    ...listele() With ListBox1 .List = lst If CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Then For i = .ListCount - 1 To 0 Step -1 If Not ((CheckBox1.Value And .List(i, 7) = CheckBox1.Caption) Or _ (CheckBox2.Value And...
  6. C

    UserForm ListBox'ı Print Macro

    Kulomer46 Çok teşekkürler oldu :)
  7. kulomer46

    UserForm ListBox'ı Print Macro

    ...= "YeniSayfa" atla1: 'If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, "" For i = 0 To ListBox5.ListCount - 1 For a = 0 To ListBox5.ColumnCount - 1 With Sheets("YeniSayfa") .Cells(i + 2, a + 1).Value = ListBox5.List(i, a) End With Next a, i i =...
  8. C

    UserForm ListBox'ı Print Macro

    ...= "YeniSayfa" If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, "" For i = 0 To ListBox5.ListCount - 1 For a = 0 To ListBox5.ColumnCount - 1 With Sheets("YeniSayfa") .Cells(i + 2, a + 1).Value = ListBox5.List(i, a) End...
  9. Mdemir63

    Listbox Boş ise

    hocam yaptım . 1 adet veri varken de tamamen boş olduğunda 1 gösterdi
  10. Korhan Ayhan

    Listbox Boş ise

    Aşağıdaki kodu çalıştırıp test edebilirsiniz. MsgBox Listbox1.ListCount Bu kod size nesnede bulunan veri sayısını verecektir.
  11. Mdemir63

    Listbox Boş ise

    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
  12. C

    LİSTBOX'DAN VE SAYFADAN SİLMEK

    By Fika çok teşekkürler gayet güzel olmuş :)
  13. ÖmerFaruk

    LİSTBOX'DAN VE SAYFADAN SİLMEK

    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...
  14. byfika

    LİSTBOX'DAN VE SAYFADAN SİLMEK

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

    Yıllık izinde hesaplaması

    ...= 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)...
  16. S

    sil hatası

    ...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...
  17. N

    Soru sayfalar arası veri aktarımı. vba

    çok tşk eerim hocam sağ olun var olun
  18. M

    arama yapınca sarıya boyansın kelimeler

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

    Soru sayfalar arası veri aktarımı. vba

    ...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...
  20. ÖmerFaruk

    arama yapınca sarıya boyansın kelimeler

    ...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)...
Üst