Reakce na odpověď

Dobrý večer můžete mi to prosím upravit?
nejde mi to nemůžu přijít proč?
A PÍŠETO DATUM 10.10.YYYY
neaktualizuje se to
Děkuji moc

Sub Stvrzenka2_tlačítko5_Kliknutí()
   
    ' Uložit s DPH Makro
    Dim wsFaktury As Worksheet
    Dim wsStvrzenka As Worksheet
    Dim r As Long
    Dim vzorec As String

    ' Nastavení listů
    Set wsFaktury = Sheets("Seznam faktur (2)")
    Set wsStvrzenka = Sheets("Stvrzenka (2)")

    ' Najdi první volný řádek
    r = wsFaktury.Cells(wsFaktury.Rows.Count, 1).End(xlUp).Row + 1

    ' Kopírování a vkládání hodnot
    wsFaktury.Cells(r, 1).Value = wsStvrzenka.Range("G5").Value      ' Číslo faktury
    wsFaktury.Cells(r, 2).Value = wsStvrzenka.Range("C26").Value     ' Přijato od
    wsFaktury.Cells(r, 3).Value = wsStvrzenka.Range("K26").Value     ' Odběratel
    wsFaktury.Cells(r, 4).Value = wsStvrzenka.Range("Z28").Value     ' Datum vystavení
    wsFaktury.Cells(r, 5).Value = wsStvrzenka.Range("AG19").Value    ' Částka
    wsFaktury.Cells(r, 6).Value = wsStvrzenka.Range("J28").Value     ' Přijato
   
    ' Vytvoření vzorce do sloupce H (pokud je podmínka splněna)
    vzorec = "=KDYŽ(NEBO(A" & r & "<>""""; F" & r & "=""Hotově""); ""Ano dne: "" & TEXT(D" & r & "; ""dd.mm.rrrr""); """")"
    
    ' Vložení vzorce do sloupce H (nebo jiného sloupce dle potřeby)
    wsFaktury.Cells(r, 8).Formula = vzorec [b]ZDE TO PÍŠE ZLUTĚ[/b]

    ' Zpráva pro uživatele
    MsgBox "Uloženo do seznamu faktur"
End Sub

Vzorec