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]

OK
So i have put those codes in place but i see that the TextBox1 is being picked up from the DATABASE sheet.

I found this whilst looking for an issue.

Looking at the code towards the end i see 000
The codes looks down column A to see if the name in TextBox1 has been a past customer & if so depending on how many times the values are added.
So TOM JONES 001 002 003 etc

I thought that TextBox 1 would be the customer that was selected on the QUOTES sheet than on the DATABASE sheet the code would look for a past purchase etc

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim fndRng As Range
    Dim findString As String
    Dim i As Integer
    Dim wsPostage As Worksheet
    
    findString = Me.TextBox1.Value
    If Len(findString) = 0 Then Exit Sub
    
    Set wsPostage = ThisWorkbook.Worksheets("DATABASE")
    i = 1
    Do
        Set fndRng = Nothing
        Set fndRng = wsPostage.Range("A:A").Find(What:=findString & Format(i, " 000"), _
                                                    LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                                                    SearchDirection:=xlNext, MatchCase:=False)
        If Not fndRng Is Nothing Then
            i = i + 1
            Cancel = True
        End If
    Loop Until fndRng Is Nothing
    
    Me.TextBox1.Value = findString & Format(i, " 000")
    Cancel = False
    
End Sub

 

[ipbr21054]

When the userform opens TextBox1 needs to show the customers name that was selected on the sheet QUOTES Then look for a match on the DATABASE sheet & add 001 002 etc
Thanks

 

[NoSparks]

You didn't remove the crossed out lines from your SendToDatabase2_Click sub did you ?

Do the codes below not give what you expect in TextBox1 ?

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
        ' 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

 

[ipbr21054]

Nope i copied from the page & just pasted.
Ive now copied the above & now it works.

I will paly with it a bit & mark as ok once im happy.

Many Thanks for your time.

I will make a new post once im happy here with how to then delete that selected customer from sheet QUOTES once the above has been completed.