Aparicion de mensaje de error
Publicado por Miguel (2 intervenciones) el 16/02/2009 16:53:32
Mi nombre es Miguel y soy un estudiante de edad avanzada de vba para excel . La razón de este e-mail es para que alguien con mas conocimientos que yo me indicase la razón de que me aparezca un mensaje de error en el procdimiento siguiente:
Sub CopiarPegarRango() 'Se crea este procedimiento en el Modulo1 del Libro1
Dim Rango1 As Range, Rango2 As Range, Nombre As String
Nombre = "C:Documents and SettingsAdministradorMis documentosLibro2.xls"
Workbooks.Open Filename:=Nombre 'Para abrir el Libro2
Set Rango1 = Workbooks("Libro1.xls").Sheets("Hoja1").Range("A1:B2") 'Establece el Rango1
Set Rango2 = Workbooks("Libro2.xls").Sheets("Hoja2").Range("C2") 'Establece el Rango2
Rango1.Copy Rango2 'Para Copiar el Rango1 del Libro1 en el Libro2, a partir de la celda "C4" del Libro2
Estaba convencido de que con este procedimiento se podría copiar el Rango1 del Libro1 en el Rango2 del Libro2, pero no es así.
Gracias en adelanto por la respuesta
Miguel
Sub CopiarPegarRango() 'Se crea este procedimiento en el Modulo1 del Libro1
Dim Rango1 As Range, Rango2 As Range, Nombre As String
Nombre = "C:Documents and SettingsAdministradorMis documentosLibro2.xls"
Workbooks.Open Filename:=Nombre 'Para abrir el Libro2
Set Rango1 = Workbooks("Libro1.xls").Sheets("Hoja1").Range("A1:B2") 'Establece el Rango1
Set Rango2 = Workbooks("Libro2.xls").Sheets("Hoja2").Range("C2") 'Establece el Rango2
Rango1.Copy Rango2 'Para Copiar el Rango1 del Libro1 en el Libro2, a partir de la celda "C4" del Libro2
Estaba convencido de que con este procedimiento se podría copiar el Rango1 del Libro1 en el Rango2 del Libro2, pero no es así.
Gracias en adelanto por la respuesta
Miguel
Valora esta pregunta


0