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
...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...
...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...
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)...
...' 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 =...
...= 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)...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.