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

A partir del 25 de Enero del 2019 para entrar al foro será con la URL: excel.foroactivo.com Ya se notificó vía e-mail a todos los miembros. Administración UniversoExcelForo. 20-Ene-2019.

No estás conectado. Conéctate o registrate

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

REVU


Buenas tardes amigos, necesitaría de vuestra ayuda.
Tengo una tabla excel con (45 filas) y columnas hasta la AC.
Necesito una macro que me borre los números que tengo escritos en negro en algunas de estas celdas.
Muchas gracias por vuestro tiempo, gracias.

Igtelo

Igtelo
Tu información es muy generalizada...

Sub Borrar()
For Each celda In Range("A1:AC45")
If WorksheetFunction.IsNumber(celda) = True And celda.Font.ColorIndex = 1 Then celda.Clear
Next
End Sub

Ignacio Téllez

REVU


Gracias Ignacio, funciona Genial para mi problema.
Un saludo y mil gracias.

REVU


Perdona Ignacio que abuse de tu tiempo, sería posible otra macro que me restableciera lo borrado "que me dejase la tabla como al principio."
Un saludo y muchas gracias.

Igtelo

Igtelo
Hola Revu.

Claro que si es posible, pero intenta hacerlo, ayúdate con el grabador de macros, "piensa" que debes hacer antes de ejecutar la macro que te dí.

Este post lo doy por resuelto.

Saludos
Ignacio Téllez

REVU


Ok, me pongo en ello.
Gracias, Ignacio.

Contenido patrocinado


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.