Sorgu için arama sonuçları: listcount

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

...Dim i As Long Dim j As Long Dim temp As Variant Dim veri As Variant ' ListBox verisini al For i = 0 To ListBox1.ListCount - 1 veri(i) = ListBox1.List(i) Next i ' Diziyi azalan sıraya göre sırala For i = 0 To UBound(veri) - 1 For j = i...

Teşekkür Ederim elinize sağlık tam istediğim gibi olmuş

...kalıyorum. Private Sub CommandButton1_Click() ActiveCell.Offset(0, 2) = "" If ActiveCell.Offset(0, 2) = "" Then For a = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(a) = True Then ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) & ListBox1.List(a) & ", " End If Next x =...

...' Satırı eklemeden önce kontrol et eklendi = False For i = 0 To listboxKontrol.Object.ListCount - 1 ' Her bir sütun için karşılaştırma yap If listboxKontrol.Object.List(i, 0) = satirVerileri(1) And _...

hocam öncelikle zaman ayirip cevap verdiginiz icin tesekkür ederim. maalesef verdiginiz kodlar ile sonuc alamadim herhangi hata da vermiyor, excel sayfasinda secili oda numarasini bulmuyor. dedigim gibi listboxta görünen veriyi secince textbox a veriler geliyor, fakat o veri excel...

...' ListBox'a veri ekle For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ListBox1.AddItem ws.Cells(i, 1).Value ListBox1.List(ListBox1.ListCount - 1, 1) = ws.Cells(i, 2).Value Next i End Sub Üretim Takibi Sayfası: Üretim için bir TextBox (üretim adı) ve bir CommandButton (kaydet)...

...Integer Dim j As Integer Dim sutunSayisi As Integer sutunSayisi = 2 ' ListBox'taki sütun sayısı For i = 0 To Me.PdfListBox.ListCount - 1 ' ListBox adını(PdfListBox) doğru referanslayın For j = 0 To sutunSayisi - 1 ' 0 dan başlandığı için -1 çıkarıyoruz...

Öncelikle bilginize emeğinize sağlık. Haftalardır çözmeye çalıştığım sorunuma yardımcı oldunuz çok teşekkür ederim. Son bir sorum olacak; PDF yerine excel dosyası olarak yapmak istesem neyi değiştirmem gerek?

...Dim j As Integer Dim sutunSayisi As Integer sutunSayisi = 7 ' ListBox'taki sütun sayısı For i = 0 To Me.MyListBoxName.ListCount - 1 ' ListBox adını(MyListBoxName) doğru referanslayın For j = 0 To sutunSayisi - 1 ' 0 dan başlandığı için -1 çıkarıyoruz...