[حل شده] ثبت اطلاعات

[میثم مقدم نیا]

سلام
میخواستم بدوم آیا امکانش هست با تایپ کردن نام در یوزرفرم و زدن کلید ثبت، کد ملی در یک سلول درج بشه
یعنی از شیت Data بخونه و در شیت دیگر درج کنه
ستون a نام f کد ملی
امیدوارم منظورم رو خوب رسونده باشم
ممنون میشم اگه راهنمایم کنید

[میثم مقدم نیا]

از اساتید عزیز کسی نیست کمکی کنه

[میثم مقدم نیا]

سلام

کسی از دوستان که یاری نکرد
ولی مشکل رو خودم با کد زیر حل کردم

Private Sub TextBox1_Change()


z1 = Sheets("admin").Cells(Sheets("admin").Rows.Count, "A").End(xlUp).Row + 1

    If Len(TextBox1) > 0 Then

    For i = 2 To z1            

kk = Sheets("admin").Range("D" & i).Value                

tt = Val(TextBox1)       

If tt = kk Then

            TextBox2.Value = Sheets("admin").Range("B" & i)

        Sheets("Search").Range("P" & 3000) = TextBox2.Value

        Exit For

        Else

            TextBox2.Value = ""

        End If

    Next

        End If    

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

        Sheets("Search").Range("P" & 3000) = CleanContents

End Sub