[حل شده] کمک برای یوزر فرم

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

سلام وقت همه دوستان بخیر
بنده یک لیست پرسنل به همراه فرم ثبت اطلاعات دارم که یک سری از اطلاعات در لیست ثبت شده حالا میخواهم زمانی که فرم اطلاعات رو تکمیل میکنم زمان ورود کد پرسنلی اکسل تشخیص بده و مابقی داده ها رو در سلولهای مربوط به همان شماره پرسنلی قرار بده
این سوال قبلا پرسیده شده ولی من به نتیجهای دلخواه نرسیدم
لطفا با توجه به فایل پیوست همراه با نمونه کمک کنید

[iranweld]

با سلام

کدها اصلاح گردید

Private Sub CommandButton1_Click()

    If TextBox01.Text = "" Then
    MsgBox "áØÝÇ ÊãÇãí ãæÇÑÏ ÑÇ Ê˜ãíá äãÇííÏ íÇ ÏÑ ÛíÑ ÇíäÕæÑÊ ÇÒ ÚáÇãÊ  * ÇÓÊÝÇÏå äãÇííÏ"
    Exit Sub

End If

Dim kk As Long

    kk = Range("b" & Rows.Count).End(xlUp).Row + 1
    
    For i = 2 To kk
    If Val(TextBox01) = Val(Range("b" & i)) Then
    kk = i
    Exit For
    End If
    Next
    
        Range("b" & kk).Value = TextBox01.Text
        Range("g" & kk).Value = TextBox02.Text
        Range("h" & kk).Value = TextBox03.Text
        Range("i" & kk).Value = TextBox04.Text
        Range("j" & kk).Value = TextBox05.Text
        
        TextBox01.Text = ""
        TextBox02.Text = ""
        TextBox03.Text = ""
        TextBox04.Text = ""
        TextBox05.Text = ""

End Sub 

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

با سلام

کدها اصلاح گردید

Private Sub CommandButton1_Click()

    If TextBox01.Text = "" Then
    MsgBox "áØÝÇ ÊãÇãí ãæÇÑÏ ÑÇ Ê˜ãíá äãÇííÏ íÇ ÏÑ ÛíÑ ÇíäÕæÑÊ ÇÒ ÚáÇãÊ  * ÇÓÊÝÇÏå äãÇííÏ"
    Exit Sub

End If

Dim kk As Long

    kk = Range("b" & Rows.Count).End(xlUp).Row + 1
    
    For i = 2 To kk
    If Val(TextBox01) = Val(Range("b" & i)) Then
    kk = i
    Exit For
    End If
    Next
    
        Range("b" & kk).Value = TextBox01.Text
        Range("g" & kk).Value = TextBox02.Text
        Range("h" & kk).Value = TextBox03.Text
        Range("i" & kk).Value = TextBox04.Text
        Range("j" & kk).Value = TextBox05.Text
        
        TextBox01.Text = ""
        TextBox02.Text = ""
        TextBox03.Text = ""
        TextBox04.Text = ""
        TextBox05.Text = ""

End Sub 

استاد ممنون از کمکتون

[iranweld]

قابلیت دیگری که به فایل اضافه شده اینکه با ورود کد ثبت شده ، دیتای مرتبط آن نیز در تکست باکس ها فراخوانی میگردد و قابل ویرایش میباشد.

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

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

[حسام بحرانی]

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

سلام
لطفاً درصورتی که مشکلتون برطرف شده تاپیک رو حل شده کنید.
موفق باشید.