Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub cmdbPrev_Click()
- Dim NameFound As Range
- fPath = ThisWorkbook.Path & “ ”
- currentrow = currentrow – 1
- If currentrow > 1 Then
- txtContactName.Text = Cells(currentrow, 1).Value
- txtTelephoneNumber.Text = Cells(currentrow, 2).Value
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement