Buenos dias tengo la sigueinte macro que me pone ingreso y no ingreso en la celda G de mi archivo lo que necesito es que solo se ejecute cuando enecuentre campos en la celda si no encuentra datos pare.

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 por su ayuda

Sustituye:

UltiFila = WorksheetFunction.CountA(Range("A12:H30000"))[/CODE]

Por:

[CODE]UltiFila = Range("A" & Rows.Count).End(xlUp).Row[/CODE]

Hola me funciona bien te tengo una ultima pregunta cuando ejecuto esta macro sobre 40000 registro me sale error en esta parte del codigo For i = 2 To UltiFila me podrias ayudar gracias

_

Dim UltiFila As Long, i As Long en lugar de Dim UltiFila, i As Integer

El tipo Integer solo admite valores hasta mas o menos 32.000.

Mira en la Ayuda de VBA "Definición de variables".

Añade como primera instrucción: Application.ScreenUpdating = False y te irá mucho mas rápido.

_