Como borrar todo, formato, contenido, comentarios, hyperlink, validación





Habitualmente cuando se automatiza una hoja de Excel a través de una macro, se tiene que borrar las celdas, en este post muestro una macro con las distintas formas de borrar celdas, ya que en algunos casos a lo mejor se requiere borrar todo lo que contenga la celda, datos y formatos; en otras quizás solo se precise borrar los formatos y preservar el contenido; es posible que se requiera borrar solo el contenido, el hyperlink o quizás la validación de la celda. Existen otros post relacionados con el formato de celdas por ejemplo como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excel, establecer color y bordes de celdas, determinar color de celdas, sumar celdas de un mismo color.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.


  

Si se precisa borrar todo lo que contiene la celda, es decir datos y formatos se  puede utilizar el siguiente código, lo que hace es borrar todo el contenido y formato de la celda C2:

Range("C2").Clear

Tal vez lo que se requiera es borrar el formato, pero no el contenido de una celda, en ese caso se debe usar:

Range("C3").ClearFormats

En caso opuesto al anterior es decir preservar el contenido y borrar el formato se puede utilizar el siguiente código.

Range("C4").ClearContents

Domina Excel Hoy
Es menos frecuente que los códigos presentados anteriormente, pero puede que se requiera borrar solo los comentarios, en ese caso utilizar:

Range("C5").ClearComments

Si en una celda se tiene un hyperlink y se desea borrarlo, se debe tener presente que existen dos opciones asociadas, una es borrar solamente el link sin afectar el formato clásico de un hyperlink es decir el color celeste y subrayado; la otra opción es borrar hyperlink y formato que lo caracteriza; el primer código borra solo el hyperlink conservando el formato; el segundo código borra todo, es decir hyperlink y formato, quedando en la celda la expresión literal del hypertexto o hyperlink.

Range("C6").ClearHyperlinks

Range("C7").Hyperlinks.Delete

Por último si se necesita borrar la validación solamente se debe usar:

Range("C8").Validation.Delete


Aporta si es posible con ello ayudarás a seguir manteniendo el sitio, descarga desde el link del final el ejemplo; suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.






Código que se inserta en un módulo



Sub FormasDeBorrar()
Application.ScreenUpdating = False
    Range("C2").Clear
    Range("C3").ClearFormats
    Range("C4").ClearContents
    Range("C5").ClearComments
    Range("C6").ClearHyperlinks
    Range("C7").Hyperlinks.Delete
    Range("C8").Validation.Delete
Application.ScreenUpdating = True
End Sub

Sub EscribirCelda()
On Error Resume Next
Application.ScreenUpdating = False
    Range("C2") = "Tomy Lee"
    Range("C3") = "Dayra Col"
    Range("C3").Font.Color = 255
    Range("C4") = "Tomy Lee"
    Range("C4").Interior.Color = 15773696
    Range("C5").AddComment ("Prueba")
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C6"), Address:= _
        "http://programarexcel.com", TextToDisplay:="http://programarexcel.com"
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C7"), Address:= _
        "http://programarexcel.com", TextToDisplay:="http://programarexcel.com"
    Range("C8").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$F$6:$F$10"
Application.ScreenUpdating = True
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends