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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 BLACIO

14/06/2005 - 15:46 | Informe spam

Hector Miguel
con una pequeña modificación, y funciono como queria,
Sinceramente muchas gracias...

"Héctor Miguel" escribió:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida