working with ranges, using functions if and case

[Naibei dennis]

[TABLE="width: 500"]
<tbody>[TR]
[TD]sortcut[/TD]
[TD]for booking[/TD]
[TD]acount[/TD]
[TD]team[/TD]
[TD]ch[/TD]
[TD]pt[/TD]
[TD]yth m[/TD]
[TD]total[/TD]
[/TR]
[TR]
[TD] 001-cw[/TD]
[TD]we[/TD]
[TD]09998475[/TD]
[TD]44[/TD]
[TD]66[/TD]
[TD][/TD]
[TD][/TD]
[TD]110[/TD]
[/TR]
[TR]
[TD]003-dd[/TD]
[TD]rer[/TD]
[TD]55656[/TD]
[TD]38[/TD]
[TD]20[/TD]
[TD][/TD]
[TD]43[/TD]
[TD]101[/TD]
[/TR]
</tbody>[/TABLE]
wanted code that check if total >0 then check the rows team,ch,pt,and yth m onlly if its > 0, otherwise move next line.

 

[Scott T]

What do you mean when you say check the rows team,Ch,PT and Yth m ?


This will check if the total if greater then 0. You would need to add the code into the if statement to do what you want to do.

Sub checktotal()
Dim lr As Long
lr = Cells(Rows.Count, "H").End(xlUp).Row
For x = 2 To lr
    If Cells(x, "H") > 0 Then
        'what you want to do here
        Stop
    End If
Next x

End Sub