textbox1 ve textbox2 deki kriterlere uyan veriler textbox8,9,10,11....44 gelsin

[ridvan2111]

Herkese selamlar, Benim sorum şu şekilde.

texbox1 ve 2 nin change olayına,

Userform üzerinde textbox1 VE textbox2 ye uyan veriler "siparişler" sayfasında b VE c sutunlarında bulsun.

sağa doğru d,e,f,g,h,....ar satırlarını textbox8,9,10,11,12,.....44 textboxlarına otomatik getirsin.

Bir örnek verirseniz 44 baxsın hepsini yazmanıza gerek yok.


örnek dosya ekte.

Yardımlarınız için şimdiden teşekkürler.

 

[prmts]

Merhaba, alttaki kodları deneyin.

Private Sub CommandButton1_Click()
satir = 2
SAYi = 1
dN:
Set a = Sheets("siparişler").Range("b" & satir & ":b65536").Find(TextBox1, , xlValues, xlWhole)
If Not a Is Nothing Then
If Range("c" & a.Row).Value = TextBox2.Text Then

For i = 8 To 44
Controls("textbox" & i).Text = Sheets("siparişler").Cells(a.Row, i - 4).Value
Next i


Else
SAYi = SAYi + 1
If SAYi >= 500 Then Exit Sub
satir = a.Row
GoTo dN
End If
End If
End Sub

Bu kodlarda döngüyle nesnenelere işlem yapma kısmına dikkat edin 36 satır kod yazmak yerine 3 satırda hallettik.

For i = 8 To 44
Controls("textbox" & i).Text = Sheets("siparişler").Cells(a.Row, i - 4).Value
Next i

 

[ridvan2111]

Sayın. Prmts çok teşekkür ederim.