Sorgu için arama sonuçları: listcount

...rst = New ADODB.Recordset With rst .ActiveConnection = cnt Dim selection As String Dim lItem As Long For lItem = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.Selected(lItem) = True Then selection = selection & "'" & Replace(Left(UserForm1.ListBox1.List(lItem), 10), "'", "''")...

...Dim lItem As Long Dim strSQL As String Dim i As Integer Dim aData() As String Dim lngLoop1 As Long For lItem = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.Selected(lItem) = True Then selection = selection & "'" & Replace(Left(UserForm1.ListBox1.List(lItem), 10), "'", "''")...

...aktar End Sub Private Sub aktar() With ListBox1 .ColumnCount = 2 For Sat = 1 To 20 .AddItem .List(.ListCount - 1, 0) = Sheets("Sayfa1").Cells(Sat, 1) .List(.ListCount - 1, 1) = Sheets("Sayfa1").Cells(Sat, 2) Next End With...

...şekilde listboxtan tıklayarak plakayı alıyorum Private Sub lst_dask_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 0 To lst_dask.ListCount - 1 If lst_dask.Selected(i) = True Then ' frmanamenu.TextBox23 = lst_dask.Column(0, i) ' frmanamenu.TextBox18 =...

...& Satır) = TextBox2 Sayfam.Range("B" & Satır) = TextBox3 Sayfam.Range("C" & Satır) = TextBox2 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then Sayfam.Range("D" & Satır).Offset(, i) = Me.ListBox2.Text End If Next i End Sub

...ayarlarını nasıl sıfırlayabilirim. 2 Açılır pencereyi 20 tane yapacak kod ve özelliklerden nasıl yapabilirim. (Aşağıdaki kodu sayfa2 ye yazdım (modüle değil) bir işe yaramadı. ) Private Sub ComboBox1_Initialize() ComboBox1.ListRows = ComboBox1.ListCount Sayfa2.ComboBox1.ListRows = 15 End Sub

teşekkür ederim

...a = Me.ListBox1.ListIndex + 1 Dim t As String Dim i As Integer t = arama.Text ListBox1.ListIndex = -1 If arama.Text = "" Then Exit Sub For i = a To ListBox1.ListCount - 1 If UCase(ListBox1.List(i)) Like UCase(t & "*") Then ListBox1.ListIndex = i Exit Sub End If Next i End Sub .

...Integer) If KeyCode = 13 Then Dim t As String Dim i As Integer t = TextBox22.Text ListBox1.ListIndex = -1 If TextBox22.Text = "" Then Exit Sub For i = 0 To ListBox1.ListCount - 1 If UCase(ListBox1.List(i)) Like UCase(t & "*") Then ListBox1.ListIndex = i Exit Sub End If Next i End If End...

...Dim i As Integer t = TextBox22.Text ListBox1.ListIndex = -1 If TextBox22.Text = "" Then Exit Sub For i = 0 To ListBox1.ListCount - 1 If UCase(ListBox1.List(i)) Like UCase(t & "*") Then ListBox1.ListIndex = i Exit Sub End If Next i...

...almanız gerekir. Örnektir. Kendinize uyarlamalısınız. For i = 10 To 24 Me.ListBox2.AddItem ListBox2.List(Me.ListBox2.ListCount - 1, 0) = Range("A" & i) ListBox2.List(Me.ListBox2.ListCount - 1, 1) = Range("B" & i) ListBox2.List(Me.ListBox2.ListCount - 1, 2)...

...Last_Row = .Cells(.Rows.Count, 1).End(3).Row + 1 .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount, FILTRELEME.ListBox1.ColumnCount) = FILTRELEME.ListBox1.List .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount...

...Last_Row = .Cells(.Rows.Count, 1).End(3).Row + 1 .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount, FILTRELEME.ListBox1.ColumnCount) = FILTRELEME.ListBox1.List .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount...

...> 0 _ And Me.TextBox1 <> "" Then Me.ListBox1.AddItem For cln = 1 To rng.Columns.Count ad = Sheet1.Cells(rc, cln) Me.ListBox1(ListBox1.ListCount - 1, cln - 1) = ad Next cln End If Next rc Me.ListBox1.Height = Me.ListBox1.ListCount * 20 End Sub

...Last_Row = .Cells(.Rows.Count, 1).End(3).Row + 1 .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount, FILTRELEME.ListBox1.ColumnCount) = FILTRELEME.ListBox1.List .Cells(Last_Row, 1).Resize(FILTRELEME.ListBox1.ListCount...

Aşağıdaki kodu sadece bir kere ekleyin. Sub Secim(Lbox As Control, Deger As Control) Dim Bak As Long For Bak = 0 To Lbox.ListCount - 1 Lbox.Selected(Bak) = Deger.Value Next End Sub Aşağıdaki kodu da her CheckBox için ayrı ayrı ekleyin. Aşağıdaki kod CheckBox1'in seçimine...

...Kaydet butonunun kodları . Private Sub CommandButton1_Click() Dim Bak As Integer Worksheets.Add Range("A1:A" & ListBox1.ListCount).Value = ListBox1.List Range("A1:A" & ListBox1.ListCount).NumberFormat = "dd/mm/yy hh:mm;@" For Bak = 1 To ListBox1.ListCount...

Tam olarak bu. Mükemmel çalıştı. İşleriniz hep yolunda gitsin. Çok teşekkür ederim.

Aşağıdaki kodları deneyin: Private Sub CommandButton3_Click() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1 For j = 0 To 6...

...Sheets("In").Range("B14:D18").ClearContents Application.ScreenUpdating = False sat = 14 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Sheets("In").Cells(sat, "B") = ListBox1.List(i, 0) Sheets("In").Cells(sat...