En este grupo En todos

Foro de Datamining



Macro borrar datos celdas con aviso

Escrito por Rafa
el 26/08/2006

Hola,

Tengo un boton de comnado que me borra los datos de unas celdas al presionarlo , con esto:

Range("A1:A10"). ClearContents

Pero quiero que antes de borrarme los datos me salga un aviso diciendo algo asi como: Seguro que quiere borrar los datos SI NO

Gracias anticipadas.

Escrito por St7
el 12/12/2006

Entonces modificalo asi

Sub Borrar()
R = MsgBox("Seguro que quiere borrar los datos? ", vbYesNo, "Aviso")
If R = vbYes Then
Range("A1:A10"). ClearContents
End If
End Sub

Salu2 de ST7


Joaom Jota
Carrera tecnica sobre maquinaria pesad...
Escrito por Joaom Jota
el 21/05/2011

Hola St7, está perfecto peeeero a parte del contenido, tambien elimina las formulas que pueda tener una o mas celdas.
Alguna idea para ¿Borrar SOLO el contenido y no las formulas?
Gracias