Udfør handling når celle vælges

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
MsgBox "  du er nu i celle B2"
'kode
End If

End Sub

denne virker når celle B2 makeres

skal være i arkmodulet for det ark den skal virke på.

Højreklik på arkfanen, vælg vis programkode

Jeg tror lige det er det jeg er ude efter. Jeg tester lige i morgen, så vender jeg tilbage.

ok

Det virker bare ! Smid et svar så er der point på vej.
(jeg har ca 100 celler og det er 'lidt' langsomt - er der en hurtigere måde at gøre det på ?)

Lidt langsom, hvad mener du. ?

det tager ca. 1½ sec for at makroen køre (den er meget simpel - den skriver en værdi i en celle)

må jeg se koden. ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("o2")) Is Nothing Then
R = ActiveCell.Row
    Application.ScreenUpdating = False
    Range("n3").Select
    ActiveCell.FormulaR1C1 = R
    Cells(R, "o").Select
End If
If Not Intersect(Target, Range("o3")) Is Nothing Then
R = ActiveCell.Row
    Application.ScreenUpdating = False
    Range("n3").Select
    ActiveCell.FormulaR1C1 = R
    Cells(R, "o").Select
End If

osv osv. Der er 93 celler som kan vælges

If Not Intersect(Target, Range("o2:o94")) Is Nothing Then
R = ActiveCell.Row
    Application.ScreenUpdating = False
    Range("n3").FormulaR1C1 = R
    Cells(R, "o").Select
End If

kan den ikke bruges, gælder for alle i kolonne O række 2 til 94

nææ, den skal se sådan ud

If Not Intersect(Target, Range("o2:o94")) Is Nothing Then
R = ActiveCell.Row
    Range("n3").FormulaR1C1 = R
End If

dit problem er denne linie.

  Cells(R, "o").Select
den vælger din celle igen, og så køres koden igen, i ovenstående undgås dette

Det kan du tro den kan. Den tager lige toppen af tiden - men det tager stadig ca 1 sec. (og udover det så er det sgu' rart at få barberet sine 558 linier ned til 6 - lol)

havde ikke set den 'nye' kode. Tester lige...

Nu er den bare super hurtig. Men jeg vil gerne have at cellen bliver valgt igen (så at man bare kan bruge pil ned/op for at komme videre, men har jeg forstået det rigtigt hvis det er det som tager tid ?)

cellen er stadig valgt, den flyttes ikke

...og hvordan kan det være at det kan 'belaste' så meget at vælge en enkelt celle

Den flyttes desværre hos mig. Når der redigeres i n3 opdateres en graf med dynamiske navne.

hver gang du selcter o = kolonnen udføres koden, så når du bruger linien,  Cells(R, "o").Select, kører den koden igen, så den kører i ring.

er der en kode på N3,hvis der er det, vil jeg gerne se den. ?

vil det sig at når jeg skriver 'Cells(R, "o").Select' køres koden igen ? Hvordan kan den så stoppe ? og hvorfor crasher den så ikke.

den stopper selv efter et antal gange, hvis du havde fjernet,  Application.ScreenUpdating = False, kunne du se det.

prøv denne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("o2:o94")) Is Nothing Then
    R = ActiveCell.Row
    Application.ScreenUpdating = False
    Range("n3").FormulaR1C1 = R
   
  Application.EnableEvents = False ' stopper automatiske makroer i at blive udført
    Cells(R, "o").Select
  Application.EnableEvents = True ' giver dem lov igen
End If

End Sub

Det er simpelthen bare i orden. Point og tak herfra !

selv tak ;-))

det er fedt stadig at kunne lære lidt hverdag.