Creating a copy, paste, print Loop VBA

Hi,

I am trying to create a macro that will cycle through cells and print certain ranges dependant upon vlookups, it is essentially a primative certificate generator as im not much use with excel

So far i have this code:

Sub Shortway()
    For Each c In Worksheets("Generator").Range("P6:P26").Cells
         
    Range(c.Value).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P1").Select
    ActiveSheet.Paste
    
        If Range("T15").Value = "X" Then
        Range("A2:L61").PrintOut
        End If
        
        If Range("T16").Value = "X" Then
        Range("A63:L122").PrintOut
        End If
        
        If Range("T17").Value = "X" Then
        Range("A124:L183").PrintOut
        End If
        
        If Range("T18").Value = "X" Then
        Range("A185:L244").PrintOut
        End If
        
        If Range("T19").Value = "X" Then
        Range("A246:L305").PrintOut
        End If
        
        If Range("T20").Value = "X" Then
        Range("A307:L366").PrintOut
        End If
        
    Next

End Sub

I butchered some i found on the internet and inserted my copy and if statements; not sure why its not working!

Any help appreciated!

Thanks,

James,

very confused code, attach please a sample file with data and desired result

I can imagine! im not very experienced with macros!

please find an attached file...

The desired result is that the code cycles through the tags, populates the certificates and prints them accordingly. I already have a macro that does this for 10 as an example, but really i need it to cycle through 100s!

Thanks,

James,

Hi, James,

maybe proceed like this:

Sub Shortway2()
Dim c As Range

With Worksheets("Generator")
  For Each c In .Range("P6:P26")
    .Range("P1").Value = c.Value
  
    If .Range("T15").Value = "X" Then
      .Range("A2:L61").PrintOut
    End If
      
    If .Range("T16").Value = "X" Then
      .Range("A63:L122").PrintOut
    End If
      
    If .Range("T17").Value = "X" Then
      .Range("A124:L183").PrintOut
    End If
      
    If .Range("T18").Value = "X" Then
      .Range("A185:L244").PrintOut
    End If
      
    If .Range("T19").Value = "X" Then
      .Range("A246:L305").PrintOut
    End If
      
    If .Range("T20").Value = "X" Then
      .Range("A307:L366").PrintOut
    End If
      
  Next c
End With
End Sub

And if you want to loop through the cells for a check if to print:

Sub Shortway3()
Dim c As Range
Dim lngCounter As Long
Dim lngHelp As Long

With Worksheets("Generator")
  For Each c In .Range("P6:P26")
    .Range("P1").Value = c.Value
    For lngCounter = 15 To 20     'alter here
      If .Range("T" & lngCounter).Value = "X" Then
        lngHelp = lngCounter - 15
        .Range("A" & 2 + lngHelp * 61 & ":L" & 61 + lngHelp * 61).PrintOut
      End If
    Next lngCounter
  Next c
End With
End Sub

Ciao,
Holger