Needs Help with a Nested "FOR.. NEXT" Loop

Brass Contributor

Hi everyone! I am trying to write a nested “FOR… NEXT” loop to create the following table in Excel

 

ExampleExampleAny help is much appreciated! :) 

4 Replies

Hi,

 

You don't have to use For...Next Statement!

 

This formula can do that for you:

=IF(AND(ISODD(ROW()),ISODD(COLUMN())),"Odd",IF(AND(ISEVEN(ROW()),ISEVEN(COLUMN())),"Even",""))

 Please copy it in cell A1, then use the fill handle to drag it to the right and down.

 

Regards

@Haytham Amairah Hi! I am actually learning how to use vba right now so that's why I was asking for a sample vba :)

Hi,

 

If so, please try this VBA code:

Sub ODD_EVEN()
'Written by Haytham Amairah
'Created: 5/5/2018
'Last updated: 5/5/2018
    
    On Error GoTo handler
    
    Dim appliedRange As Range
    Set appliedRange = Application.InputBox("Please select the range:", , , , , , , 8)
    
    Dim cell As Range
    
    Application.ScreenUpdating = False
    Application.EnableAnimations = False
    
    For Each cell In appliedRange
        
        If cell.Row Mod 2 = 0 And cell.Column Mod 2 = 0 Then
           cell.Value = "Even"
        ElseIf cell.Row Mod 2 <> 0 And cell.Column Mod 2 <> 0 Then
           cell.Value = "Odd"
        Else
           cell.Value = ""
        End If
        
    Next
    
    Application.ScreenUpdating = True
    Application.EnableAnimations = True
    
handler:
    Application.ScreenUpdating = True
    Application.EnableAnimations = True

End Sub

 

I hope this helps you

Haytham

@Haytham Amairah Hi! thank you so much! It works perfectly :)