Copiar datos de una celda de un libro a una celda de otro libro.

hola Juan.
utiliza Herramientas..Macros..Grabar nueva macro
entonces selecciona las celdas verticalmente
pasas a la hoja2 y te ubicas en la primera celda donde quieres los datos
y..edicion..oegado especial..(seleccionas trasponer) y listo
vas al editor de vba y tienes el codigo
luego esto se lo asignas al CommandButton1_Click()

inserta un boton y le asignas este codigo

Private Sub CommandButton1_Click()
Range("A1:A4").Select
Selection.Copy
Hoja2.Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub


modifica los rangos a tu gusto
cualquier cosa me avisas ..chao...




Me alimento del conocimiento de todos


"Juan P." wrote:

Hola a todos, quien me puede ayudar.
Quiero saber como hago para copiar los datos de 4 celdas verticales
determinadas en la hoja1 a la hoja2 peo que estos datos en la hoja dos esten
en celdas horizontales. Por medio de un boton.
Gracias

otra opcion sin seleccionar nada:

Private Sub CommandButton1_Click()
Range("A1:A4").Copy
Hoja2.Range("C1").PasteSpecial Transpose:=True
End Sub

Saludos,
KL


"Orfao" wrote in message news:

hola Juan.
utiliza Herramientas..Macros..Grabar nueva macro
entonces selecciona las celdas verticalmente
pasas a la hoja2 y te ubicas en la primera celda donde quieres los datos
y..edicion..oegado especial..(seleccionas trasponer) y listo
vas al editor de vba y tienes el codigo
luego esto se lo asignas al CommandButton1_Click()

inserta un boton y le asignas este codigo

Private Sub CommandButton1_Click()
Range("A1:A4").Select
Selection.Copy
Hoja2.Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub


modifica los rangos a tu gusto
cualquier cosa me avisas ..chao...




Me alimento del conocimiento de todos


"Juan P." wrote:

Hola a todos, quien me puede ayudar.
Quiero saber como hago para copiar los datos de 4 celdas verticales
determinadas en la hoja1 a la hoja2 peo que estos datos en la hoja dos esten
en celdas horizontales. Por medio de un boton.
Gracias