zelfde tekst als linker cel met dubbelklik met vba

[alfa911]

Goedendag, is het mogelijk om in vba met dubbelklik dezelfde tekst in te vullen als de cel links er naast? Dit mag alleen gelden in een bepaalde range.
Zie voorbeeld in range H2 t/m N30 en range Q3 t/m S30

Voorbeeld in H3 met dubbelklik dezelfde tekst (piet) overnemen als in G3

alvast bedankt.

Bekijk bijlage check.xlsx

 

[VenA]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30")) Is Nothing Then Exit Sub
  Target = Target.Offset(, -1)
  Cancel = -1
End Sub

 

[alfa911]

Bedankt Vena, werkt perfect.

 

[alfa911]

Nog een vraagje, als ik de code uit wil breiden om het zelfde te doen maar dan twee cellen terugkijken, hoe pas ik dit dan aan? voorbeeld in cel c2 de gegevens overnemen van cel a1 in een kolom van c2 t/m c30

Alvast bedankt

 

[emields]

zo?

 

[alfa911]

Bedankt, alleen heb ik het niet goed geformuleerd. c2 hoeft alleen a2 over te nemen, dat geldt voor elke cel in range c2 t/m c30, dus c8 moet a8 overnemen.

het is tevens uitbreiding op de code van vena

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30")) Is Nothing Then Exit Sub
Target = Target.Offset(, -1)
Cancel = -1
End Sub

Alvast weer bedankt

 

[VenA]

Plaats code svp tussen codetags en ga eens opzoek naar wat Offset doet. Is hetzelfde als de werkbladfunctie OFFSET() / VERSCHUIVING().

Target = Target.Offset(, -2)

Om op dezelfde rij van kolom C (3) naar kolom A (1) te gaan.

 

[alfa911]

Klopt, dit heb ik zelf ook getest. Alleen hoe breid ik de code uit voor deze range c2 t/m c30

 

[VenA]

Dat staat in #2

 

[alfa911]

Als ik de code uitbreid werkt hij niet, wat doe ik fout?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30")) Is Nothing Then Exit Sub
Target = Target.Offset(, -1)
Cancel = -1

If Intersect(Target, Range("c2:c30")) Is Nothing Then Exit Sub
Target = Target.Offset(, -2)
Cancel = -1
End Sub

 

[VenA]

Nogmaals: Plaats code svp tussen codetags Zie https://www.helpmij.nl/forum/announcement.php?f=5

 

[HSV]

Wat zal er gebeuren in onderstaand stukje als je niets in c2:c30 doet?

[COLOR=#333333]If Intersect(Target, Range("H2:N30,Q2:S30")) Is Nothing [/COLOR][COLOR=#ff0000]Then Exit Sub[/COLOR][COLOR=#333333][/COLOR]

 

[alfa911]

Ik snap wat jullie bedoelen, maar hoe kan je aangeven dat als je in rang (H2 t/m N30 of Q3 t/m S30) staat gegevens over moet nemen van 1 cel naar links en als je in range (C2 t/m C30) dubbelklik je de gegevens over moet nemen van twee cellen naar links?

 

[HSV]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30,c2:c30")) Is Nothing Then Exit Sub
  Target = Target.Offset(, -1+(target.column=3))
  Cancel = -1
End Sub

 

[alfa911]

Dank je wel, alleen begrijp ik niet waar in de code staat dat in colom C twee cellen naar links gekeken moet worden.

 

[VenA]

target.column=3

zal als waarde -1 opleveren. -1-1 is?

 

[HSV]

Target = Target.Offset(, -1+(target.column=3))

target = target.offset(,-1+false of true)
true = -1
false = 0

offset(,-1+-1 = -2)

 

[alfa911]

Is voor mij moeilijk te doorgronden, als je dan bv drie cellen naar links wil kijken, hoe kom je dan aan -1+-2 ?

 

[alfa911]

Helaas nog geen reactie,

Wat doet de onderste regel?

Cancel = -1

 

[HSV]

-3 kan natuurlijk niet vanaf kolom C.
Wel vanaf D.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30,d2:d30")) Is Nothing Then Exit Sub
  Target = Target.Offset(, -1 + (Target.Column = 4) * 2)
  Cancel = -1
End Sub

cancel = true betekent dat je cursor niet in de cel optreedt net als buiten het bereik gebeurt.