Excel - error 9 tiempo ejecucion

 
Vista:

error 9 tiempo ejecucion

Publicado por Francisco (26 intervenciones) el 02/11/2008 20:41:17
Hola a todos y perdonar las molestias pero tengo un pequeño problema
con una macro .
tengo una macro que con un boton me realiza una copia de la hoja y al ejecutarla me sale
error 9 en tiempo de ejecion
la hoja con el nombre de benjumea-derribos esta creada
Sub pedro_andreu()
'
' pedro_andreu Macro
' Macro grabada el 24/08/2008 por Usuario
'
' Acceso directo: CTRL+p
Range("G11").Select
Sheets("PEDRO ANDREU").Select
Sheets("PEDRO ANDREU").Copy Before:=Sheets("BENJUMEA-DERRIVOS") (ESTA ES LA DEL ERROR)
Range("A15:G41").Select
Selection.ClearContents
Range("G11").Select
Selection.ClearContents
Range("J4:S48").Select
Selection.ClearContents
Range("G11").Select
Range("J47").Formula = "=H47"

GRACIAS Y PERDON POR LAS MOLESTIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:error 9 tiempo ejecucion

Publicado por jcs (494 intervenciones) el 03/11/2008 10:21:38
Muy buenas,

Pues yo he ejecutado la macro y aparentemente ha funcionado, no sé si de acuerdo a lo que quieres, pero por lo menos no ha dado error.

Eso sí, por si fuera esto, en la macro tienes ("BENJUMEA-DERRIVOS"), así con V, y tu dices que tienes creada la hoja benjumea-derribos.

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error 9 tiempo ejecucion

Publicado por francisco (26 intervenciones) el 04/11/2008 15:48:11
Muchas gracias por responder tan pronto y ademas tienes toda la razon as dado en todo el clavo era un error de ortogracia.
Pero ya que estamos y abusando un poquito de tus conocimientos tengo que decirte que ahora al ejecutar (BENJUMEA-DERRIBOS) me sale el error .
"Nose puede ejecutar la macro "DICIEMBRE-08xls!benjumea-derrivos puede que la macro no este disponible en este libro o que se hayan desabilitado todas las macro" cosa que no es cierto porque las dema hojas van bien
te he puesto derrivos con V por que en el mensaje viene asin y yo lo e restificado

Sub benjumea_derribos()
'
' benjumea_derribos Macro
' Macro grabada el 24/08/2008 por Usuario
'
' Acceso directo: CTRL+b
Range("G11").Select
Sheets("BENJUMEA-DERRIBOS").Select
Sheets("BENJUMEA-DERRIBOS").Copy Before:=Sheets("BENJUMEA-EXCAVACIONES")
Range("A15:G41").Select
Selection.ClearContents
Range("G11").Select
Selection.ClearContents
Range("J4:S48").Select
Selection.ClearContents
Range("G11").Select
Range("J47").Formula = "=H47"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:error 9 tiempo ejecucion

Publicado por jcs (494 intervenciones) el 04/11/2008 19:26:23
Muy buenas,

pues parece que el mensaje que te da no corresponde a esa macro. Lo que intentas es ejecutar la macro benjumea-derrivos (con v) que está en el libro DICIEMBRE-08.xls.

Mira a ver como se llama a esa macro. Si por ejemplo está asignada a un botón, revisa esa asignación.

No sé si te servirá.

Un saludo,. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error 9 tiempo ejecucion

Publicado por francisco  (26 intervenciones) el 06/11/2008 22:57:19
Gracias de nuevo por que as vuelto a dar en clavo
saludos de un amigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error 9 tiempo ejecucion

Publicado por baranda (1 intervención) el 16/04/2014 15:54:55
Sres
Me indican como solucionar este problema
Deseo copiar un hoja de un libro, es este mismo libro (se que hay una forma establecida en excel), pero tengo que incluir una folio, correlatvo para esta acccion


Sub CopiaFormatosYValores()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Pruebainformes").Copy _
after:=Workbooks("Pruebainformes").Worksheets(Workbooks("PruebaInforme").Worksheets.Count)
With ActiveSheet
.UsedRange.EntireColumn.Copy
.[a1].PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
End With
Application.CutCopyMode = False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar