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

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

Neyse çözümü buldum.Belki birilerine lazım olur,malum listboxtta başlık sorun. http://s7.dosya.tc/server10/dabk3p/Listbox_hizli_arama_dizi_ile.rar.html Private Sub TextBox1_Change() Dim brr(), say As Long, son As Long, y As Long On Error GoTo son Application.ScreenUpdating = False...

Merhaba. Biraz mantıksız fakat yinede belkide çözüm vardır diye sorayım istedim. Resimde daha iyi anlaşılıyor. Kısaca textboxta arama yapıyorum ve listboxa veriler geliyor,benim istediğim ise listboxun ilk satırına koddaki kırmızı yerlerin eklenmesi. Örneğin listboxtta ilk satırdaki C nin alına...

Listbox olayını alttaki gibi hallettim.Düğün işe yaradı :geek::geek::geek::geek: Bu arada Textbox değerini tüm seçtirmeyide buldum lazım olursa diye paylaşayım.En altta kod. Private Sub TextBox1_Change() Dim brr(): On Error GoTo son Application.ScreenUpdating = False With Me.ListBox1...