+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: TextBox da Hücreler Arası Arama Yapma (/konu-textbox-da-hucreler-arasi-arama-yapma.html)
TextBox da Hücreler Arası Arama Yapma - ilker1974 - 06/11/2014
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.
PHP Kod:
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
Cvp: TextBox da Hücreler Arası Arama Yapma - ilker1974 - 07/11/2014
Arkadaşlar Sizde Yardım Bekliyorum. Gidiş yönünden