

Vzorec
Mám vzorec =KDYŽ(F6="Hotově";"Ano dne: " & TEXT(C6;"dd.mm.rrrr");"") a mělo by to napsat Ano dne: 10.10.2025 v buňce C6 je datum a v buňce F6 je Hotově ale píše to chyba
=KDYŽ(F6="Hotově"; "Ano, dne: " & HODNOTA.NA.TEXT(C6; "dd.mm.yyyy"); "") to zase napíše Ano, dne: 10.10.yyyy
Můžete mi, prosím poradit?
Děkuji
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
& 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