Colar por CommandBoton

Albino escribió:

Olá
Tengo una duda que quissaz me podereis aclarar, és lo seguiente:
Tengo una hoja con entradas en las colunas A;B;C e D e un códogo que va
premitir copiar la fila onde una celda está seleccionada para la otra hoja.
El vcódigo és este.
_________________________________
Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Destination:= _
Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
End Sub
__________________________________
Funciona prefecto pero lo que yo pretendia seria que el código en vez de
copiar toda la fila, me copie e pegue solo detrminads celdas de la misma
fila. És decir pretendia que copie e cole solo las celdas de las colunas
A;B;D e D en la otra hoja.
PS: perdon mi espanhol
Muchas Gracias

Hola Albino :-)

Pues puedes probarlo asi:


Private Sub CommandButton1_Click()

Selection.Copy Destination:=Sheets("hoja2") _
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Con esto lo que selecciones en la hoja uno, te lo copiara en la hoja 2 .

Nos comentas ok? :-)

Saludos
Monica



¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Olá
Bueno ninguna de las soluciones me quedó de agrado, és decir:
Lá solucion de David me devolve un error que és el seguiente:
Run-Time error '1004'
Method 'Range' of 'object'_worksheet' failed.
La adaptacion que yo efectue fue la seguinte:
_________________________________
Private Sub CommandButton1_Click()
F = ActiveCell.Row
F2 = Application.WorksheetFunction.CountA(Range("Folha2!A:A")) + 1
"(esta filha se queda amarilla)"
Sheets("Folha2").Cells(F2, 1).Value = Cells(F, 1).Value
Sheets("Folha2").Cells(F2, 2).Value = Cells(F, 2).Value
Sheets("Folha2").Cells(F2, 3).Value = Cells(F, 3).Value
Sheets("Folha2").Cells(F2, 4).Value = Cells(F, 4).Value
End Sub_____________________________________________
No se resover la situacion
Comenta por favor
Gracias

La solucion de Tux, funciona, pero solo copia e pega las celdas
seleccionadas e lo que yo quiero és que me copie e pegue las celdas A,B,C,D
de cada fila donde esté el una de ellas seleccionada, és decir se tiengo la
celda D6 seleccionada, me tenderia que copiar e pegar las Celdas A6:B6:C6 e
D6 em la hoja2.
Gracias e un saludo

"Tux" escreveu na mensagem
news:OQnqx$

Albino escribió:

Olá
Tengo una duda que quissaz me podereis aclarar, és lo seguiente:
Tengo una hoja con entradas en las colunas A;B;C e D e un códogo que va
premitir copiar la fila onde una celda está seleccionada para la otra
hoja.
El vcódigo és este.
_________________________________
Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Destination:= _
Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
End Sub
__________________________________
Funciona prefecto pero lo que yo pretendia seria que el código en vez de
copiar toda la fila, me copie e pegue solo detrminads celdas de la misma
fila. És decir pretendia que copie e cole solo las celdas de las colunas
A;B;D e D en la otra hoja.
PS: perdon mi espanhol
Muchas Gracias

Hola Albino :-)

Pues puedes probarlo asi:


Private Sub CommandButton1_Click()

Selection.Copy Destination:=Sheets("hoja2") _
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Con esto lo que selecciones en la hoja uno, te lo copiara en la hoja 2 .

Nos comentas ok? :-)

Saludos
Monica



¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Olá de nuevo.
David despues de pesquisar un pouco en los foruns consegui por tu codigo a
funcionar, no en el "CommandBoton" pero en una macro. En la macro ya no me
me devolve el error.

"Tux" escreveu na mensagem
news:OQnqx$

Albino escribió:

Olá
Tengo una duda que quissaz me podereis aclarar, és lo seguiente:
Tengo una hoja con entradas en las colunas A;B;C e D e un códogo que va
premitir copiar la fila onde una celda está seleccionada para la otra
hoja.
El vcódigo és este.
_________________________________
Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Destination:= _
Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
End Sub
__________________________________
Funciona prefecto pero lo que yo pretendia seria que el código en vez de
copiar toda la fila, me copie e pegue solo detrminads celdas de la misma
fila. És decir pretendia que copie e cole solo las celdas de las colunas
A;B;D e D en la otra hoja.
PS: perdon mi espanhol
Muchas Gracias

Hola Albino :-)

Pues puedes probarlo asi:


Private Sub CommandButton1_Click()

Selection.Copy Destination:=Sheets("hoja2") _
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Con esto lo que selecciones en la hoja uno, te lo copiara en la hoja 2 .

Nos comentas ok? :-)

Saludos
Monica



¡Un SAludo! :-)

www.fermu.com
www.zorval.es