Sorgu için arama sonuçları: listcount

...sonra maalesef kodum tek veriyi ekledikten sonra çalışmadı. Private Sub TekEklebtn_Click() Dim x As Integer listesayisi = NobetList.ListCount If listesayisi = 0 Then For x = 0 To PersonelList.ListCount - 1 If PersonelList.Selected(x) = True Then NobetList.AddItem (PersonelList.List(x)) For...

...verileri çekiyorum ama toplama yaparken sıkıntı çıkıyor lst2.Clear Label5.Caption = lstdata.List(lstdata.ListIndex) For a = 0 To lstdata.ListCount - 1 lstdata.Selected(a) = False If lstdata.List(a) = Label5.Caption Then lstdata.Selected(a) = True lst2.AddItem lstdata.List(a)...

ya hocam çok çalışmaktan beynim durmuş. Cells yapacağıma Rows yapmışım. Çok teşekkür ederim emeğinize sağlık.

...= Sheets("Sayfa1").Range("B3:B26").Value End If End Sub Private Sub asagibtn_Click() If ilacliste.ListIndex < ilacliste.ListCount - 1 Then Cells(ilacliste.ListIndex + 3, "B").Cut Cells(ilacliste.ListIndex + 5, "B").Insert Shift:=xlDown ilacliste.List =...

...i = 2 To Son If IsDate(Sayfa.Cells(i, "F").Value) Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = Sayfa.Cells(i, "B").Value ListBox1.List(ListBox1.ListCount - 1, 1) = Sayfa.Cells(i, "C").Value...

...yansıtmam gereken 7 veriyi tümden yansıtınca vba, excel donuyor kapanıyor. 2 veya 3 veri yansıttığımda ise çok yavaşta olsa çalışıyor. Listcount sayısını arttırdıkça uygulama donuyor. Fakat sorgulama değilde ayrı bir sayfada aynı verileri aynı sayıda listbox ve textbox ile listelediğimde...

Teşekkür ederim şuan kontrol edemiyorum telefondan baktım siz kontrol etme şansınız var mı ilginiz için sagolun

...= True 's1.Select ' 'son = s1.Cells(Rows.Count, 2).End(3).Row 'ListBox3.List = s1.Range("B4:K" & son).Value 'ListBox3.TopIndex = ListBox3.ListCount End Sub Private Sub KaydetButton() Dim ws As Worksheet Dim controlArray As Variant Dim control As Variant Dim emptyCount As...

Hocam çok teşekkür ederim harika oldu.

...son2 = s2.Cells(Rows.Count, 1).End(3).Row konum = "Kayıt Edilecek Klasör Yolunu Buraya Yazın" uzanti = ".pdf" sayi = ListBox1.ListCount soru = MsgBox("Listede bulunan " & sayi & " kişi için puantaj oluşturulsun mu?", vbQuestion + vbYesNo, "") If soru = vbYes Then s2.Range("A3:AJ" & son2 +...

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