Porque mi macro no me valida ayuda por favor
Hola tengo la siguiente macro que copia datos de un archivo a otro pero
no me esta validando la celda G que al copiar si dice nunca me ponga no
ingreso y si es diferente de nunca ponga ingreso.
Agradezco su ayuda
Sub COPIA()
Windows("Libro1").Activate
Sheets("Hoja1").Select
Range("A2:H3000").Select
Selection.Copy
Windows("Libro2.xlsx").Activate
Range("A2:H3000").Select
ActiveSheet.Paste
Dim UltiFila, i As Integer
UltiFila = Range("AZ" & Rows.Count).End(xlUp).Row
For i = 2 To UltiFila
If Cells(i, "G") <> "Nunca" Then Cells(i, "G") = "Ingreso"
If Cells(i, "G") = "Nunca" Then Cells(i, "G") = "No ingreso"
Next
End Sub
¿Por qué cuentas las filas de la columna AZ si tus datos van a la A a la H?
Utiliza Activesheet. Cells(i, 7) en lugar de Cells(i, "G")
ok
Si te funcionó por favor califica y cierra la pregunta. Caso contrario cuéntame si te sigue dando problemas.
