Insert text every 7th row, starting and ending in a specific row

[Ironman]

Hi

I'd be grateful for some code I can run that will insert "WEEK TOTAL = " (without the commas, double underlined and with a space after the "=") in every 7th row of Col F in sheet 'Training 1981-1997', with the first in F2469 and the last in F6207.

Many thanks!

 

[EFANYoutube]

Hey Ironman
This should do the trick

Sub Every7thRow()
    Dim i As Integer
    Dim Last As Boolean
    For i = 2469 To 6207
        If i < 2193 Then Last = True
        ThisWorkbook.Sheets("Training 1981-1997").Cells(i, 6).Value = "WEEK TOTAL = "
        i = i + 7
        If i = Last Then Exit For
    Next i
End Sub

 

[Ironman]

Many thanks EFAN!

Before I run it, is there any chance you could add a line to the code that will double-underline the text please?

Thanks again!

Edit - I've just test run it and it works great when I changed "i = i + 7" to "i = i + 6".

 

[Peter_SSs]

What about ..

Sub Every7()
  Dim i As Long
  
  For i = 2469 To 6207 Step 7
    With Sheets("Training 1981-1997").Range("F" & i)
      .Value = "WEEK TOTAL = "
      .Font.Underline = xlUnderlineStyleDouble
    End With
  Next i
End Sub

 

[Ironman]

Fantastic, thanks a lot Peter, works perfectly!

Thanks also EFAN for your help.

 

[Peter_SSs]

Cheers.

 

[EFANYoutube]

Might have marked the wrong one as solution but (shrug) happy to help

 

[Peter_SSs]

Might have marked the wrong one as solution

How so?

double underlined ... in every 7th row

 

[EFANYoutube]

Ah just seen in the original text, sorry

 

[My Aswer Is This]

Try this:

Sub My_Sub()
'Modified 2/6/2022  7:20:50 AM  EST
Application.ScreenUpdating = False
Dim i As Long

For i = 2469 To 6207 Step 7
    With Sheets("Training 1981-1997")
        .Cells(i, "F").Value = "WEEK TOTAL = "
        .Cells(i, "F").Font.Underline = xlUnderlineStyleDouble
       End With
Next
Application.ScreenUpdating = True
End Sub