Hey I did some extra here so you can see the big Picture.
I guess you have one button for each customer. That's not really a good way to solve the problem by I worked based on what you have.
Paste this procedure in one of the Modules:
Sub PopulateMain(ByVal lRowNumber As Long)
Dim shMain As Worksheet
Dim shSource As Worksheet
' Assign sheets to the variable.
Set shSource = ThisWorkbook.Worksheets("Source")
Set shMain = ThisWorkbook.Worksheets("Main")
' Paste the value in sheet Source Range A2 into sheet Main Range F9.
shMain.Range("F9").Value = shSource.Range("A" & lRowNumber).Value
' Show what is on Source Sheet into the Shapes (Blue) forms.
shMain.Shapes("Rounded Rectangular Callout 3").TextFrame.Characters.Text = _
shSource.Range("D" & lRowNumber).Value
shMain.Shapes("Rounded Rectangular Callout 52").TextFrame.Characters.Text = _
shSource.Range("E" & lRowNumber).Value
End Sub
And use this code for the buttons so you don't have to repeat the same code so much.
Private Sub CommandButton1_Click()
Call PopulateMain(2)
End Sub
Private Sub CommandButton2_Click()
Call PopulateMain(3)
End Sub
Private Sub CommandButton3_Click()
Call PopulateMain(4)
End Sub
Hope this helps.
Bookmarks