EXCEL - změna obsahu buńky při kliknutí

[svagr]

Dobrý den/Ahojte,

můžete mi prosím poradit jak nastavit změnu hodnoty buňky při kliknutí na myš?
Mám tyto parametry:
O
X
N/A

a potřeboval bych např. v buňce E4 to mít tak že když na ní kliknu tak se to střída..tedy klik objeví se O, druhý klik objeví se X a třetí klik objeví se N/A a tak stále dokola..

díky moc za pomoc...

[Reklama]

[cmuch]

Ahojte,
toto vlož do modulu příslušného listu ve VBA (alt+f11)

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Address(0, 0) = "E4" Then
    With Application
      .ScreenUpdating = False
      .EnableEvents = False

      Select Case Target.Value
        Case "O": Target.Value = "X"
        Case "X": Target.Value = "N/A"
        Case "N/A": Target.Value = "O"
        Case "": Target.Value = "O"
      End Select
      .Goto Target(2, 1), False
      .EnableEvents = True
      .ScreenUpdating = True
    End With
  End If
End Sub