Alert Message needed for Excel Table/Range

[yuvastanza]

Hi Leads,

Good day!

I need a VBA help to have a alert message in a Table / range of cells ([Range("C7:E18").value]) if the value of the cell is more than 0. once the alert message get clicked the cursor should jump to the appropriate cell in the second table which is in the same sheet. For example if cell C7 has value 1 (which is greater than 0), the message should popup and has to jump to the Cell C27 to fill the reasons, if it is for C8 then it should be C28 like that.

Table 1
[TABLE="width: 500"]
<tbody>[TR]
[TD]Column C[/TD]
[TD]Column D[/TD]
[TD]Column E[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]0[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


[TABLE="width: 500"]
<tbody>[TR]
[TD]Column C[/TD]
[TD]Column D[/TD]
[TD]Column E[/TD]
[/TR]
[TR]
[TD]Reasons[/TD]
[TD][/TD]
[TD]Reasons[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[alansidman]

Here is a VBA code to do as you wish.

Sub Yuva()
    Dim c As Range, rng As Range
    Set rng = Range("C7:E18")
    For Each c In rng
        If c > 0 Then
            c.Offset(20, 0).Select
        End If
    Next c
End Sub