error en macro..!

24/10/2006 - 03:42 por Isaac Newton | Informe spam

Tengo la siguiente macro pero me manda error en la linea:
Sheets("Listado").Select, y no se oprque que puede ser?, lo que trato de
hacer es copiar cierto rango de un archivo que tengo. Espero que me puedan
ayudar.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
'copia departamentos
Workbooks.Open Filename:="C:\Prog Planilla\Departamentos.xls"
Sheets("Listado").Select
Range("B6:C50").Select
Selection.Copy
Windows("Empleados.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("Departamentos.xls").Activate
ActiveWorkbook.Close
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub

Saludos,

Siga el debate

15 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Ivan

24/10/2006 - 04:45 | Informe spam

Hola Newton

creo que deberias poner sheets.activate en vez de sheets.select, pero
creo que luego te ibas ha encontrar algun error mas

de todas formas y aunque no tengo demasiada idea, creo que un codigo
parecido a este seria mas eficaz:(OJO no esta probado ni demasiado
depurado)

Sub Abrir_Libro2()
Application.ScreenUpdating = False
on error resume next
Workbooks.Open Filename:="C:\Prog Planilla\Departamentos.xls"
on error goto 0
With Workbooks("Departamentos.xls")
.Sheets("Listado").[B6:C50].Copy
'' he supuesto que el libro de destino se llama "Empleados.xls" y la
hoja "Empleados"
Workbooks("Empleados.xls").Sheets("Empleados").Range("A2") _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Close
End With
'' he supuesto que la hoja "Menu" tambien esta en el libro
"Empleados.xls"
Workbooks("Empleados.xls").Sheets("Menu").Activate
Application.ScreenUpdating = True
End Sub

vete con ojo y comentas si te sirve

un saludo y hasta pronto
ivan

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :