• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Fórum

Příspěvky uživatele

Z akej stránky čerpáte ten kurz?

To by bolo asi lepšie urobiť makro alebo PowerQuery dotaz, aby ten kurz vytiahol zo stránky napr. niekam do bunky. Takto mi to príde divné...

EDIT:
Niečo ako napr.:
Function KURZ_AED_CZK() As Double
Dim a() As String

Application.Volatile

With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET", "https://www.kurzy.cz/kurzy-men/prevodnik-men/AED-CZK/", False
.Send
a = Split(Split(.ResponseText, "</span> CZK  (česká koruna)")(0), ">")
End With

On Error Resume Next
KURZ_AED_CZK = Val(a(UBound(a)))
End Function

Môžete taký PDF priložiť?
Ak dám v PDF iba Table001, tak mi to načíta iba časť, ak dám Page001 tak všetko ale nezmyselne rozsekané na riadky a stĺpce.
Záleží na Vašom konkrétnom druhu PDF.

Nejaký príklad som urobil, ale tento "browser" má veľké obmedzenia (skripty, cookies, nezatvoriteľné časti stránok, nefunkčnosť...). Záleží na tom, k čomu to presne bude.

návod na YT
+ upraviť reg
na YT
ovládate makrom

Sub Pocet()
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long

Soubor = "abc\def\ghi"
Hledej = "\"

PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje