textbox a düşeyara yapmak

[mertmustafa01]

Bir çalışma kitabımda user form üzerinde textbox a düşey ara yaptırarak başka bir çaşılma kitabımdaki bilgileri getirmek istiyorum. nasıl yapabilirim.
teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneğiniz olmadığı için ben bir örnek hazırladım.

Private Sub TextBox1_Change()
ListBox1.ColumnCount = 3
ListBox1.Clear
For SUT = 1 To Sheets("Sayfa2").Cells(65536, "A").End(3).Row
If Sheets("Sayfa2").Cells(SUT, "A") Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Sheets("Sayfa2").Cells(SUT, "A")
ListBox1.List(S, 1) = Sheets("Sayfa2").Cells(SUT, "B")
ListBox1.List(S, 2) = Sheets("Sayfa2").Cells(SUT, "C")
S = S + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[mertmustafa01]

çok özür örneğimi ekte gönderiyorum. müşteri isimleri şayet başka bir çalışma kitabında olacak. bu çalışma kitabında user form dan başka bir kitaptan müşteri isimlerini ve bilgilerini getirecek. müşteriyi getirecek olduğu kitapın adı da adres.xls

 

[Levent Menteşoğlu]

Adres.xls dosyanızında bir örneğini eklermisiniz.

 

[mertmustafa01]

elbette ilginize teşekkürler ederim

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Öncelikle adres.xls isimli dosyayı c:\deneme ismi ile oluşturduğunuz klasör altına kopyalayın ve dosyayı kapatın. Daha sonra FATURA.xls isimli dosyayı istediğiniz bir klasöre kopyalayarak çalıştırım. Dosyadaki müşteri adları ve müşteri adına göre diğer veriler kapalı adres.xls dosyasından alınacaktır. Verilerin alınmasında ExecuteExcel4Macro yönetim kullanılmıştır.

 

[mertmustafa01]

leventm çok teşekkürler ederim elelrine emeğine sağlık

 

[mertmustafa01]

bunu listbox yapıp textboxlara yazdırdık. bir sorum daha olacak textbox'a gireceğimiz rakamlarla yine farklı bir xls dosyasına gidip düşey arama yapıp bulması gerekiyor. yardımların için çookk teşekkürler ederim.

 

[İsmail Küçükşengün]

Sayın Leventm;

Paylaşımlarınıza çok teşekkürler.

Örnekteki dosyada, kapalı olan dosyadan alınan verilerin SİLİNMESİ, DEĞİŞTİRİLMESİ ve YENİ KAYDI ne şekilde mümkün olabilir.

Selamlarımla.

 

[mertmustafa01]

Sevgili Leventm;

Müsait olduğunda bir şu textbox!a gireceğimiz stok kodu ile bilgileri kod.xls den getirme işine bir baksan teşekkürler ederim