Get value from worksheet to userform on another worksheet

[ipbr21054]

I am on a worksheet called QUOTES.
I select a customer in cell A4
This customer is TOM JONES
I click a command button which opens another worksheet in the same workbook called DATABASE & then opens a userform.

My question is please advise a code that will put the selected customers name in this case TOM JONES into the userform TextBox1
Userform is called DatabaseUserForm

Thanks

 

[ipbr21054]

So i can work out how to get the value of the active cell into the textbox for the worksheet DATABASE

Using this here.

Private Sub UserForm_Initialize()
DatabaseSheetTransferButton.Visible = False
Me.TextBox1.Text = ActiveCell.Value
End Sub

BUT

I need it from the worksheet QUOTES that ive just come from.
I thought this might do it but ive got it wrong somewhere ??

Private Sub UserForm_Initialize()
DatabaseSheetTransferButton.Visible = False
Me.TextBox1.Text = ThisWorkbook.Worksheets("QUOTES").ActiveCell.Value
End Sub

Do you see the mistake,Thanks

 

[ipbr21054]

I can get a static address value to work but not activecell ?

Private Sub UserForm_Initialize()
DatabaseSheetTransferButton.Visible = False
Me.TextBox1.Text = Worksheets("QUOTES").Range("A3").Value
End Sub

 

[NoSparks]

Suspect the issue is between the click of the button and opening of the userform.

If you're wanting to use active sheet in UserForm_Initialize, don't

opens another worksheet in the same workbook called DATABASE

until just before End Sub in UserForm_Initialize

 

[ipbr21054]

Not sure I understand that.
In my code A3 is the fixed location.

I want it to be the location at which it was selected on the original sheet.

So my code works fine apart from it will always get the value from cell A3

I’m looking that if I select A22 then that value is used or if I select A256 then that value is used.

I’m not sure how to write that & it’s not a case of it not working. I could only figure out how to write it by using A3 or A4 or A5 I want the code written so it remembers the cell in column A that was selected & put that value in the Textbox.

 

[NoSparks]

I click a command button which opens another worksheet in the same workbook called DATABASE & then opens a userform.

post the code for this command button

 

[ipbr21054]

Here is the code that i have at present.
As mentioned i can only write it so that no matter what customer i select in column A it will always be the customer in cell A3 NICOLA TEST NAME.

Example i wish to select customer in cell A6 BOBBY SINGH & have his details placed in the textBox.
This is why in my code A3 cant be used & maybe active cell from worksheet QUOTES.

Thanks

Private Sub SendToDatabase2_Click()
Dim answer As Integer
Dim r As Long
If ActiveCell.Column = 1 Then
answer = MsgBox("SEND DETAILS TO DATABASE ? ", vbYesNo + vbInformation, "OPEN DATABASE MESSAGE")
If answer = vbYes Then
ActiveWorkbook.Sheets("DATABASE").Activate
DatabaseUserForm2.Show
End If
Else
MsgBox "YOU NEED TO SELECT A CUSTOMER IN COLUMN A", vbCritical, "SELECT CUSTOMER MESSAGE"
End If
Exit Sub

End Sub

 

[NoSparks]

Yup, exactly as suspected in post 4

Don't activate the DATABASE sheet until after TextBox1 is loaded in UserForm_Initialize

 

[ipbr21054]

Im well confused please3 show me what i need to do as i still think after that its different to what im looking for

 

[NoSparks]

Private Sub SendToDatabase2_Click()
' declare variables
    Dim answer As Integer
    Dim r As Long
' check for column of active cell
If ActiveCell.Column = 1 Then
    ' if column 1 ask
    answer = MsgBox("SEND DETAILS TO DATABASE ? ", vbYesNo + vbInformation, "OPEN DATABASE MESSAGE")
    ' if answer is yes
    If answer = vbYes Then
        ' change active sheet to "DATABASE"
        ActiveWorkbook.Sheets("DATABASE").Activate
        ' show the user form
        DatabaseUserForm2.Show
    End If
Else
    ' message if active cell was not in column 1
    MsgBox "YOU NEED TO SELECT A CUSTOMER IN COLUMN A", vbCritical, "SELECT CUSTOMER MESSAGE"
End If
Exit Sub

End Sub

Private Sub UserForm_Initialize()
    ' hide DatabaseSheetTransferButton
    DatabaseSheetTransferButton.Visible = False
    ' populate TextBox1 from ActiveCell
    Me.TextBox1.Text = ActiveCell.Value
    ' change active sheet to "DATABASE"
    ActiveWorkbook.Sheets("DATABASE").Activate
End Sub