Vložte prílohy s príkladmi rôznorodosti zdrojových súborov a z nich požadovaného výsledku. Nejako to zautomatizujeme ...
Dospel som k tomu, že makrom to cez Msxml2.XMLHTTP, zo serverov ako Google a Msn nepôjde. Načíta totiž kód stránky s nastavením Cookies, a nie to čo dotazujeme. Powerquery to zatiaľ dokáže obísť, a kód stránky načíta. Dostať odtiaľ hodnoty je potom už jednoduché.
Bez makra, obnovuje sa každú 1 minútu.
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.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.