Sorgu için arama sonuçları: listcount

..."A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount - 1, 1) = ws.Cells(i, "B").Value End If Next i ComboBox1.Text = eskiText ComboBox1.SelStart = Len(eskiText) If ComboBox1.ListCount > 0...

dönüş yaptığınız için çok teşekkür ederim ancak baka bildim bu aralar eşimin rahatsızlığından dolayı girip bakamadım dosyayı paylaşıyorum akarsanız sevinirim birden fazla sıkıntı var baş harfi yazdınmı o harf içeren tüm liste açılıyor ve birdaha işlem yapmıyor birde listeden isim seçince...

...= 2 To sonSatir If InStr(LCase(ws.Cells(i, "A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount - 1, 1) = ws.Cells(i, "B").Value End If Next i ComboBox1.DropDown End Sub 3️⃣ Buton Kodu (Sayfa2’ye Yazma) Private Sub...

abi çok teşekkür ederim hata veriyor ama dur bakalım çözeceğim inşallah. tekrar teşekkürler

...UserForm_Initialize() dolu_son_satır = Sheets("Günlük").Cells(65536, "A").End(xlUp).Row ListBox1_Yukle Satirsayisi = ListBox1.ListCount q = Sheets("Günlük").Range("1:1").End(xlToRight).Column w = Sheets("Günlük").Range("a10000").End(xlUp).Row For a = 1 To q...

Muzaffer bey çok uğraştım devamlı hata veriyor ilgili yerleride değiştirdim olmadı. bi bakabilirmisiniz size zahmet dosyayı ekliyorum. https://dosya.co/mcazfz4k8wwd/akçapınar_kasa_programı.xlsm.html

...For Bak = SonSatir To 2 Step -1 ListBox1.AddItem .Cells(Bak, "A").Value ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Bak, "B").Value ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Bak, "C").Value ListBox1.List(ListBox1.ListCount - 1, 3)...

...-1 If sayfa.Cells(i, 1).Value <> "" Then ListBox1.AddItem sayfa.Cells(i, 1).Value ListBox1.List(ListBox1.ListCount - 1, 1) = sayfa.Cells(i, 2).Value ListBox1.List(ListBox1.ListCount - 1, 2) = sayfa.Cells(i, 3).Value...

Korhan Bey ellerinize sağlık çok teşekkür ederim. Fakat birşey daha sorsam yanlış olur mu? Listbox ın otomatik güncellenmesi nasıl yapılır? Misal Listbox2 ye veri geldiğinde listbox2 deki kodlar aktif hale gelmesi nasıl olur?

...For Each isim In Alan If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then liste = ListBox3.ListCount ListBox3.AddItem ListBox3.List(liste, 0) = isim 'Sutun B ListBox3.List(liste, 1) = isim.Offset(0, 1)...

...For i = 10 To 100 Step 5 If ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value <> "" Then ComboBox1.AddItem ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value ComboBox1.List(ComboBox1.ListCount - 1, 1) = i End If Next i End Sub örnek dosyada ekledim.

..."dd.mm.yyyy") Else rowData(i) = CStr(rs.Fields(i).Value) End If Next i Me.lstKayıtlar.AddItem rowData(0) For i = 1 To 15 Me.lstKayıtlar.List(Me.lstKayıtlar.ListCount - 1, i) = rowData(i) Next i rs.MoveNext Loop ' Temizlik rs.Close: cnn.Close Set rs = Nothing: Set cnn = Nothing End Sub

...Set sf = Sheets("Sayfa1") ListBox1.RowSource = "" ListBox1.Clear For i = 1 To Range("a65536").End(3).Row If sf.Range("A" & i) Like TextBox6.Value & "*" Then 'A sütununda arama yapar. ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = sf.Range("A" & i) End If Next i End Sub

merhaba merhaba denedim ustad şöyle ara kısmında j alanına kadar getiriyor toplam sutun 14 fakat 10 sutun geliyor aramada ayrıca bi hata veriyor aramada (hata could the set the list property.Invaled property value) data kısmındaki ilk alanı a: sutunu aktarıyor buna gerek yok sıra no olduğu...

...= 11 listonay.ColumnWidths = "27;50;60;60;240;60;60;120;120;220;60" listonay.RowSource = "TUTARSIZLIK!A2:K240" ' If listonay.ListCount = 0 Then Exit Sub For i = 0 To listonay.ListCount = -1 If i Mod 2 = 0 Then listonay.Selected(i) = True End If Next listonay.Enabled = False End Sub Merhaba...

For i = Me.ListBox1.ListCount - 1 To 0 Step -1 If Not (Me.ListBox1.List(i, 0) = Me.TextBox26.value Then Me.ListBox1.RemoveItem i End If Next i

Teşekkür ederim kardeşim bu kodla sorunsuz çalıştı eline sağlık

Do While Not rs.EOF ListBox1.AddItem rs.Fields("StokAdı").Value ListBox1.List(ListBox1.ListCount - 1, 1) = rs.Fields("Tarih").Value ListBox1.List(ListBox1.ListCount - 1, 2) = rs.Fields("Fiyatı").Value ListBox1.List(ListBox1.ListCount - 1, 3) =...

...verileri ListBox'a ekleyin Do While Not rs.EOF ListBox1.AddItem rs.Fields("StokAdı").Value ListBox1.List(ListBox1.ListCount - 1, 1) = rs.Fields("Tarih").Value ListBox1.List(ListBox1.ListCount - 1, 2) = rs.Fields("Fiyatı").Value...

bu arada Do While Not rs.EOF ListBox1.AddItem rs.Fields("StokAdı").Value ListBox1.List(ListBox1.ListCount - 1, 1) = rs.Fields("Tarih").Value ListBox1.List(ListBox1.ListCount - 1, 2) = rs.Fields("Fiyatı").Value ListBox1.List(ListBox1.ListCount - 1, 3) =...