Sorgu için arama sonuçları: listcount

..."C").Value <> "" Then ListBox1.AddItem ThisWorkbook.Sheets("Sayfa1").Cells(i, "c").Value ListBox1.List(ListBox1.ListCount - 1, 1) = i ListBox1.ListStyle = 1 ListBox1.MultiSelect = 1 End If End If Next i End Sub

üstad süpersin yaaa hepsi tam istediğim gibi olmuş sağolasın teşekürr ederim sağolasın.....

bu kod olayına ilave şöyle bir şey var kullandığım nasıl aktif edebilirim bu olaya acaba h alanına x yazdığımda x yazılı olan hücreleri gizliyor istediğim gizli olanlar combobox a gelmesin nasıl yapabilirim bunu hocam birde user formda ilave bitanede textbox3 var bunada combobox1 den seçilen...

merhaba üstad çok teşekürr ederim sağol geç cevap yazdım

..."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 Private Sub CommandButton1_Click() Dim urunAdi As String Dim urunSatir As Long If...

...If TextBox1 = "" Then TextBox2 = "" ListBox1.Clear ListBox2.Clear End If TextBox2 = ListBox1.ListCount TextBox3 = ListBox2.ListCount Call Topla_Logo Call Topla_Kademe End Sub Private Function Diz(ByVal Dizim As Variant, Stn1 As Integer, Stn2 As...

Aşağıda yer alan kod ile checkbox tıklandıkça işlem yapmak istiyorum ama listbox tıklamaları algılamıyor. Konu hakkında bilgisi olan var mı?

...upper_i(Me.TextBox1.Text), vbTextCompare) Then With Me.ListBox1 .AddItem S1.Cells(r, "A").Value .List(.ListCount - 1, 1) = S1.Cells(r, "B").Value .List(.ListCount - 1, 2) = S1.Cells(r, "C").Value .List(.ListCount - 1, 3) =...

...upper_i(Me.TextBox1.Text), vbTextCompare) Then With Me.ListBox1 .AddItem S1.Cells(r, "A").Value .List(.ListCount - 1, 1) = S1.Cells(r, "B").Value .List(.ListCount - 1, 2) = S1.Cells(r, "C").Value .List(.ListCount - 1, 3) =...

Bu kodla da ismi tam girdiğim de herşeyi siliyor.

...a)) = UCase(Me.TextBox1.Text) Then With Me.ListBox1 .AddItem S1.Cells(r, "A").Value .List(.ListCount - 1, 1) = S1.Cells(r, "B").Value .List(.ListCount - 1, 2) = S1.Cells(r, "C").Value .List(.ListCount - 1, 3) = S1.Cells(r...

..."B").Value, a)) = UCase(Me.TextBox1.Text) Then With Me.ListBox1 .AddItem S1.Cells(r, "A").Value .List(.ListCount - 1, 1) = S1.Cells(r, "B").Value .List(.ListCount - 1, 2) = S1.Cells(r, "C").Value .List(.ListCount - 1, 3) =...

...Each isim In Range("a2:a" & Range("A65536").End(xlUp).Row) If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then liste = ListBox1.ListCount With Me.ListBox1 .AddItem S1.Cells(liste, 0).Value .List(liste, 1) = S1.Cells(liste, 1).Value .List(liste, 2) =...

...ListBox1.Clear For Each isim In Range("a2:a" & Range("A65536").End(xlUp).Row) If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then liste = ListBox1.ListCount ListBox1.AddItem ListBox1.List(liste, 0) = isim End If Next...

...yeniSutun = 1 ' Verilerin hangi sütundan başlayacağını belirtin (2: B sütunu, 3: C sütunu, vb.) For i = 2 To List_BankaFisDetay.ListCount ' Başlık satırını atlamak için i = 2 ile başlıyoruz ' 9. sütundaki değeri kontrol et If List_BankaFisDetay.Column(8, i - 1) = "Cari"...

...yeniSutun = 1 ' Verilerin hangi sütundan başlayacağını belirtin (2: B sütunu, 3: C sütunu, vb.) For i = 2 To List_BankaFisDetay.ListCount ' Başlık satırını atlamak için i = 2 ile başlıyoruz ' 9. sütundaki değeri kontrol et If List_BankaFisDetay.Column(8, i - 1) = "Cari"...

...yeniSutun = 1 ' Verilerin hangi sütundan başlayacağını belirtin (2: B sütunu, 3: C sütunu, vb.) For i = 1 To List_BankaFisDetay.ListCount ' Son dolu satırı bul yenisatir = Sheets("BankaCari").Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Bir sonraki satıra yazdırmak için...

...yeniSutun = 2 ' Verilerin hangi sütundan başlayacağını belirtin (2: B sütunu, 3: C sütunu, vb.) For i = 2 To List_BankaFisDetay.ListCount ' i = 2 ile başlatıyoruz, böylece ilk satır atlanır ' Son dolu satırı bul yeniSatir = Sheets("BankaCari").Cells(Rows.Count...

...yeniSutun = 2 ' Verilerin hangi sütundan başlayacağını belirtin (2: B sütunu, 3: C sütunu, vb.) For i = 1 To List_BankaFisDetay.ListCount ' Son dolu satırı bul yeniSatir = Sheets("BankaCari").Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Bir sonraki satıra yazdırmak için...

...değil hep sayfanın 2.sütünündan başlıyor yardımlarınızı bekliyorum Sub CariAktar() Dim i As Byte For i = 1 To List_BankaFisDetay.ListCount yenisatir = Sheets("BankaCari").Cells(Rows.Count, 1).End(xlUp).Row - 1 Sheets("BankaCari").Cells(i + 1, "A").Value = List_BankaFisDetay.Column(0...