dubbelklik_cel_blad1_ganaar_blad2_range_P7

[jdrmer]

Hallo dames en heren,
een vraag ik had eerst een knop gemaakt met een makro, die een actie moest doen.
Maar achteraf zou ik het liever hebben dat als je in blad1 dubbelklikt op een willekeurige cel in kolom F deze naar blad2 gaat en dan naar range P7 gaat.
En dan in kolom P in elke willekeurige cel een dubbelklik kan geven zodat deze het nummer kopieert naar het opvolgende nummer van blad 1 kolom F
Misschien onmogelijk, maar zou iemand daarmee kunnen adviseren of helpen.?
mvg Jan

 

[HSV]

Is dit de bedoeling Jan?

 

[jdrmer]

Hallo HSV,
bijna, echter wil ik graag dat het willekeurig dubbelgeklikte nummer van blad2 kolom P naar blad1 wordt gekopieerd aansluitend op de reeds ingevoerde nummers in kolom F.
Dus na het laatste nummer.
mvg Jan

 

[Warme bakkertje]

Vervang in bladmodule van Blad2.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns(16)) Is Nothing Then Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1) = Target.Value
Cancel = True
MsgBox "gelukt"
End Sub

 

[jdrmer]

Dames en Heren, bedankt voor Uw hulp.
mvg Jan