03/02/2004, 17:41
|
 | | | Fecha de Ingreso: enero-2004 Ubicación: viña del mar
Mensajes: 180
Antigüedad: 20 años, 4 meses Puntos: 3 | |
| mira esto se me ocurrio para tu ejemplo.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
columna = ActiveCell.Column()
fila = ActiveCell.Row()
If columna = 1 Then
Cells(fila, columna).Select
Selection.Copy
Range("C2").Select
Set r2 = ActiveCell
Do While Not IsEmpty(ActiveCell)
Set r2 = r2.Offset(1, 0)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Else
MsgBox "función no disponible para esta celda"
SendKeys "{ESC}" '
End If
Application.CutCopyMode = False
End Sub
tienes que ir a la opcion de editor de visual basic y copiar este codigo
en thisworkbook
__________________
hay tres tipos de matemáticos, los que saben contar y los que no.
Oscar |