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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 maritto8989

03/01/2013 - 01:39 | 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

muchas gracias, funciona a la perfección lo del mensaje de error! en cuanto a lo otro no se, solo copie la macro la verdad no se mucho sobre el tema de programación, pero como al ocultar las hojas me surgió este problema por eso pedí ayuda, gracias de todas formas!

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida