Sorgu için arama sonuçları: listcount

  1. cems

    Lisboxtan sayfaya sayı formatında veri aktarımı yapamıyorum

    ...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)...
  2. N

    textbox arama yap getir kapalı excel dosyasından

    ...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
  3. H

    Lisboxtan sayfaya sayı formatında veri aktarımı yapamıyorum

    ...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)
  4. W

    ADO / Çoklu Filtreleme / Sorgu

    ...= 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 +...
  5. veyselemre

    İki Listbox Arası Veri Aktarma / Var olanı tekrar aktarmadan

    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...
  6. W

    İki Listbox Arası Veri Aktarma / Var olanı tekrar aktarmadan

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

    ListBoxta Seçili Satır Sayısını Bulma

    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
  8. ahmed_ummu

    Listbox'ta Döngü Kurma

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

    Listbox'ta Döngü Kurma

    Ş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...
  10. ahmed_ummu

    Listbox'ta Döngü Kurma

    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...
  11. D

    Listbox'ta Döngü Kurma

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

    Soru Combobox içinde arama

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

    user form esc ile kapatma olayı

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

    Soru Media player

    ...= "aac" Or deger5 = "aa3" Or deger5 = "ogg" Or deger5 = "amr" Or _ deger5 = "vop" Or deger5 = "asf" Or deger5 = "mov" Then say = ListBox1.ListCount ListBox1.AddItem ListBox1.List(say, 0) = say + 1 ListBox1.List(say, 1) = Dosya ListBox1.List(say, 2) = Dosya.Name ListBox1.List(say, 3) =...
  15. B

    Listbox sutun sayısı yetmiyor

    ...dizayn etmenizi rica edeceğim. addıtem dişinda bir ekleme türü bilmiyorum. ListBox1.AddItem Tb1_SutKodu LBoxSatırı = ListBox1.ListCount - 1 '.......................................................................................................LİSTBOXA EKLEME...
  16. Cengiz Demir

    Soru Listbox daki dolu sütun değeri

    Benim düzeltme yaptığım kodu denediniz mi ?
  17. vuranoğlu

    Soru Listbox daki dolu sütun değeri

    Merhaba Label90 = EVRAKARAMA.ListCount Bu kod ile listbox daki toplamı veriyor. İstenilen I sütundaki dolu hücreler.
  18. Cengiz Demir

    Soru Listbox daki dolu sütun değeri

    Eğer arada boş kayıtlar olacaksa bu kodu deneyin. Olmayacaksa DoğanD üstadın söylediği gibi ekstra koda ihtiyacınız yok. toplam = 0 For i = 0 To EVRAKARAMA.ListCount - 1 If EVRAKARAMA.List(i, 8) <> "" Then toplam = toplam + 1 Next i Label90 = toplam
Üst