Problema al momento de ejecutar una macro
Buen dia:
tengo un problema con la siguiente macro, al momento de ejecutarla me esta tomando los vacíos como diferentes de "nunca" y me pone "ingreso", necesito que me realice los cambios solo hasta que finalizan los registros, les agradecería mucho su ayuda.
Sub Validación()
Dim UltiFila, i As Integer
Dim valorCeldaIngresos As String
UltiFila = WorksheetFunction.CountA(Range("A:H"))
valorCeldaIngresos = 0
Do While valorCeldaIngresos <> ""
For i = 12 To UltiFila
valorCeldaIngresos = Application.ActiveWorkbook.Worksheets(1).Cells(i, 7)
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
Loop
End Sub
Cambia tu macro por esta
Sub valida()
'Por.DAM
For i = 12 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "G") <> "Nunca" And Cells(i, "G") <> "" 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
Prueba y me comentas
Saludos. Dante Amor
Si es lo que necesitas.
