Private Sub Worksheet_Change(ByVal Target As Range) copy and past
Private Sub Worksheet_Change(ByVal Target As Range)virker ikke på celleændring med copy & paste, men hvis jeg manuelt indtaster en ny værdi + enter i celle B61 eller Q68, så virker det fint. Da data kan være ret komplexe vil det absolut være en fordel med copy/paste.
Et andet men mindre problem er, at jeg ikke kan få det til at virke, hvis jeg benytter navnet på cellerne, men kun den absolutte adresse "$B$61" og "$Q$68" selv $-tegnene er nødvendige for korrekt virkemåde
Skal bruges til at starte rutinen lookup i module 1 ved indtastning af ny data.
Koden er:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$B$61" Then
On Error Resume Next
Application.EnableEvents = False
Call Module1.lookup
Application.EnableEvents = True
On Error GoTo 0
Else
If Target.Address = "$Q$68" Then
On Error Resume Next
Application.EnableEvents = False
Call Module1.lookup
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub
