Skip to main content

AccessTr.neT


TextBox da Hücreler Arası Arama Yapma

TextBox da Hücreler Arası Arama Yapma

#1
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.ValueSayfa1.Range("B:Z"), 30)
TextBox6.Value WorksheetFunction.VLookup(ComboBox1.ValueSayfa1.Range("B:Z"), 20)
TextBox5.Value WorksheetFunction.VLookup(ComboBox1.ValueSayfa1.Range("B:Z"), 10)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
For 1 To Sayfa1.Range("A65536").End(3).Row
ComboBox1
.AddItem Sayfa1.Cells(i2).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(10) = Sayfa7.Range("Z65536").End(3) + 1
End 
If
Sayfa7.Range("H65536").End(3).Offset(01) = ComboBox1
Sayfa7
.Range("H65536").End(3).Offset(02) = TextBox5
Sayfa7
.Range("H65536").End(3).Offset(03) = TextBox6
Sayfa7
.Range("H65536").End(3).Offset(04) = TextBox7
Sayfa7
.Range("H65536").End(3).Offset(05) = TextBox8
MsgBox 
"Ürün eklendi."vbInformation"EVN"
End Sub 
Cevapla
#2
Arkadaşlar Sizde Yardım Bekliyorum. Gidiş yönünden
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da