AUXILIOOOOO!!!!!!!!!

hola, Xavier !

... quiero abrir la hoja 1 del libro "Book1.xls" y copiar la celda A1 en la hoja 1 del libro "Book2.xls" [...]
Application.Workbook("Book1.xls").Worksheets(Hoja1).Range("a1").Value > Application.Workbook("Book2.xls").Worksheets(Hoja1).Range("a1").Value
pero al hacerlo me salio el error "Run-Time 438: Object doesn't support this property or method".
... porque sale este error, si (considero) logicamente esta bien estrcturado el codigo?

las 'sentencias' que estas usando... tienen [algunas] 'cosillas de mas' y 'cosillas de menos' :-) [p.e.]
->Application.<- es un 'calificador' de objetos 'opcional' [podrias 'aligerar' el codigo si lo omites]
->.Value<- es la propiedad 'por omision' de un objeto 'Range' [a menos que requieras 'otra' propiedad... -idem-]
->Workbook("Book1.xls")<- referenciar a un objeto libro 'requiere' del calificador 'en plural' ->Workbooks<-
->Worksheets(Hoja1)<- el 'indice' para 'señalar' un objeto worksheet NO es 'valido' [como lo estas usando]
si te refieres al nombre de la hoja... 'debe ir' delimatdo por dobles comillas ->Worksheets("Hoja1")<-
si te refieres a la posicion de la hoja en el orden de hojas en el libro [p.e.] ->Worksheets(1)<-
-> [solo por si 'las dudas'...] AMBOS libros [se supone que] deben estar abiertos.

haz una prueba con...
Workbooks("Book1.xls").Worksheets("Hoja1").Range("a1") = _
Workbooks("Book2.xls").Worksheets("Hoja1").Range("a1")

saludos,
hector.

Héctor Miguel wrote:

hola, Xavier !

> ... quiero abrir la hoja 1 del libro "Book1.xls" y copiar la celda A1 en

la hoja 1 del libro "Book2.xls" [...]

> Application.Workbook("Book1.xls").Worksheets(Hoja1).Range("a1").Value > > Application.Workbook("Book2.xls").Worksheets(Hoja1).Range("a1").Value
> pero al hacerlo me salio el error "Run-Time 438: Object doesn't support

this property or method".

> ... porque sale este error, si (considero) logicamente esta bien

estrcturado el codigo?

las 'sentencias' que estas usando... tienen [algunas] 'cosillas de mas' y

'cosillas de menos' :-) [p.e.]

->Application.<- es un 'calificador' de objetos 'opcional' [podrias

'aligerar' el codigo si lo omites]

->.Value<- es la propiedad 'por omision' de un objeto 'Range' [a menos que

requieras 'otra' propiedad... -idem-]

->Workbook("Book1.xls")<- referenciar a un objeto libro 'requiere' del

calificador 'en plural' ->Workbooks<-

->Worksheets(Hoja1)<- el 'indice' para 'señalar' un objeto worksheet NO es

'valido' [como lo estas usando]

si te refieres al nombre de la hoja... 'debe ir' delimatdo por dobles

comillas ->Worksheets("Hoja1")<-

si te refieres a la posicion de la hoja en el orden de hojas en el libro

[p.e.] ->Worksheets(1)<-

-> [solo por si 'las dudas'...] AMBOS libros [se supone que] deben estar

abiertos.

haz una prueba con...
Workbooks("Book1.xls").Worksheets("Hoja1").Range("a1") = _
Workbooks("Book2.xls").Worksheets("Hoja1").Range("a1")

saludos,
hector.

Hector eres el mejor, te debo una, cuando necesites algo, avisame a mi
correo, pude resolver el problema, gracias.

hola, Xavier !

... pude resolver el problema, gracias.

gracias a ti...
- [por el 'feed-back'] :)
- [por el ofrecimiento] ;)
- [por el comentario] :))) [ya iras conociendo a todos]

saludos,
hector.