Microsoft Office Forums - View Single Post - Possible Macro to read and change name whilst printing certificate

excelledsoftware · 09-06-2014, 10:50 AM

Yup pretty easily. How about if you put a 1 or an x in column B next to the name. The code would now be this.

Code:

Option Explicit
Sub ChangeNameThenPrint()
  Dim wb As Workbook, cws As Worksheet, nws As Worksheet
  Dim CheckRow As Integer, TotalNames As Integer

  Set wb = ThisWorkbook
  Set cws = wb.Worksheets("Certificate")
  Set nws = wb.Worksheets("Names")

  TotalNames = nws.Range("A50000").End(xlUp).Row
    
  For CheckRow = 1 To TotalNames
    If nws.Range("B" & CheckRow).Value <> "" Then
      cws.Range("B42").Value = nws.Range("A" & CheckRow).Value
      cws.PrintOut  'You can set specific printer properties with a ( after Printout
    End If
  Next CheckRow

End Sub