Ayuda en Macro (Confirmar cambios)

14/06/2005 - 01:05 por BLACIO | Informe spam
Saludos a toda la comunidad

En esta macro, hago que se borren determinadas celdas, me podrian ayudar
para completarla y me pregunte si quiero hacer la accion

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 10/06/2005 por Blacio
'

'
Range("C21").Select
ActiveWindow.SmallScroll Down:=6
ActiveWindow.SmallScroll ToRight:=5
Range("C21:O30").Select
Selection.ClearContents
Range("B21:B30").Select
Selection.Font.ColorIndex = 0
Range("F21").Select
End Sub
 

Leer las respuestas

#1 Héctor Miguel
14/06/2005 - 09:20 | Informe spam
hola, BLACIO !

... macro, hago que se borren determinadas celdas... completarla y me pregunte si quiero hacer la accion [...]



prueba con la siguientes 'modificaciones' [adapta segun tus necesidades]
solo 'procura' mantenerla [como si fuera] en una sola linea [OJO con los 'saltos' de linea] ;)

saludos,
hector.
=Sub Borrar()
If MsgBox("Confirma por favor la accion del borrado", _
vbExclamation + vbOKCancel + vbDefaultButton2, _
"Esperando respuesta...") = vbOK Then _
[c21:o30].ClearContents: [b21:b30].Font.ColorIndex = 0
End Sub

Preguntas similares