Sorgu için arama sonuçları: listcount

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

Merhaba, deneyip sonucu paylaşabilir misiniz; Private Sub CommandButton1_Click() ActiveCell.Offset(0, 2) = "" For a = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(a) = True Then ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) & ListBox1.List(a) & ", "...

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

...= "80;80;80;80;80;0" For i = 2 To sonSatir With ListBox1 .AddItem ws.Cells(i, "A").Value .List(.ListCount - 1, 1) = ws.Cells(i, "B").Value .List(.ListCount - 1, 2) = ws.Cells(i, "C").Value .List(.ListCount - 1, 3) = ws.Cells(i...

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

Selam arkadaşlar aşağıdaki komut ile 1 sayfa yazdırabiliyorum a1 hücresine yazdığım sayı kadar yazıcıdan çıktıyı nasıl alabilirim For i = 0 To Me.ListBox1.ListCount - 1 Me.ListBox1.ListIndex = i Sheets("NORMAL").Cells(7, 3) = Me.TextBox8.Text Sheets("NORMAL").PrintOut Next End If

Böyle dener misiniz ? Private Sub UserForm_Initialize() ComboBox1.RowSource = "A1:B5" For i = 0 To ComboBox1.ListCount - 1 If ComboBox1.List(i, 0) = 4 Then ComboBox1.Value = ComboBox1.List(i, 0) & " " & ComboBox1.List(i, 1) Next End Sub

...' ListBox1'e veri ekleme With ListBox1 .AddItem .List(.ListCount - 1, 0) = SiparisNo .List(.ListCount - 1, 1) = STarih .List(.ListCount - 1, 2) = TTutar End With...

...S1.Cells(c.Row, "J") With ListBox1 .AddItem .List(.ListCount - 1, 0) = SiparisNo .List(.ListCount - 1, 1) = STarih .List(.ListCount - 1, 2) = TTutar...

...Dim c As Long, k As Long, u As Long, m As Long u = Sayfa2.Range("a65536").End(3).Row For c = 1 To 6 For k = 0 To ListBox1.ListCount - 1 Sayfa2.Cells(u + k + 1, c).Value = ListBox1.List(k, c - 1) Sayfada A,B,C,D,E,F Sütunlarındaki satırlara yazdırıyorum. Yapmak istediğim sayfada G sütunu...

...ListBox1.AddItem k.Offset(0, -3).Value ListBox1.List(ListBox1.ListCount - 1, 1) = k.Offset(0, -2).Value ListBox1.List(ListBox1.ListCount - 1, 2) = k.Offset(0, -1).Value ListBox1.List(ListBox1.ListCount - 1, 3) = k.Offset(0, 0).Value ListBox1.List(ListBox1.ListCount - 1, 4) = k.Offset(0...

...kodları aşağıya ekledim. Bu kodlara istediğim düzenleme yapılabilir mi? Teşekkür ederim. ListBox1.MultiSelect = 1 For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i) = TextBox2.Text Then ListBox1.Selected(i) = True End If Next For z = 0 To...

...ederim. Birde farkli bir userform daki listbox a aktarmam gereken yer var. Kodu aşağıdaki şekile getirdim ama hata veriyor? If Me.ListBox1.ListCount > 0 Then Me.SiparisMenu.ListBox2.Clear Me.SiparisMenu.ListBox2.List = Me.ListBox1.List End If Ayırdığınız zaman ve emek...

Private Sub CommandButton1_Click() If Me.ListBox3.ListCount > 0 Then Me.ListBox5.Clear Me.ListBox5.List = Me.ListBox3.List End If End Sub

..."i", "İ"), "ı", "I")) = TextBox1 Then ListBox2.AddItem Worksheets("SipY").Range("A" & i) ListBox2.List(ListBox2.ListCount - 1, 1) = Worksheets("SipY").Range("B" & i) ListBox2.List(ListBox2.ListCount - 1, 2) = Worksheets("SipY").Range("D" & i) TextBox2.Text =...