Sorgu için arama sonuçları: listcount

  1. D

    Yazdır Komutunda a1 hücresindeki sayı kadar çıktı alma

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

    2 sütunlu bir comboBox' ta istenilen değeri getirme

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

    Sayfadan Listboxa alınan verileri, Sayfadan başka sayfayada alma

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

    Sayfadan Listboxa alınan verileri, Sayfadan başka sayfayada alma

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

    Listbox verileri sayfaya yazma işleminde 1 sütun atlatma.

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

    Excel hücreden textboxa alınan sayı çarpma işlemi sorunu

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

    Listbox additem ile alınan verileri çoklu silme

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

    Listbox un tamamını başka bir listbox a aktarma

    ...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...
  9. ÖmerFaruk

    Listbox un tamamını başka bir listbox a aktarma

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

    İstenilen satırları Listbox ve Sayfadan tek seferde silme

    ..."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 =...
  11. beza

    Listboxtan Listboxa veri aktarma hatası

    ...For i = 2 To Bekle ListBox1.AddItem Worksheets("SipY").Range("A" & i) ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("SipY").Range("B" & i) ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("SipY").Range("D" & i) ListBox1.List(ListBox1.ListCount - 1, 3) =...
  12. ÖmerBey

    Listbox seçili satırda sütun değiştirme hatası

    Merhaba, Açıkçası ListCount komutunu neden kullandığınızı anlayamadım, ya da ne yapmak istediğinizi... Kodu aşağıdaki şekilde dener misiniz? If X <> -1 Then SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value Adet = SiparisMenu.ListBox2.List(X, 3) Fiyat = SiparisMenu.ListBox2.List(X, 2)...
  13. beza

    Listbox seçili satırda sütun değiştirme hatası

    ...If X <> -1 Then SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value Adet = SiparisMenu.ListBox2.Column(3, SiparisMenu.ListBox2.ListCount - 1) Fiyat = SiparisMenu.ListBox2.Column(2, SiparisMenu.ListBox2.ListCount - 1) SiparisMenu.ListBox2.Column(4...
  14. ahmed_ummu

    Listbox'ta Filtreleme

    ...' ListBox1'deki verileri bir diziye aktar ListBoxVerileri = ListBox1.List Do While ListBox1.ListCount > 0 ListBox1.RemoveItem 0 ' BU SATIRDA HATA VERİYOR Loop ' Seçilen sütundaki verileri filtrele ve ListBox1'e ekle For i =...
  15. beza

    Listbox içindeki sütunlarda çarpma işlemi

    ...muyum? Ayırdığınız zaman için teşekkür ederim. Private Sub CommandButton1_Click() ListBox1.AddItem "Filtre Kahve" ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("Fiyatlar").Range("B2") & " TL" If ComboBox1 = "" Then ComboBox1.Text = "1" ListBox1.List(ListBox1.ListCount - 1, 2) =...
  16. K

    Listbox dan sayfaya istenilen sutunları aktarma hk.

    ...= False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents Dim lItem As Long For lItem = 0 To ListBox1.ListCount - 1 With Worksheets("LISTEGORUSME") Sheets("LISTEGORUSME").Cells(lItem + 2, 4) = ListBox1.List(lItem, 5)...
  17. K

    Listbox dan sayfaya istenilen sutunları aktarma hk.

    bu satırda hata verdi For i = 2 To .ListCount - 15
  18. Muzaffer Ali

    Listbox dan sayfaya istenilen sutunları aktarma hk.

    ...= False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents With lstFiltre For i = 2 To .ListCount - 15 Sheets("LISTEGORUSME").Range("D" & i).Value = .List(i - 2, 5) Sheets("LISTEGORUSME").Range("F" & i).Value = .List(i - 2, 6)...
  19. K

    Listbox dan sayfaya istenilen sutunları aktarma hk.

    ...Application.ScreenUpdating = False Sheets("LISTEGORUSME").Range("A2:N" & Rows.Count).ClearContents With ListBox1 For i = 2 To .ListCount - 15 Sheets("LISTEGORUSME").Range("D" & i).Value = .List(i, 5) Sheets("LISTEGORUSME").Range("F" & i).Value = .List(i, 6)...
  20. M

    ComboBox veri çekme hatası

    ...If .Range("B" & x) <> Empty Then cb_kabayem1.AddItem (.Range("B" & x)) cb_kabayem1.List(cb_kabayem1.ListCount - 1, 4) = (.Range("E" & x)) cb_kabayem1.List(cb_kabayem1.ListCount - 1, 7) = (.Range("H" & x))...
Üst