Add cell values to a userform

[detriez]

I am using this to populate a userform field with the value from the clicked cell and it works fine

Sub showform()
    UserForm1.Show

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then
            Call showform
        End If
    End If
End Sub

Private Sub UserForm_Activate()

TextBox3 = ActiveCell.value

End Sub

I need to also populate another

Private Sub UserForm_Activate()

Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Contacts")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        Me.TextBox3.value = .Cells(lRow, 1).value
        Me.TextBox14.value = .Cells(lRow, 2).value
    End With

End Sub

I need to also populate another userform field with the value from another column
This did not work. No error, it just does not populate the userform fields

Private Sub UserForm_Activate()

Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Contacts")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        Me.TextBox3.value = .Cells(lRow, 1).value
        Me.TextBox14.value = .Cells(lRow, 2).value
    End With

End Sub

 

[Zot]

lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row is the last occupied row
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row is the next row after last occupied row

I think that is why your Me.TextBox3 and TextBox4 are blanks.

 

[detriez]

lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row is the last occupied row
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row is the next row after last occupied row

I think that is why your Me.TextBox3 and TextBox4 are blanks.

Thanks Zot.. your reply helped me to realize I was referencing the wrong sheet..
I appreciate your direction

Here is what finally worked

Private Sub UserForm_Activate()

Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Companies")
    lRow = ActiveCell.Row
    With ws
        Me.TextBox3.value = .Cells(lRow, 1).value
        Me.TextBox14.value = .Cells(lRow, 5).value
    End With


End Sub

 

[Zot]

Glad you had it worked. Sometimes alternating between Range and Cells can lead to mistake.
Instead of Cells(lRow, 1) and Cells(lRow, 5), it is easier just to write it as Cells(lRow, "A") and Cells(lRow, "E") respectively. No need to count ?