Select customer on worksheet to then open in main database

[ipbr21054]

Hi,
My database values start at row 6.
Customers names are in column A

I would like to select a customer then press the command button to open the customers details in my main database.

This is what i have but get a message saying Object Required

Private Sub OpenCustomerInDatabase_Click()
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

 

[Jeffrey Mahoney]

First of all I think you needed something like this. Target only works when you have a Worksheet event. I think your target is the row your cursor is on, correct?

If Intersect(Range(Range("A6"), Cells(Rows.Count, "A").End(xlUp)), ActiveCell.EntireRow) Is Nothing Then Exit Sub

 

[ipbr21054]

Hi,
Unable to check until tomorrow.

My target is whichever cell has been selected in column A

Does that help.

 

[Joe4]

My target is whichever cell has been selected in column A

Does that help.

I think you are mixing up Event Procedure VBA code with what you are trying to do here (which is NOT Event Procedure VBA code).

What you said is only true for Event Procedure code that has the Target argument as one of the inputs, i.e.

Private Sub Worksheet_Change(ByVal Target As Range)
    ...
End Sub

"Target" is not defined anywhere in your code, and therefore isn't anything.
If you want the selected cell, use "ActiveCell" instead.

 

[ipbr21054]

This now worked for me thanks,


Private Sub OpenCustomerInDatabase_Click()
If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), ActiveCell) Is Nothing Then Exit Sub

Cancel = True

Database.LoadData Me, ActiveCell.Row
End Sub

 

[Joe4]

You are welcome.