Me sale error cuando uso la macro
Cuando uso la macro me sale este error y me parece raro cada el macro tienen la misma visual basic que otras pero no se ejecuta sale esto
Ya probé cambiando su código ya probé cambiando Select por activate abajo pero cuando hago ya no me sale error pero la macro no se ejecuta me gustaría corregir eso pero que mi macro funcione como dice el código algún consejo
Sub hoja4a()
Application.ScreenUpdating = False
Sheets(4).Unprotect "20"
'
' hoja4a Macro
'
'
Sheets(4).Select
Range("G8:H9").Select
Selection.ClearContents
Range("M23:M26").Select
ActiveCell.FormulaR1C1 = ""
Range("C8:D9,C13:E13,G13,A18:C28,G18:H28,A29:J30").Select
Range("B30").Activate
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
Range("C8:D9,C13:E13,A18:C28,G18:H28,G13").Select
Range("G13").Activate
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
Range( _
"C8:D9,C13:E13,A18:C28,G18:H28,G13,A33:C33,B30:C30,G30:H30,G33:H33,B36:C37"). _
Select
Range("B36").Activate
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
Range( _
"C8:D9,C13:E13,A18:C28,G18:H28,G13,A33:C33,B30:C30,G30:H30,G33:H33,B36:C37,G35,I35" _
).Select
Range("I35").Activate
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Sheets("REVISION").Select
Range("B1").Select
Sheets(4).Protect "20"
Application.ScreenUpdating = True
End Sub
2 respuestas
Por cierto, borra el Scrollrow, no afectará tus macros.
Abraham Valencia
Pucha anmigo si habian hojas ocultas no me percate de ese detalles muchas gracias por ese detalle ... alguna pagi o foro de youtube k tengas para aprender un poco mas de macros y codigos
En Internet hay mucho dando "vueltas" pero en mi blog he recopilado algunas cosas:
https://abrahamexcel.blogspot.pe/
Espero te sean útiles
Salu2
Abraham Valencia
Rodrigo, A manera de información, puedes utilizar una hoja aunque esté oculta, no debes seleccionar la hoja, solamente tienes que hacer referencia a la hoja, por ejemplo:
Para esta parta:
Sheets("4").Select
Range("G8:H9").Select
Selection. ClearContents
Podría quedar así:
Sheets("4"). Range("G8:H9"). ClearContents
Realiza una pequeña prueba, para que te familiarices con su uso. Escribe unos datos en las celdas, oculta la hoja con el nombre "4", ejecuta la línea para borrar el contenido, vuelve a mostrar la hoja y revisa el contenido de las celdas.