TextBox da Hücreler Arası Arama Yapma

[baba]

Merhaba;

Userform üzerinde Textbox1 e Yazılana Rakamlar Örneği; Sayfa1 deki H2 sutun ile AA1000 Sutundaki verilerde Herhangi Birini yazıdığımızda Sayfa1'deki B2,C2,D2, Sutununda Bulunan Verilerin Yazılımın TextBox2, TextBox3, TextBox4'e gelmesinin Nasıl Sağlarım.

Yazılı Olarakda Şöyle

TextBox1'e=740.01.01 Yazdığımızda(Bu Rakan H2 Sutundan ile AA1000 sutunları arasında Olabilir. Bunu Yazdığımız Zaman Sayfa1'deki B2 Sutunundaki Veriyi Yani TextBox2'a =970.01.01.01 olan Sayfa1 deki B2 Sutundaki veriyi göstermesini istiyorum.TextBox3'e= 970.01.01.01 açılımı olan Kırtasiye Alımın gelmesi.) Gibi

Aşağıdaki gibi bir Kodlama yaptım Lakin ComboBox1 Değilde Arama TextBox8 aranacak ve TextBox5,6,7'e Bilgileri gelmesini sağlamak istiyorum.

Private Sub combobox1_Change()
TextBox7.Value = WorksheetFunction.VLookup(ComboBox1.Value, Sayfa1.Range("B:Z"), 3, 0)
TextBox6.Value = WorksheetFunction.VLookup(ComboBox1.Value, Sayfa1.Range("B:Z"), 2, 0)
TextBox5.Value = WorksheetFunction.VLookup(ComboBox1.Value, Sayfa1.Range("B:Z"), 1, 0)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 1 To Sayfa1.Range("A65536").End(3).Row
ComboBox1.AddItem Sayfa1.Cells(i, 2).Text
Next i
End Sub
Private Sub CommandButton1_Click()
If TextBox7.Value = Empty Then MsgBox "Lütfen miktar giriniz.", vbInformation, "EVN": Exit Sub
If Sayfa7.Range("A2") = Empty Then
Sayfa7.Range("A2") = 1
Else
Sayfa7.Range("H65536").End(3).Offset(1, 0) = Sayfa7.Range("Z65536").End(3) + 1
End If
Sayfa7.Range("H65536").End(3).Offset(0, 1) = ComboBox1
Sayfa7.Range("H65536").End(3).Offset(0, 2) = TextBox5
Sayfa7.Range("H65536").End(3).Offset(0, 3) = TextBox6
Sayfa7.Range("H65536").End(3).Offset(0, 4) = TextBox7
Sayfa7.Range("H65536").End(3).Offset(0, 5) = TextBox8
MsgBox "Ürün eklendi.", vbInformation, "EVN"
End Sub

 

[baba]

Arkadaşlar Yardımınızı Bekliyorum.

 

[baba]

Arkadaşlar Merhaba;

Ekte göndermiş olduğum çalışmada bazı verilerin gelmesini yapmaya çalıştık. Bazı arkadaşlarımızla.

Yalnız Arama Yaparken Textbox1'de başka sayfa da olduğumuz zaman arama yapmıyor. Aramayı sadece BÜTÇE HESAP KOD EŞLEŞMESİ Sayfasında yapması gerekiyor. Bununda düzeltmesini ben yapamadım. Mümkünse yaparsanız. Sevinirim.

Birde Çalışmamın üzerine eklemeler yaptım; Listbox1’e FATURALAR sayfasındaki veriler geliyor. Kayıt Etme Buton çalışıyor. Kayıtlar FATURALAR sayfasına ekliyor.

Sizden bir isteğim olacak; Userform'un alt tarafına TextBox’lar ekledim. Yine Textbox1 de arama yaparken gelen sonuçların devamında Alt tarafta bulunan ve onlara gelmesi gereken bilgiler ise BÜTÇEKONTROL sayfasındaki hücrelerinden gelmesini sağlamaktır. Eğer bunları da yaparsak mükemmel olabilecek çalışmaya imza atmış olacağız. Sizden gelecek haberleri bekliyor olacağım.
Saygılarımla.