vba: update textbox based on excel values

[Xlacs]

Hi Everyone,

I'm kinda new to VBA, so I was wondering if someone can help me figure out this problem.
For some reason, rows in excel is not positioning in the righ textbox. I have provide a screen shot of the error.

As you can see. My Date textbox is showing column B.
It should be in the name textbox.

Hoping for someone to help me on this.

Below is my code.

Thank you in Advance. =)

Private Sub SearchBt_Click()
On Error Resume Next
Set FindData = Sheet1.Range("A:A").Find(Me.txt1.Value, , xlValues, xlWhole)
If FindData Is Nothing Then
    MsgBox ("Data Not Found")
    Exit Sub
Else
    LastRow = FindData.Row
End If
    
For DataCol = 1 To 16
    Me("Txt" & DataCol) = Sheet1.Cells(LastRow, DataCol).Value
Next DataCol

Problem

 

[GWteB]

Your text boxes don't line up with your columns. Your columns don't provide a "Date" entry.
My advise: don't rely on any particular order, but give your text boxes a name that fits its purpose.
I'm the first one to admit, you can't use a loop anymore, but you won't be faced with surprises like these.

 

[Xlacs]

Your text boxes don't line up with your columns. Your columns don't provide a "Date" entry.
My advise: don't rely on any particular order, but give your text boxes a name that fits its purpose.
I'm the first one to admit, you can't use a loop anymore, but you won't be faced with surprises like these.

Hello.

my date text is auto populated by my current date.
Sorry to ask, but can you show me the idea?

 

[GWteB]

This part of your code relies on a certain order ...

For DataCol = 1 To 16
    Me("Txt" & DataCol) = Sheet1.Cells(LastRow, DataCol).Value
Next DataCol

:

... but it doesn't line up with the column order according to your screenshots.
Imo this order should be:

Book1
	A	B	C	D	E
1	EmpID	Date	Name	Position	Line Manager
2	1	12-feb	emp 1	post 1	Line 1
3	2	13-feb	Rajiv Kumar	New Delhi	New Delhi
Sheet1

 

[Xlacs]

This part of your code relies on a certain order ...

For DataCol = 1 To 16
    Me("Txt" & DataCol) = Sheet1.Cells(LastRow, DataCol).Value
Next DataCol

:

... but it doesn't line up with the column order according to your screenshots.
Imo this order should be:

Book1
	A	B	C	D	E
1	EmpID	Date	Name	Position	Line Manager
2	1	12-feb	emp 1	post 1	Line 1
3	2	13-feb	Rajiv Kumar	New Delhi	New Delhi
Sheet1

Yes. I'm wondering how I move and match my name textbox to column c

Edited: I see your point. Wew Thanks for that!

 

[GWteB]

You are welcome and thanks for letting me know