Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[sph]

Kan ik deze vba ook toepassen op specifieke cellen ipv op heel het werkblad?
Dit om snelheid te winnnen in grote excel bestanden.

Dus dat er alleen een vba commando wordt uitgevoerd als bv $C$2:$C$10 verandert ipv elke verandering op het betreffende blad?

 

[sph]

Een beetje een lastig voorbeeld.
Mijn excel sheets zijn zo rond de 5 mb en daarin merk je dat de boel erg traag wordt als er bij elke cursorverschuiving in het veld een vba gaat lopen die invloed heeft op 80 cellen.

Bekijk bijlage SELECTIONCHANGE.xlsm

 

[Cobbe]

Probeer deze code eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C10")) Is Nothing Then
 If Target.valeu <> "" Then Target.Offset(0, 2) = Target.Value
End If
End Sub

 

[sph]

Zo die is snel :evil:

Bedankt, opgelost!

 

[Cobbe]

Maar toch denk dat deze beter tot zijn recht komt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C10")) Is Nothing Then
 If Target.Value <> "" Then Target.Offset(0, 2) = Target.Value
End If
End Sub

 

[sph]

Die had ik er zelf al uitgehaald
Maar 1 op 1 werkt deze beter idd