UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

anfega1


Buenos dias tengo la siguiente macro que me pone ingreso y no ingreso en la celda G dependiendo de los datos que allan alli lo que necesito es que solo se ejecute cuando encuentre campos en la celda si no encuentra datos pare.

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

Igtelo


Hola anfega1.

Prueba de ésta forma:

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") = "" Then
Exit Sub
End If
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



Saludos
Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.