Sorgu için arama sonuçları: listcount

Aşağıdaki kodu sadece bir kere ekleyin. Sub Secim(Lbox As Control, Deger As Control) Dim Bak As Long For Bak = 0 To Lbox.ListCount - 1 Lbox.Selected(Bak) = Deger.Value Next End Sub Aşağıdaki kodu da her CheckBox için ayrı ayrı ekleyin. Aşağıdaki kod CheckBox1'in seçimine...

...Kaydet butonunun kodları . Private Sub CommandButton1_Click() Dim Bak As Integer Worksheets.Add Range("A1:A" & ListBox1.ListCount).Value = ListBox1.List Range("A1:A" & ListBox1.ListCount).NumberFormat = "dd/mm/yy hh:mm;@" For Bak = 1 To ListBox1.ListCount...

Tam olarak bu. Mükemmel çalıştı. İşleriniz hep yolunda gitsin. Çok teşekkür ederim.

Aşağıdaki kodları deneyin: Private Sub CommandButton3_Click() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1 For j = 0 To 6...

...Sheets("In").Range("B14:D18").ClearContents Application.ScreenUpdating = False sat = 14 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Sheets("In").Cells(sat, "B") = ListBox1.List(i, 0) Sheets("In").Cells(sat...

Yusuf Bey, kod ile değil sayfa ile alakalı sorunmuş. Yazdığınız kodda problem yok. Farklı bir uygulamada sorunsuz çalışıyor. İlgi, emek ve zaman ayırdığınız için çok teşekkür ederim.

...diğer 7 sütunun verisi bir alt B satırdan itibaren geliyor. Bir kayma oluyor. Private Sub CommandButton1_Click() For sat = 1 To ListBox1.ListCount - 1 For sut = 1 To 8 yeni = Sheets("Veri").Cells(Rows.Count, "A").End(3).Row + 1 Sheets("Veri").Cells(yeni, sut) = ListBox1.List(sat, sut - 1)...

...getiriyor. Kendimce düzelteyim dedim olmadı. Son çalışır hali aşağıda. Bu kodları nasıl istediğim hale getirebilirim? Private Sub CommandButton1_Click() For sat = 1 To ListBox1.ListCount - 1 For sut = 1 To 8 Sheets("Veri").Cells(sat + 1, sut) = ListBox1.List(sat, sut - 1) Next: Next End Sub

Korhan Bey çok teşekkür ederim. Kısmen çözüldü. Daha önce pek çok örnek kod denemiştim. .AddItem .List(0, 0) = "Barkod" .List(0, 1) = "Ürün Kodu" .List(0, 2) = "Ürün Adı" .List(0, 3) = "Adet" kod satırları ile listboxa başlık yazdırınca toplam alınacak sütun değerini metin olarak görüyor, o...

Örnek kodu kendi dosyanıza uyarlarsınız. Private Sub CommandButton1_Click() Dim X As Long, Toplam As Double For X = 0 To Me.ListBox1.ListCount - 1 Toplam = Toplam + Me.ListBox1.List(X, 3) Next TextBox1 = Format(Toplam, "#,##0.00") End Sub

Merhaba, Private Sub CommandButton5_Click() 'listbox aktarım ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = TextBox9.Value ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox10.Value ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox11.Value ListBox1.List(ListBox1.ListCount - 1, 3) =...

Korhan bey çok teşekkür ederim

Şu satırı kullanmanız yeterli olacaktır. ListBox1.ListIndex = ListBox1.ListCount - 1 Bu kod satırını Private Sub UserForm_Initialize() bölümünde End Sub satırından öncesine eklemeniz yeterli olacaktır.

Ömer bey merhabalar.Öncelikle cevabınız için teşekkür ederim. Verdiğiniz kodlar ile sadece ilk 50 satırı listeleyebiliyorum. Benim yapmak istediğim scrollbar'ın textbox her açıldığında en son satırı göstermesi. Bu şekilde yapabilmemiz mümkün müdür?

Private Sub UserForm_Initialize() For i = 1 To 50 Me.ListBox1.AddItem "Ali " & i Next i ListBox1.ListIndex = ListBox1.ListCount - 1 End Sub Örnektir.

...Call Temizle_Click 'Aidat Sayfasındaki veriyi Listbox 2 ye gönder ve tıklayınca ilgili sayfadaki veriyi seç For i = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(i) = True Then Sht00.Select Sht00.Range("F" & ListBox2.ListIndex + 2).Select 'Öğrenci Sıra No aktar...

...= False Application.DisplayAlerts = False yer = ActiveSheet.Name Dim myArray() As Variant Dim i As Integer son = 0 For i = 1 To ListBox1.ListCount If ListBox1.Selected(i - 1) = True Then son = 1 Exit For End If Next If son = 0 Then MsgBox "Sayfa seçimi yapmadınız" Exit Sub End If Dosya_Adı...

....AddItem Format(sh.Cells(i, 2), "dd.mm.yyyy") For j = 1 To 22 .List(ListBox1.ListCount - 1, j) = sh.Cells(i, j + 2) Next j ' .List(ListBox1.ListCount...

Hocam Çok Teşekkür Ederim. Sorunsuz hem çoklu hem de diğer seçeneği çalıştı. Saygılar

...Private Sub CommandButton1_Click() Cells(Me.TextBox1, Me.TextBox2) = Me.ListBox1 ActiveCell = "" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If ListBox1.List(i) = "Diğer" Then 10 Veri = InputBox("Lütfen diğer seçimi için açıklama...