Dim Text As String, Cena As Double
Text = "objednávky činí 921,49 CZK bez DPH (1 115,10 CZK s DPH)."
Cena = Val(Replace(Split(Split(Replace(Text, " ", ""), "(")(1), "CZK")(0), ",", "."))
Normálka to filtruje...
Sub Filter()
Dim Klient As String
Klient = "Fero"
'filtrujeme tab podle 'Klient'
Worksheets("tab").ListObjects("TabHardware").Range.AutoFilter Field:=12, Criteria1:=Klient
End Sub
O ktoré parametre formátu by hlavne išlo? Iba o farbu a hrúbku písma?
Sub CommentChangeText()
Dim sOldComment As String, sNewComment As String, sFind As String, sReplace As String
Dim Cmt As Comment
Dim Bunka As Range
Set Bunka = List1.Range("A1")
sFind = 2011
sReplace = 2012
On Error Resume Next
Set Cmt = Bunka.Comment
On Error GoTo 0
If Cmt Is Nothing Then
MsgBox "Žádný komentář v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Exit Sub
End If
sOldComment = Cmt.Text
sNewComment = Replace(sOldComment, sFind, sReplace)
Cmt.Text Text:=sNewComment
If sOldComment = sNewComment Then
MsgBox "Nepřišlo ke změně komentáře v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Else
MsgBox "Byl nahrazen text :" & vbNewLine & sFind & vbNewLine & _
"novým textem :" & vbNewLine & sReplace & vbNewLine & _
"v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
End If
Set Cmt = Nothing
End Sub
Ja Vám stále tápem, ale asi to bude iba takto jednoduché...
Počet
=DATEDIF(E2;E3;"m")+1
=DATEDIF(E2;E3;"m")+1
Posledná
=EOMONTH(E3;IF(DAY(E3)<15;-3;-2))+15
=EOMONTH(E3;KDYŽ(DEN(E3)<15;-3;-2))+15
Ja neviem, stále mi to je nejasné.
Čo presne znamená "za dva měsíce zpět" ?
Ak príde dodávka 10.2.2024, tak :
a) je to dodávka za december 2023, a posledná je teda december 2023
b) je to dodávka za 2 mesiace, teda za december 2023 a január 2024, a posledná je teda január 2024
---------------------
Situácia je jasná, ak dodávka príde 15.2.2024 - je to dodávka za január 2024 a posledná je január 2024.
---------------------
Ak tam ale nebudú dáta s dátumami prídených dodávok, ako viem, že keď je dnes 15.2.2024, tak prišla dodávka? Čo ak príde 17.2.2024?
Neviem, či chápem, skúste.
Tak od boku
Hodnota = LCase(Split(List1.Cells(cisloRadku, "B").Value & " ", " ")(0))
EDIT: Pridal som malú vychytávku, aby nehodilo chybu pri prázdnej bunke.
Ak sú úvodzovky súčasťou textu, musia byť zduplované.
...HLEDAT(" "...
...HLEDAT("" ""...
ostatné ostávajú single.
...cisloRadku & "4...
??? na čo tá 4 ???
EDIT:
Alebo Vy tam nechcete vkladať vzorec? Vy chcete urobiť rovnaký výpočet ako vzorec ale makrom, a uložiť do premennej?
Normálne keď som si to znovu prečítal, tak som na vážkach...
Pr.
Súbor - Možnosti - Korektúra - Možnosti automatických opráv - Automatický formát pri písaní - Vyplniť vzorce do tabuliek a vytvoriť vypočítavané stĺpce
...z té přes odkaz na buňku mám tyto data...
...se ručně nakopírujou z jiného listu takže zde již žádné vzorece nebudou...
...opravdu jako datum je to vždy na měsíc takže opravdu 1...
Takto potřebuji aby vypadal výsledek
...se ručně nakopírujou z jiného listu...
To čo som písal funguje. Len si doplňte kontrolu víkendu
=IF(WEEKDAY(H5;2)>5;0;...to čo som písal)
Píšete že v stĺpci H sú dátumy, no nie je to tak - sú tam čísla. Chcel som od Vás vedieť, kde sú aké vzorce, to má na to tiež vplyv predsa. A nič.
Tyto dala jsou tam dodána automatiky z jiných tabulek.
Ak máte Office 365, skúste kombináciu SORT(FILTER())
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.