Sorgu için arama sonuçları: listcount

...Saygılar hocam 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 ActiveCell = "" Then ActiveCell = ListBox1.List(i) Else ActiveCell = ActiveCell &...

...Kodlarım, 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 ActiveCell = "" Then ActiveCell = ListBox1.List(i) Else ActiveCell = ActiveCell &...

Bu Burada C7 değilde Aktif hücreye nasıl gönderebiliriz. Seçili olan hücreye.

...SearchCriteria, i, n As Double On Error GoTo bitir SearchCriteria = Me.TextBox7.Value If SearchCriteria = "" Then Exit Sub n = ListBox1.ListCount For i = 0 To n - 1 If Left(ListBox1.List(i), Len(SearchCriteria)) = SearchCriteria Then ListBox1.ListIndex = i Exit Sub Exit For End If Next i...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgelenevrak.ListCount - 1 If Lstgelenevrak.Selected(a) Then ara = Lstgelenevrak.List(a, 0) Sheets("GELENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgidenevrak.ListCount - 1 If Lstgidenevrak.Selected(a) Then ara = Lstgidenevrak.List(a, 0) Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgelenevrak.ListCount - 1 If Lstgelenevrak.Selected(a) Then ara = Lstgelenevrak.List(a, 0) Sheets("GELENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgidenevrak.ListCount - 1 If Lstgidenevrak.Selected(a) Then ara = Lstgidenevrak.List(a, 0) Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgidenevrak.ListCount - 1 If Lstgidenevrak.Selected(a) Then ara = Lstgidenevrak.List(a, 0) Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To lstdesimaldosya.ListCount - 1 If lstdesimaldosya.Selected(a) Then ara = lstdesimaldosya.List(a, 0) Sheets("DESİMALDOSYA").Range("A:A").Find(what:=ara...

Bunu denemen lazım kaydet butonuna

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To lstdesimaldosya.ListCount - 1 If lstdesimaldosya.Selected(a) Then ara = lstdesimaldosya.List(a, 0) Sheets("DESİMALDOSYA").Range("A:A").Find(what:=ara...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To lstdesimaldosya.ListCount - 1 If lstdesimaldosya.Selected(a) Then ara = lstdesimaldosya.List(a, 0) Sheets("DESİMALDOSYA").Range("A:A").Find(what:=ara...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To lstdesimaldosya.ListCount - 1 If lstdesimaldosya.Selected(a) Then ara = lstdesimaldosya.List(a, 0) Sheets("DESİMALDOSYA").Range("A:A").Find(what:=ara...

...vbYesNoCancel + vbInformation, "BİLDİRİ") If sor = vbNo Then Exit Sub If sor = vbCancel Then Exit Sub For a = 0 To Lstgidenevrak.ListCount - 1 If Lstgidenevrak.Selected(a) Then ara = Lstgidenevrak.List(a, 0) Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete...

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

çok teşekkür ederim emeklerinize sağlık. Bir sorum daha olacaktı. Hareketler sayfasında ki gelir gider toplamlarını hem müşteri bazlı hem toplam bazlı Finans butonuna tıklandığında gösteren kodlar konusunda desteklerinizi rica ederim.

...2)) Then Dict.Add ArrMusteri(i, 2), 1 lstMusteriler.AddItem lstMusteriler.List(lstMusteriler.ListCount - 1, 0) = lstMusteriler.ListCount lstMusteriler.List(lstMusteriler.ListCount - 1, 1) = ArrMusteri(i, 2)...

...modülüne aşağıdaki kodu yapıştırıp, çalıştırın. Private Sub CommandButton1_Click() Dim arrSorgu() For j = 0 To ComboBox1.ListCount - 1 ReDim Preserve arrSorgu(0 To j) arrSorgu(j) = ComboBox1.List(j) Next MsgBox UBound(arrSorgu) ' Dizideki eleman...

...yarayacak. Yeni konu açmadan başka bir sorum daha var ; Call Ado_Baglan Set RS = CreateObject("adodb.recordset") For j = 0 To ComboBox1.ListCount - 1 qpx = "IS_EMIRLERI_" & ComboBox1.LIST(j) qpt = "TEKLIF_DOSYALARI_" & ComboBox1.LIST(j) sorgu1 = "SELECT URUN_KODU FROM [" & qpx & "] UNION...