Sending data as arguments

[dpaton05]

I have a procedure that pushes a signature to the next page if it is over the page break.

Sub cmdPush()
Dim a As Double, aa As Double, aaa As Double, DividerBottom As Long

Application.ScreenUpdating = False
    With Sheets("Sheet2")
        .Shapes("ImgG").Duplicate.Name = "Signature"
        .Shapes("Signature").Cut
    End With
        Sheets("CSS_quote_sheet").Cells(43, 1).PasteSpecial
        Sheets("CSS_quote_sheet").Shapes(Selection.Name).Name = "Signature"
        a = Sheets("CSS_quote_sheet").Cells(LastRow, 1).End(xlUp).Offset(1).Top + 140
        aa = Sheets("CSS_quote_sheet").Shapes("Signature").Height
        aaa = Rows(Sheets("CSS_quote_sheet").HPageBreaks(1).Location.Row).Top + 1
        DividerBottom = Sheets("CSS_quote_sheet").Shapes("Divider").BottomRightCell.Row
    With Sheets("CSS_quote_sheet").Shapes("Signature")
        .Left = ActiveSheet.Range("A1").Left
        .Top = IIf(a + aa > aaa, aaa, a)
        .Placement = 1
    End With
Application.ScreenUpdating = True
End Sub

The procedure worked fine when there was only 1 signature but now there are several. I have just realised that I have not been using this code (which I should have been) and I added four separate buttons and used the following code for each.

Sub cmdTraceySig()
    Sheets("Sheet2").Shapes("ImgT").Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
    Selection.Top = Cells(LastRow, 1).Top + "100"
End Sub
Sub cmdLynSig()
    Sheets("Sheet2").Shapes("ImgL").Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
    Selection.Top = Cells(LastRow, 1).Top + "100"
End Sub
Sub cmdGarrettSig()
    Sheets("Sheet2").Shapes("ImgG").Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
    Selection.Top = Cells(LastRow, 1).Top + "100"
End Sub
Sub cmdJonathanSig()
    Sheets("Sheet2").Shapes("ImgJ").Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
    Selection.Top = Cells(LastRow, 1).Top + "100"
End Sub

I could copy the cmdPush and modify it slightly for each different signature but I wanted to have a procedure behind each of the signature buttons that would send the image name to cmdPush as an argument and it could substitute it in where ImgG already is. Only problem is that I am not sure of the code. Could someone help me please?

 

[dmt32]

Hi,
untested but see if this update to your code does what you want

Sub cmdPush(ByVal SignatureText As String)
Dim a As Double, aa As Double, aaa As Double, DividerBottom As Long

Application.ScreenUpdating = False

    With Sheets("Sheet2")
        .Shapes(SignatureText).Copy
        ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
        Selection.Top = Cells(LastRow, 1).Top + "100"
        
        .Shapes(SignatureText).Duplicate.Name = "Signature"
        .Shapes("Signature").Cut
    End With
        Sheets("CSS_quote_sheet").Cells(43, 1).PasteSpecial
        Sheets("CSS_quote_sheet").Shapes(Selection.Name).Name = "Signature"
        a = Sheets("CSS_quote_sheet").Cells(LastRow, 1).End(xlUp).Offset(1).Top + 140
        aa = Sheets("CSS_quote_sheet").Shapes("Signature").Height
        aaa = Rows(Sheets("CSS_quote_sheet").HPageBreaks(1).Location.Row).Top + 1
        DividerBottom = Sheets("CSS_quote_sheet").Shapes("Divider").BottomRightCell.Row
    With Sheets("CSS_quote_sheet").Shapes("Signature")
        .Left = ActiveSheet.Range("A1").Left
        .Top = IIf(a + aa > aaa, aaa, a)
        .Placement = 1
    End With
Application.ScreenUpdating = True
End Sub

You will note that I have placed the repeating code you have in your buttons code in the main procedure which means you only have to call it & pass the signature text.

and to call it

Sub cmdGarrettSig()
    cmdPush "ImgG"
End Sub

As stated, solution untested but hopefully, will help you

Dave