Problema con macros al ocultar hojas

01/01/2013 - 09:39 por maritto8989 | Informe spam
¡ Hola !
bueno seré breve, tengo un libro de excel que debo presentar para un examen, pero cuando oculto las hojas donde esta la base de datos los macros dejan de funcionar, y quisiera que alguien me ayudara con eso porque no se mucho de esto o al menos no la parte de programación. Aquí dejo uno de los macros con los que tengo problemas, desde ya gracias! ah y otra cosa si no es mucha molestia si alguien podria decirme como hacer si una celda en mi caso E13 > E15 me marque o aparezca una ventana que diga ERROR
Aqui dejo la macro:

Sub BORRAR_DEVOLUCION()
'
' BORRAR_DEVOLUCION Macro
'

'
Sheets("Materiales BD").Select
Range("K2:K85").Select
ActiveWindow.SmallScroll Down:=-60
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("INICIO").Select
Range("N26,N28,N30,N32,N34,N36,N38,N40,N42").Select
Range("N42").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("N26").Select
End Sub
 

Leer las respuestas

#1 dave
02/01/2013 - 19:51 | Informe spam
maritto8989 escribió el 01/01/2013 09:39 :
¡ Hola !
bueno seré breve, tengo un libro de excel que debo presentar para un
examen, pero cuando oculto las hojas donde esta la base de datos los macros
dejan de funcionar, y quisiera que alguien me ayudara con eso porque no se
mucho de esto o al menos no la parte de programación. Aquí dejo
uno de los macros con los que tengo problemas, desde ya gracias! ah y otra cosa
si no es mucha molestia si alguien podria decirme como hacer si una celda en mi
caso E13 > E15 me marque o aparezca una ventana que diga ERROR
Aqui dejo la macro:

Sub BORRAR_DEVOLUCION()
'
' BORRAR_DEVOLUCION Macro
'

'
Sheets("Materiales BD").Select
Range("K2:K85").Select
ActiveWindow.SmallScroll Down:=-60
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("INICIO").Select
Range("N26,N28,N30,N32,N34,N36,N38,N40,N42").Select
Range("N42").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("N26").Select
End Sub


Para el mensaje de error utiliza éste procedimiento en la hoja donde realices tu captura.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E13").Value > Range("E15").Value Then
MsgBox "ERROR", vbInformation, "Aviso"
End If
End Sub

En cuanto al problema de cuando ocultas las hojas, en el código no muestras el procedimiento que estas utilizando.

Preguntas similares