[vba] How can I make a loop on this code?

[roman10]

Hello to all, I wrote something like this:

[..
..
..
If Range("C7").Value = False then

Range("B7").Copy Range("B2")
ThisWorkbook.Refreshall
Thisworkbook.SaveAs Range("B7")

Elseif Range("C7").Value = True then
End if

If Range("C8").Value = False then

Range("B8").Copy Range("B2")
ThisWorkbook.Refreshall
Thisworkbook.SaveAs Range("B8")

Elseif Range("C8").Value = True then
End if

If Range("C9").Value = False then

Range("B9").Copy Range("B2")
ThisWorkbook.Refreshall
Thisworkbook.SaveAs Range("B9")

Elseif Range("C9").Value = True then
End if

...
...
]

and go on repeating these steps for C10, C11, etc. It works, but I think that this could be written in few rows of code rather than on pages of code.

 

[Weaver]

something like

    For i = 7 To 12 ' change as required
        If Range("C" & i).Value = False Then
        
            Range("B" & i).Copy Range("B2")
            ThisWorkbook.RefreshAll
            ThisWorkbook.SaveAs Range("B" & i)
        
        ElseIf Range("C" & i).Value = True Then
        End If
    Next i

 

[roman10]

something like

    For i = 7 To 12 ' change as required
        If Range("C" & i).Value = False Then
        
            Range("B" & i).Copy Range("B2")
            ThisWorkbook.RefreshAll
            ThisWorkbook.SaveAs Range("B" & i)
        
        ElseIf Range("C" & i).Value = True Then
        End If
    Next i

Thanks really a lot Weaver!

This works great!

Thanks again