Forum Discussion
Needs Help with a Nested "FOR.. NEXT" Loop
Hi everyone! I am trying to write a nested “FOR… NEXT” loop to create the following table in Excel Any help is much appreciated! :)
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 :)