help with looping something for the entire column

[bananacuriel]

Ive been having troubles looping mi script into the entire column. it looks like this

Sub if_veracruz()


Dim score1 As Integer, score2 As Integer, result As String


score1 = Range("F2").Select


score2 = Range("h2").Select


If score1 = 30 And score2 <= 5 Or score2 = 8 Or score2 = 10 Then


result = "Veracruz Norte"


Else


result = "Veracruz Sur"


End If


Range("G2").Value = result




i thought i could add something like this

Dim x As Integer

Application.ScreenUpdating = False


' Set numrows = number of rows of data.


NumRows = Range("g2", Range("g2").End(xlDown)).Rows.Count


' Select cell g2.


Range("g2").Select


' Establish "For" loop to loop "numrows" number of times.


For x = 1 To NumRows


'code here


' Selects cell down 1 row from active cell.


ActiveCell.Offset(1, 0).Select


Next


Application.ScreenUpdating = True


End Sub



but when trying to join them it only appears error...please help

 

[Fluff]

Hi & welcome to MrExcel
Is this what you want?

Sub if_veracruz()

   Dim score1 As Integer, score2 As Integer
   Dim Cl As Range
   
   For Each Cl In Range("F2", Range("F" & Rows.Count).End(xlUp))
   
      score1 = Cl.Value
      score2 = Cl.Offset(, 2).Value
      
      If score1 = 30 And score2 <= 5 Or score2 = 8 Or score2 = 10 Then
         Cl.Offset(, 1).Value = "Veracruz Norte"
      Else
         Cl.Offset(, 1).Value = "Veracruz Sur"
      End If
   Next Cl

End Sub

 

[bananacuriel]

yeah, thanks man I really appreciate it

 

[Fluff]

Glad to help & thanks for the feedback

 

[Vbagreenhorn1]

or:

Sub blablabla()
LR = Range("F" & Rows.Count).End(xlUp).Row
SR = Range("F1:H" & LR)
For i = 2 To UBound(SR)
    If SR(i, 1) = 30 And SR(i, 3) <= 5 Or SR(i, 3) = 8 Or SR(i, 3) = 10 Then
         SR(i, 2) = "Veracruz Norte"
    Else
         SR(i, 2) = "Veracruz Sur"
    End If
Next
Range("F1:H" & UBound(SR)) = SR
End Sub