Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno 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

Předmět Autor Datum
HODNOTA.NA.TEXT(C6;"dd.mm.rrrr")
Wikan 10.04.2025 19:50
Wikan
=KDYŽ(B2<>"";KDYŽ(F2="Hotově";"Ano dne: "&HODNOTA.NA.TEXT(C2;"dd.mm.rrrr"))) jak mám udělat když v b…
Mati 10.04.2025 20:01
Mati
=KDYŽ(A(B2<>"";F2="Hotově");"Ano dne: "&HODNOTA.NA.TEXT(C2;"dd.mm.rrrr");"")
Wikan 10.04.2025 20:05
Wikan
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 n…
Mati 11.04.2025 18:27
Mati
& TEXT(D" & r & "; ""dd.mm.rrrr""); """")" a třetí parametr máš kde?
touchwood 11.04.2025 19:37
touchwood
Můžeš mi to prosím poslat celý ten kód? Moc děkuji
Mati 12.04.2025 07:26
Mati
Proč tam máš zase TEXT a ne HODNOTA.NA.TEXT?
Wikan 12.04.2025 08:01
Wikan
Kód je Sub Stvrzenka2_tlačítko5_Kliknutí() ' Uložit s DPH Makro Dim wsFaktury As Worksheet Dim wsS… poslední
Mati 12.04.2025 13:24
Mati

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

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

Zpět do poradny Odpovědět na původní otázku Nahoru