radioblaster Zdravim na nete som nasiel kod ktory mi po doubleClick-u zmeni zafarbenie bunky na zlto. Ja by som ho potrebval upravit tak aby ked urobim doubleClick zmeni mi hodnotu z 1 na 0 a naopak.
Vdaka
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
bunka = ActiveCell.Value
Select Case bunka
Case "": Exit Sub
Case 0: ActiveCell.Offset(0, 0).Value = 1
Case 1: ActiveCell.Offset(0, 0).Value = 0
End Select
End Sub