Open useform & select customer from worksheet data in column A

[ipbr21054]

Afternoon.
I have this code in use which works fine.
I would double click a customer in column A & the userform will open & there record is then shown.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then Exit Sub
    Cancel = True
    Database.LoadData Me, Target.Row
End Sub

What i would like to do is when a userform opens when opening this worksheet i can click the command button to open the customer ONLY in cell A6
So this new code will only work for customer present at the time in cell A6

I select the worksheet.
A userform opens.
I click on the command button.
The code runs, & the customers name in cell A6 has his record now loaded / shown on the opening userform.

 

[ipbr21054]

Can you advise on my attempt please

Private Sub OpenA6Customer_Click()
      Dim r As Range, cell As String
      Dim sh As Worksheet
      
      Set sh = Sheets("DATABASE")
      sh.Select
      Set r = Range("A6")
      If r.Value = "" Then Exit Sub
      
      Database.LoadData Me, Target.cell("A6")
End Sub

 

[ipbr21054]

This is my progress after some hours ha ha

Private Sub OpenA6Customer_Click()
Unload DatabaseOpeningForm
Database.Show
End Sub

Now this is what happens.

I open my worksheet.
A userform open.
I select the correct commandbutton.
That userform then closes.
The DATABASE userform opens & the customer who is currently in cell A6 is shown on the userform with all his records to view.

This is perfect

BUT

I havent specified what cell to be the target etc this being A6 so i assume something on the sheet is doing the work.

Can we edit / apply some code so we actually add something so A6 is the cell to work with,should i need to change A6 to something else in the future.

Thanks