Sorgu için arama sonuçları: listcount

Hocam Kapatıp açtıktan sonra en alt satır gözüküyor. Teşekkür ederim. Kaydet dedigimde gözükmesini istiyorum. emeğinize saglık.(devamlı işlem yapacağım sonra kaydet diyecegim.

Userform initialize olayının en alt satırına aşağıdaki satırı ekleyin. ListBox3.TopIndex = ListBox3.ListCount

Adem bey, harika olmuş istediğim işlemi yapıyor. Emeğinize sağlık, saygılarımı sunuyorum. İyi çalışmalar diliyorum.

...Sub ComboBox9_Change() If ComboBox9.Value = "" Then UserForm_Initialize Else With Lst_depogrslıste For i = .ListCount - 1 To 1 Step -1 If .List(i, 0) <> ComboBox9.Value Then .RemoveItem (i) Next i End With End If End Sub

İlgilendiğiniz için teşekkür ederim kolay gelsin

...criterion).Value, a)) = UCase(Me.TextBox1.Text) Then With Me.ListBox1 .AddItem r .List(.ListCount - 1, 1) = Sayfa2.Cells(r, "A").Value .List(.ListCount - 1, 2) = Sayfa2.Cells(r, "B").Value .List(.ListCount - 1, 3) = Sayfa2.Cells(r, "C").Value...

LisBoxtan seçmek için; --------------------------- Private Sub ListBox1_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sheets("Veri Girişi").Select Sheets("Veri Girişi").Range("A" & ListBox1.List(ListBox1.ListIndex + 1, 0)).Select End If Next...

...veri 8. Satırda ise 600. Satıra gitmiyor 8. Satırı seçiyor bu konuda yardımcı olabilirseniz sevinirim. Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sheets("Veri Girişi").Select Sheets("Veri Girişi").Range("A" & ListBox1.ListIndex + 2).Select End...

Modulr3 deki kodu aşağıdaki gibi yapınca toplama yapıyor. Sub topla() For Row = 0 To UserForm12.ListBox1.ListCount - 1 Sum = Sum + Val(UserForm12.ListBox1.List(Row, 8)) Next Row UserForm12.TextBox1 = Sum Sum = 0 For Row = 0 To UserForm12.ListBox2.ListCount - 1...

@Muzaffer Ali Malesef yapamadım. Module4 içerisinde kod. İncelemek için userform12 çalıştırmanız gerekiyor

Aşağıdaki gibi bir msgbox ile toplanacak değeri kontrol edin. Sub topla2() For Row = 0 To UserForm12.ListBox2.ListCount - 1 MsgBox Val(UserForm12.ListBox2.List(Row, 8)) Sum = Sum + Val(UserForm12.ListBox2.List(Row, 8)) Next Row UserForm12.TextBox2 = Sum End Sub...

...toplama işlemi malesef olmuyor. Nerede hata yapıyorum ? Listbox1'i toplayan formül: Sub topla() For Row = 0 To UserForm12.ListBox1.ListCount - 1 Sum = Sum + Val(UserForm12.ListBox1.List(Row, 8)) Next Row UserForm12.TextBox1 = Sum End Sub Listbox2'yi toplayan fomül: Sub topla2() For...

Deneyiniz. Dim Liste As Integer Dim Satir As Integer For Liste = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(Liste) Then ListBox2.AddItem For Satir = 0 To ListBox1.ColumnCount ListBox2.List(ListBox2.ListCount - 1, Satir) =...

Kendi kodumla bunu nasıl birleştiricem onu anlamadım. Sadece bu kodu yaparsam sadece 1 column veri geliyor o da ilk olan

Merhaba. Dim Liste As Integer ListBox2.AddItem For Liste = 0 To ListBox1.ColumnCount ListBox2.List(ListBox2.ListCount - 1, Liste) = ListBox1.List(ListBox1.ListIndex, Liste) Next

...kalan 7 bölüm geçmiyor. hepsinin geçmesi için kodu nasıl değiştirmem gerek ? Dim z As Long ListBox2.ColumnCount = 9 For z = Me.ListBox1.ListCount - 1 To 0 Step -1 If Me.ListBox1.Selected(z) Then Me.ListBox2.AddItem Me.ListBox1.List(z, 0)...

...eklenebilir yada listbox1'in değeri arasında dolaşılıp içinde 2 geçmeyenler ListBox1.RemoveItem (x) ile silinebilir For x = ListBox1.ListCount - 1 To 0 Step -1 If Not ListBox1.List(x) Like "*2*" Then ListBox1.RemoveItem (x) Next sisteminizin nasıl işlediğini bilemeden öneriler...

...To UBound(List) If InStr(1, List(t, 1), Trim(TextBox1), vbTextCompare) Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = List(t, 1) ListBox1.List(ListBox1.ListCount - 1, 1) = List(t, 2) ListBox1.List(ListBox1.ListCount - 1, 2) = List(t, 3)

...ListBox1.AddItem List(t, 1) End If Next End Sub Ama bu seferde sadece mesela ismi getiriyor yanındaki bilgileri getirmiyor, ListBox1.List(ListBox1.ListCount - 1, 1) = List.Offset(0, 1) ListBox1.List(ListBox1.ListCount - 1, 2) = List.Offset(0, 2) denedim olmadı.

...If InStr(1, oteladi, TextBox1.Text, vbTextCompare) > 0 Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = oteladi ListBox1.List(ListBox1.ListCount - 1, 1) = oteladi.Offset(0, 1) ListBox1.List(ListBox1.ListCount - 1, 2) = oteladi.Offset(0...