Tengo el siguiente código VBA para encontrar ocurrencias de "0" en una columna siguiente:¿Cómo obtener la dirección de la celda adyacente?
For Each c In Range("B:B")
If c.Value = "0" Then
MsgBox "0 found at " & (c.Address)
End If
Next c
¿Cómo puedo modificar el código para que cuando encuentre una B6 "0" en la opinión,, muestra C7 ? es decir. muestra la celda diagonalmente adyacente a aquella donde se encuentra el "0".
Gracias. Funciona, pero tuve que convertirlo en Cells (c.Row + 1, c.Column + 1) .Address para obtener la dirección, de lo contrario, me daría el valor. – xbonez