kopiëren plakken

[don42]

Beste helpers,

ik heb in kolom A een 150 namen staan

nu wil ik deze in een andere volgorde in kolom c hebben
dat de naam in Kolom A door dubbel klik
naar de Eerste lege cel in kolom C gekopieerd wordt

wie kan mij daar mee helpen

Don

 

[VenA]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cells(Rows.Count, 3).End(xlUp).Offset(1) = Target.Value
    Cancel = True
  End If
End Sub

 

[don42]

top

precies wat ik nodig heb
maar weer eens heel erg bedankt voor je hulp

Don