Colar por CommandBoton

29/11/2006 - 20:54 por Albino | Informe spam
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
 

Leer las respuestas

#1 Tux
30/11/2006 - 15:58 | Informe spam
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

Preguntas similares