Macro, Completar código para poner valor en celdas visibles

Dam.

Hola que tal, pues que ahora me vuelvo a atorar en el mismo paso, pensé tenerlo listo, pero aun no resulta, me podrías apoyar, ahora necesito que en una columna solo en las celdas visibles me ponga en valor NA, pero resulta que en esas celdas tengo celdas en blanco y otras con información, entonces cuando corro la macro se queda parada o en las celdas en blanco o se sigue de largo, o cuando tiene información alguna celda no me pone valor y terminar la macro.

Me podrías apoyar con esto, gracias...

Anexo link...

https://www.dropbox.com/s/yqa82y6j961d6cm/Libro1.xls

1 Respuesta

Respuesta
1

Prueba con esta macro

Sub columna_sincolor()
rango = ActiveSheet.UsedRange.Address
uf = Val(Mid(rango, InStrRev(rango, "$") + 1))
    ActiveSheet.Range("S7").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=19, Operator:=xlFilterNoFill
    Range("S8:S" & uf).SpecialCells(xlCellTypeVisible) = "NA"
End Sub

saludos.DAM

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas