Dobrý den,potřeboval bych poradit s úpravou makra. Makro jsem si zkopíroval ze šablony, která je nabízena při vytvoření nového sešitu.Option ExplicitPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next With Application .Cursor = xlNorthwestArrow BooleanCellDoubleClick Target, [AniHe!$O:$P], Cancel .Cursor = xlDefault End WithEnd SubPrivate Sub BooleanCellDoubleClick(rTarget As Range, rValidRange As Range, Cancel As Boolean)On Error Resume Next Application.CellDragAndDrop = False If rTarget.Cells.Count > 1 Then Exit Sub If Intersect(rTarget, rValidRange) Is Nothing Then Exit Sub If Len(rTarget) Then rTarget = vbNullString Else rTarget = 1 End If Cancel = TrueEnd SubJde mi o to, že když mám v buňce nějakou hodnotu/text, tak když na to 2x kliknu, tak se mi ta buňka vymaže a až při druhém dvojkliku se mi buňka vyplní hodnotou 1. Rád bych, aby se to dělo naopak. To znamená, i když buňka bude obsahovat nějakou hodnotu, tak já na to dvakrát kliknu, automaticky se vymaže obsah a vyplní se hodnotou 1 a až při druhém dvojkliku se buňka vymaže.Doufám, že jsem to napsal srozumitelně :DDěkuji za případné rady.
