Excel - Copiar

[arielfrancia]

Tengo un problemón.

Tengo un libro con dos hojas.
Quiero copiar un dato de una celda, de una a otra hoja.
Probe con esto:

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

Pero por alguna razón que desconozco me da error en " Hoja2.Range("C1").Select "

Tambien use:

Selection.Copy
ActiveSheet.Paste Destination:=ActiveSheet.Next.Cells(1,4)
Application.CutCopyMode= False


Este ultimo copia, pero me trae la formula y yo solo quiero el resultado.

...Una ayudaaaa!!!

Gracias

[mrocf]

Puedes hacerlo de dos formas:

Código:

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

Quedándote con la "Hoja1" seleccionada. Ó también:

Código:

Private Sub CommandButton1_Click()
    Range("A1:A4").Copy
    Application.Goto Hoja2.Range("C1")
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

dentro de la línea que estabas manejando.

Espero que te haya sido útil.
Saludos