We build bids by dividing a job into areas which we price on individual sheets. Some jobs have more areas than others so we copy the template sheet ("Area 1" in this example), and rename as needed.
Do you have recommendation on how to correct the macro so it copies cells from the sheet where the form control button "Process Area" was pressed?
Range("C4:C9").Select
Selection.Copy
Sheets("Slabs and Tops").Select
Range("B2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Area 1").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Job Summary").Select
Range("C14").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Area 1").Select
Range("J8:J10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Job Summary").Select
Range("D14").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Area 1").Select
End Sub
Do you have recommendation on how to correct the macro so it copies cells from the sheet where the form control button "Process Area" was pressed?
Range("C4:C9").Select
Selection.Copy
Sheets("Slabs and Tops").Select
Range("B2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Area 1").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Job Summary").Select
Range("C14").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Area 1").Select
Range("J8:J10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Job Summary").Select
Range("D14").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Area 1").Select
End Sub