klikken en kopiëren

john171346 · 20 sep 2021

Hallo allemaal,

Ik ben opzoek naar een VBA code die door middel van een klik, een code kopieer naar een ander tabblad.
In mijn voorbeeld heb ik even 2 tabbladen gezet.
Nu wil ik dat als je op tabblad 1 (is lijst met alle codes) een code aanklik, dat deze code gekopieerd wordt naar de de eerste lege regel op tabblad 2.
en om voor elke code een apart macro te maken is ook wat, het zijn in totaal ca. 600 codes....
wie kan mij helpen?

Alvast bedankt

edmoor · 20 sep 2021

Gebruik dubbelklik:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Value <> "" Then
        With Sheets("Blad2")
            .Cells(.Range("A1").End(xlDown).Row + 1, 1) = Target.Value
            Cancel = True
        End With
    End If
End Sub

john171346 · 20 sep 2021

EDmoor,

hartelijk dank voor je antwoord en je snelle reactie.
Dat is wat zocht... dank je wel TOP.

John van den Berg

HSV · 20 sep 2021

Iets simpeler geschreven.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Value <> "" Then
      Sheets("Blad2").Cells(1).End(xlDown).offset(1) = Target.Value
      Cancel = True
    End If
End Sub

Of:

Code:

Sheets("Blad2").Cells(1).End(xlDown) (2) = Target.Value

klikken en kopiëren

john171346

Gebruiker

Bijlagen

edmoor

Inventaris

john171346

Gebruiker

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy