How to execute code for every line that satisfies the condition

[PlenkY94]

Hey!

New to the forum. Just getting in the VBA. Maybe you could help me.

This code is calculating one parameter with changing another for one specific row. I would like to make a condition for example: "IF B19 = "10" then calculate the rest of the code, but I would want that for every row where B is 10.

Any ideas?

Sub GoalSeek()

Application.ScreenUpdating = False

Static isWorking As Boolean


If Range("'Hid. - Proracun'!B19").Value = "Cijev" Then


If Round(Range("'Hid. - Proracun'!Q19").Value, 4) <> 0 And Not isWorking Then
    isWorking = True
    
    Range("'Hid. - Proracun'!Q19").Value = 0.01
    Range("'Hid. - Proracun'!U19").GoalSeek goal:=0, changingcell:=Range("'Hid. - Proracun'!Q19")
    
    isWorking = False
    
    
End If
   
    
      
End If

Application.ScreenUpdating = True

End Sub

 

[Akuini]

@PlenkY94
Welcome to MrExcel
Try this:

Sub GoalSeek()

Application.ScreenUpdating = False

Static isWorking As Boolean
Dim n As Long, i As Long

n = Range("B" & Rows.Count).End(xlUp).Row  'find last row with data

For i = 2 To n 'start at row 2
    If Range("'Hid. - Proracun'!B" & n).Value = "Cijev" Then
    
        If Round(Range("'Hid. - Proracun'!Q" & n).Value, 4) <> 0 And Not isWorking Then
            isWorking = True
            
            Range("'Hid. - Proracun'!Q" & n).Value = 0.01
            Range("'Hid. - Proracun'!U" & n).GoalSeek goal:=0, changingcell:=Range("'Hid. - Proracun'!Q" & n)
            
            isWorking = False
            
            
        End If
          
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[Akuini]

Sorry, it should be i instead of n as the counter:

Sub GoalSeek()

Application.ScreenUpdating = False

Static isWorking As Boolean
Dim n As Long, i As Long

n = Range("B" & Rows.Count).End(xlUp).Row  'find last row with data

For i = 2 To n 'start at row 2
    If Range("'Hid. - Proracun'!B" & i).Value = "Cijev" Then
    
        If Round(Range("'Hid. - Proracun'!Q" & i).Value, 4) <> 0 And Not isWorking Then
            isWorking = True
            
            Range("'Hid. - Proracun'!Q" & i).Value = 0.01
            Range("'Hid. - Proracun'!U" & i).GoalSeek goal:=0, changingcell:=Range("'Hid. - Proracun'!Q" & i)
            
            isWorking = False
            
            
        End If
          
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[PlenkY94]

Sorry, it should be i instead of n as the counter:

Sub GoalSeek()

Application.ScreenUpdating = False

Static isWorking As Boolean
Dim n As Long, i As Long

n = Range("B" & Rows.Count).End(xlUp).Row  'find last row with data

For i = 2 To n 'start at row 2
    If Range("'Hid. - Proracun'!B" & i).Value = "Cijev" Then
   
        If Round(Range("'Hid. - Proracun'!Q" & i).Value, 4) <> 0 And Not isWorking Then
            isWorking = True
           
            Range("'Hid. - Proracun'!Q" & i).Value = 0.01
            Range("'Hid. - Proracun'!U" & i).GoalSeek goal:=0, changingcell:=Range("'Hid. - Proracun'!Q" & i)
           
            isWorking = False
           
           
        End If
         
    End If
Next

Application.ScreenUpdating = True

End Sub

Thank you for your help!

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.