Sentencia en macro que pare cuando encuentre celdas vacía
Buenos días tengo la siguiente macro que me pone ingreso y no ingreso en la celda G dependiendo de los datos que allan allí lo que necesito es que solo se ejecute cuando encuentre campos en la celda si no encuentra datos pare la macro.
esta es mi macro
Sub VALIDA_CAMPO_ULTIMO_ACCESO()
Dim UltiFila, i As Integer
UltiFila = WorksheetFunction.CountA(Range("A12:H30000"))
For i = 12 To UltiFila
If Cells(i, "G") <> "Nunca" Then
Cells(i, "G") = "Ingreso"
Else
Cells(i, "G") = "No ingreso"
End If
If Cells(i, "H") = "-" Then
Cells(i, "G") = "No Ingreso"
End If
Next
End Sub
Gracias
1 Respuesta
Así como estás utilizando la instrucción Ultifila = ... te está devolviendo el total de celdas en el rango A:H, no el total de filas en col A.
Reemplázala por alguna de estas 2:
UltiFila = WorksheetFunction.CountA(Range("A12:A30000"))
UltiFila = range("A65536").end(xlup).row
En la sección Macros de mi sitio dejo otras sintaxis también posibles.
muchas gracias una pregunta porque se me bloquea la macro cuando la ejecuto con 40000 registros
Defriní la variable UltiFila como Long en lugar de Integer.
Sdos
Elsa
