Correr procedimiento si valor en rango (celda) es = 0
Tengo valores dentro de un rango en la columna "D", quisiera ejecutar un procedimiento si ningún valor de mi rango es "Cero", pero si algún valor es "cero" que muestre un msgbox, y resalte la fila, pero no ejecute mi procedimiento, requiero que se cumpla que todos los valores del rango contengan un numero.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a
te paso la macro
Sub verifica()
'//Por Adriel
Set h1 = Sheets("Hoja1")
'
cont = 0
h1.Columns("D").Interior.ColorIndex = xlNone
For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "D") = 0 Then
h1.Cells(i, "D").Interior.ColorIndex = 6
cont = cont + 1
End If
Next i
'
If cont > 0 Then
MsgBox "hay " & cont & " con valor 0"
Exit Sub
Else
'aqui pones para llamar a tu procedimiento
Call macro
End If
End Suben esta linea cambias el nombre de tu procedimiento en mi caso puse Macro
'aqui pones para llamar a tu procedimiento Call macro
valora la respuesta para finalizar saludos!
