Sorgu için arama sonuçları: listcount

...= "aac" Or deger5 = "aa3" Or deger5 = "ogg" Or deger5 = "amr" Or _ deger5 = "vop" Or deger5 = "asf" Or deger5 = "mov" Then say = ListBox1.ListCount ListBox1.AddItem ListBox1.List(say, 0) = say + 1 ListBox1.List(say, 1) = Dosya ListBox1.List(say, 2) = Dosya.Name ListBox1.List(say, 3) =...

...dizayn etmenizi rica edeceğim. addıtem dişinda bir ekleme türü bilmiyorum. ListBox1.AddItem Tb1_SutKodu LBoxSatırı = ListBox1.ListCount - 1 '.......................................................................................................LİSTBOXA EKLEME...

Benim düzeltme yaptığım kodu denediniz mi ?

Merhaba Label90 = EVRAKARAMA.ListCount Bu kod ile listbox daki toplamı veriyor. İstenilen I sütundaki dolu hücreler.

Eğer arada boş kayıtlar olacaksa bu kodu deneyin. Olmayacaksa DoğanD üstadın söylediği gibi ekstra koda ihtiyacınız yok. toplam = 0 For i = 0 To EVRAKARAMA.ListCount - 1 If EVRAKARAMA.List(i, 8) <> "" Then toplam = toplam + 1 Next i Label90 = toplam

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