[حل شده] مشاهده اخرین ردیف

[kazem1359]

اساتید محترم
سلام یک فایل خدمتتون ارسال کردم
در دکمه ثبت اطلاعات برای واگذاری با وارد کردن شماره حساب فقط یک مشکل دارم اینه که ردیف اخر را نمیاره اگر در شیت etelaat شماره حساب ردیف اخر را وارد کنید نمیاد علت چیست؟

http://s3.picofile.com/file/8363680300/Book20.xlsm.html

[iranweld]

با سلام

این کدها را جایگزین کدهای قبلی کنید

Private Sub TextBox7_Change()
Dim shs As Worksheet
Dim rng As Range
Dim nchek As String

Set shs = Sheets("etelaat")
cr = shs.Cells(shs.Rows.count, "b").End(xlUp).Row
Set rng = shs.Range("b2:b" & cr)

    For Each nch In rng
    
        If nch = TextBox7.Text And Len(TextBox7) > 2 Then
        TextBox1.Text = nch.Offset(0, 1)
        TextBox12.Text = nch.Offset(0, 2)
        TextBox14.Text = nch.Offset(0, 3)
        TextBox15.Text = nch.Offset(0, 4)
        TextBox16.Text = nch.Offset(0, 5)
        TextBox17.Text = nch.Offset(0, 6)
        
        Exit For
        
        Else
        
        TextBox1.Text = ""
        TextBox12.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        
        
        End If
    Next nch
End Sub