Sorgu için arama sonuçları: Listbox1+redim

Zeki Beyin önerisine göre revize edilmiş kodunuz; Private Sub coklu() Dim i As Integer, j As Integer Dim dizi() As String, query As String Dim con As New ADODB.Connection, RS As New ADODB.Recordset Sayfa1.Range("A1").CurrentRegion.ClearContents For i = 0 To...

Listbox1 çift tıkladığınızda çalışır.Çalışma kitabında Sayfa1 ve sayfa2 var.Kendinize göre ayarlayınız. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim s1 As Worksheet: Dim s2 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b() Set s1 = Sheets("Sayfa1"): Set s2...

Userform üzerine bir CommandButton ekleyiniz ve aşağıdaki kopyalayınız. Private Sub CommandButton1_Click() Dim s1 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b() Set s1 = Sheets("Sayfa1") s1.Range("A15").Cells.ClearContents For i = 1 To ListBox1.ListCount say = say + 1...

Kodunuza yaptığım ilaveleri kırmızı ile gösteriyorum. kod aktif sayfanın D1 hücresine sayı vermekte Private Sub Frame2_Click() End Sub Private Sub kapat_Click() Unload Me End Sub Private Sub kapat2_Click() Unload Me End Sub Private Sub nsyrara_Change() Dim Sayfa As Worksheet...

Merhaba Sayın Orion1 Vermiş olduğunuz örnek dosyayı kendi uygulamama göre düzenledim.Uygulama çalışıyor yalnız Benim tarih(Textbox) O sütünunda Makine seçmek için de bir Combobox uyguladım.uygulama çalışıyor fakat tarih yada makine araması yaptığımda bana resimlerdeki gibi bir görüntü...

Sağolun garip olan listboxtan direkt yollarken olmuyor dizi içinden yollarken oluyor. Ado ile olmamasının nedenide Cdate(.List(i - 1, 1)) gibi formatlayınca çözüldü. Aslında hiç döngü ve gerek olmadan çözülür sanmıştım fakat önemli değil dizi kasmıyor hiç. Orjinal dosyamdaki kodda alttaki gibi...

Kodları alttaki gibi dizi içine alarak sorun giderilmiştir. Artık metin olarak algılanmıyor sayılar :) Ve Ado olayıda çözüldü bu sayede. Cevap yazan herkese teşekkürler. Private Sub CommandButton1_Click() Dim arr(), i As Integer Application.ScreenUpdating = False son =...

hocam ellerinize sağlık süper oldu teşekür ederim...

Kodları aşağıdaki şekilde revize ederseniz hız etkilemiyor. Private Sub Worksheet_Change(ByVal Target As Range) If [D6] = Empty Then Worksheets("MÜŞTERİ CARİSİ").OLEObjects("ListBox1").Object.Clear: Exit Sub If Intersect(Target, [D6]) Is Nothing Then Exit Sub ReDim dizi(1 To 18, 1 To 1) With...

Askm hocam bu daha önceden yardımcı olduğunuz konu hakkında sizden bir ricam olacak Bu listbox ile alakalı gönderdiğiniz kodu aktif bir şekilde kullanıyorum çokta işime yarıyor teşekkür ederim lakin şöyle bir sorun var ("D6") hücresine girdiğim müşteri numarasına (cari koduna) ait bilgiler...

Aşağıdaki şekilde şart ekleyerek yapabilirsiniz Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [D6]) Is Nothing Then Exit Sub ReDim dizi(1 To 18, 1 To 1) With Worksheets("MÜŞTERİ CARİSİ").OLEObjects("ListBox1").Object .Clear .ColumnCount = 18 .ColumnWidths...

Hocam bu gönderdiğiniz kodu sayfanın kod bölümüne yapıştırdım gayet güzel çalışıyor başka birşey yapmama gerek kalmadı sadece tarihleri biraz farklı çekiyor yani "28 / 05 / 2018" olması gereken tarihi "05 / 28 / 2018" olarak çekiyor bunun bir ayarı varmıdır listbox'ın ayar menüsünde...

Additem yönteminde 10 kolon sınırı vardır. Bunu aşmak için ya aşağıdaki gibi Gecici diye bir sayfa kullanıp list yöntemi ile eklemeniz gerek. .List = Sheet("Gecici").Range("A1:R" & Cells(65536, "A").End(xlUp).Row).Value Ya da dizi kullanmanız gerekir. Aşağıdaki gibi. Yalnız sütun boyutunu...

Deneyiniz. Private Sub CommandButton1_Click() ListBox2.Clear Set Dizi = CreateObject("Scripting.Dictionary") ReDim Liste(1 To 4, 1 To ListBox1.ListCount - 1) For X = 0 To ListBox1.ListCount - 1 Veri = ListBox1.List(X, 0) & ListBox1.List(X, 1) If...

Merhabalar, Araç Takip programı yapmaya çalışıyorum sonunada geldim. ancak tarih ile listbox ta süzme yapamadım. excel sayfa adı =liste tarih sütunu = "E" sütunu Textbox1 ile Textbox2 tarih girip CommandButton1 'e tıkladığımda Listboxta sadece seçilen raih aralığının listenme kodu için yardım...

işte bu (y)(y):geek::geek::geek: Kodu ekleyeyim son halini. Tekrardan herkese teşekürler. Private Sub CommandButton1_Click() Dim aa(), arr() son = Range("A" & Rows.Count).End(3).Row aa = Array(Range("A2:A" & son).Value, Range("C2:C" & son).Value, Range("D2:D" & son).Value) ListBox1.ColumnCount...

Bu kod tam olmuş.Sadece listboxun en altına boşluk ekliyor. sağolun.

Ben bu tür tabloları Array fonksiyonunu kullanarak dizi boyutunda kullanıyorum. Sub buton() Dim aa(), arr() son = Range("A" & Rows.Count).End(3).Row aa = Array(Range("A2:A" & son).Value, Range("C2:C" & son).Value, Range("D2:D" & son).Value) ListBox1.ColumnCount = UBound(aa) + 1 ListBox1.Clear...

Dahada anlatmak gerekirse.En alttaki kod yerine Bu şekilde kullanmak istiyorum açıkçası.Biraz fantazi ama vardır belki bir yolu diye sorayım istedim. Private Sub CommandButton1_Click() Dim aa(), arr() ListBox1.ColumnCount = 3 ListBox1.Clear son = Range("A" & Rows.Count).End(3).Row aa =...

Kolay gelsin arkadaşlar. Her ne kadar kendimi çok iyi görmesem de excelde kendimi en zayıf gördüğüm konu maalesef userform uygulamaları. Dosyamda C7:C aralığında bir hücreye tıkladığımda bir userform açılmasını ve bu userform üstünde bulunan listbox'a mahalleler sayfasından mahalle listesinin...