Dík moc už to vše funguje jak má.

Tak se jsem trochu pokročil: Private Sub Worksheet_Change(ByVal Target As Range) Dim MojeRange As Range Dim i As Integer For i = 5 To 63 Step 2 Set MojeRange = Cells(i, 1) If MojeRange = 13 Then If MojeRange.Offset(0, 2).Resize(2, 6).Locked = False Then MsgBox "Odpovědi byly uloženy. Můžeme pok...

S VBA mám nulové zkušenosti. Mé vzdělání v této oblasti je v rozsahu toho, co jsem se dočetl na Internetu. Je mi jasné, že pro někoho kdo se v této oblasti vyzná musí moje kódy vypadat hrozivě, ale aspoň se o něco pokouším :D. Funkci POČET 2 jsem doposud neznal, takže díky za radu. Co se týče nulový...

Cílem tohoto makra je provést uzamčení bloku buněk, pokud nastane jejich vyplnění. Před tímto krokem je v Msgbox možnost vybrat: potvrdí uzamčení nebo odstraní poslední vyplněnou hodnotu. Uzamčení by mělo probíhat po blocích C5:H6, C7:H8 až po C63:H64. Já sem dal dohromady toto makro: Private Sub Wo...

Díky moc to sem přesně potřeboval

Tady je příklad jak to má fungovat. Doufám že to z toho bude jasnější

Dobrý den, potřeboval bych makro které zaznaméná časy do vedlejších buňek (E5:E34) změny hodnoty buňek (D5:D34) kterou provádí funkce(hodnota buňky se mění z neproběhlo na proběhlo). Našel jsem pouze toto ale to nezaznamenáva změnu funkcí. Private Sub Worksheet_Change(ByVal Target As Range) If Targe...