Vzorec

HODNOTA.NA.TEXT(C6;"dd.mm.rrrr")

=KDYŽ(B2<>"";KDYŽ(F2="Hotově";"Ano dne: "&HODNOTA.NA.TEXT(C2;"dd.mm.rrrr"))) jak mám udělat když v buňce B2 prázdná hodnota aby to bylo čisté nic nenapsané
Děkuji

=KDYŽ(A(B2<>"";F2="Hotově");"Ano dne: "&HODNOTA.NA.TEXT(C2;"dd.mm.rrrr");"")

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

& TEXT(D" & r & "; ""dd.mm.rrrr""); """")"

a třetí parametr máš kde?

Můžeš mi to prosím poslat celý ten kód?
Moc děkuji

Proč tam máš zase TEXT a ne HODNOTA.NA.TEXT?

Kód je

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
wsFaktury.Cells(r, 7).Value = wsStvrzenka.Range("C26").Value ' Datum splatnosti

' Vytvoření vzorce do sloupce H (pokud je podmínka splněna)
vzorec = "=KDYŽ(NEBO(A" & r & " <> """", F" & r & " = ""Hotově""), ""Ano dne: "" & HODNOTA.NA.TEXT(D" & r & ", ""dd.mm.yyyy""), """")" NEUKÁŽE TO AŽ NA TO KLIKNU TEPRVE SE TO ZOBRAZÍ A PÍŠE TO aNO, DNE 10.10.YYYY

' Vložení vzorce do sloupce H (nebo jiného sloupce dle potřeby)
wsFaktury.Cells(r, 8).Formula = vzorec

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

ALE NEJDE TO

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
wsFaktury.Cells(r, 7).Value = wsStvrzenka.Range("C26").Value ' Datum splatnosti

' Vytvoření vzorce do sloupce H s použitím správných oddělovačů a funkce TEXT
vzorec = "=KDYŽ(NEBO(A" & r & " <> """");F" & r & " = ""Hotově"");""Ano dne: "" & HODNOTA.NA.TEXT(D" & r & ";""dd.mm.yyyy"");"""")"

' Vložení vzorce do sloupce H
wsFaktury.Cells(r, 8).FormulaLocal = vzorec ZDE TO UKAZUJE CHYBU

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