Sorgu için arama sonuçları: listcount

Merhaba, Neden döngü yerine direkt aşağıdaki gibi kullanmıyorsunuz? Ayrıca Formun Initialize olayındaki kısım da hatalı, şehirleri yan yana gösteriyor. Orayı da aşağıdaki kodla çalıştırabilirsiniz diye düşünüyorum. Label90 = EVRAKARAMA.ListCount

...hücre toplamını label de görmek istiyorum. Aşağıdaki kodu uygulamaya çalıştım ama olmadı. Gelen değerler gerçeği yansıtmıyor .Hata nerede yardımcı olabilir misiniz? Teşekkür ederim. toplam = 0 For i = 8 To EVRAKARAMA.ListCount toplam = toplam + Val(EVRAKARAMA.List(i - 8)) Next i Label90 =...

Sayın Muzaffer Ali Desteğiniz için teşekkür ederim. Evrakarama sayfasına For i = 1 To EVRAKARAMA.ListCount - 1 T1 = EVRAKARAMA.List(i - 1, 8) + T1 Next i Label90 = T1 Bu kodu yazdım ama değerler sayısal gelmiyor. Nasıl bir düzeltme yapmam gerekiyor? Teşekkürler.

Merhaba. Kaydet butonunun kodlarının en alt satırına Label52.Caption = İŞLEMGİRİŞEKRANI.ListCount satırını ekleyin. Teslim edilen sayısı ne zaman ve hangi kod ile değişiyorsa (Ben bulamadım) oraya da bunun gibi bir satır eklenmesi gerekiyor.

Deneyiniz. Private Sub ListTopla() Dim Bak As Integer Dim sy As Double For Bak = 0 To ListBox1.ListCount - 1 TextBox6.Text = Topla(TextBox6.Text, ListBox1.List(Bak, 6)) TextBox7.Text = Topla(TextBox7.Text, ListBox1.List(Bak, 7)) TextBox8.Text =...

Merhaba. Dim Bak As Integer For Bak = 0 To ListBox1.ListCount - 1 TextBox6.Text = Val(TextBox6.Value) + ListBox1.List(Bak, 6) TextBox7.Text = Val(TextBox7.Value) + ListBox1.List(Bak, 7) TextBox8.Text = Val(TextBox8.Value) + ListBox1.List(Bak, 8)...

...Textlerine yazmak istiyorum. Yardımcı olursanız sevinirim. Şimdi den Teşekkürler Dim X As Long, Topla As Double For X = 0 To ListBox1.ListCount - 1 If ListBox1.List(X, 6) <> "" Then Topla = Topla + ListBox1.List(X, 6) End If Next Tb_GtopHazıne =...

Gayet güzel çalışııyor elinize sağlık. Kodun üstüne adınızı yazacağım.

...muhtemeldir. Deneyiniz... Dim a As Integer Dim b As Byte, s As Byte, x1 As Byte Dim x As String Dim dz As Variant ReDim dz(ListBox1.ListCount - 1, 1) For b = LBound(dz) To UBound(dz) dz(b, 0) = ListBox1.List(b, 0) dz(b, 1) = 0 Next With Range("A1:D5") .ClearContents Randomize For a...

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