Userform textbox2 (b) sütun son satırdaki gelmesi

[netvolxxx]

Merhaba şöyle bir olayım var bir türlü çözemedim aslında butonla çözüyorum ama buton olmadan nasıl yapabilirim.

userform textbox1 alanına yazdığım a2 başlayıp hep bir alt satıra yazıyor a3 a4 diye gidiyor

b2 alanına otamatik karşılığı geliyor buda textbox2 alanına son satırdaki aktarmak istiyorum.

a2 de 04.11.25 b2 deneme ürün yazıyor

örnek a18 son dolu satır 05.25.45

b18 de metal yazıyorsa textbox2 alanına son satırdaki olan metal yazsın.

kısaca b sutun son dolu satır neyse userform textbox2 her zaman o yazsın.

 

[netvolxxx]

bu kodu kendime uyarladım istediğim oldu farklı çözümlerde olabilir tabiki

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
'If TextBox3 <> "" Then Call CommandButton2_Click
If TextBox3 = "" Then Exit Sub
TextBox1 = [A:A].Find(TextBox3).Offset(0, 1)
Exit Sub
hata:
MsgBox "Girilen Ürün No Bulunamadı"
end sub