Příspěvky uživatele

Vďaka aj Merlinovi :-)

Ešte jedna prosba dnes ohľadom reportu GPS:

Do hárku REPORT GPS v súbore KNIHA_JAZD_priklad vložím celý obsah Hárku1 zo súboru Report_GPS_priklad.
Aktiváciou tlačítka Vlož údaje z GPS reportu... v súbore KNIHA_JAZD_priklad v hárku REPORT GPS sa skopírujú upravené údaje do hárku 1 - Január a vyplnia sa v tabuľke Knihy jázd prejazdené km a stav tachometra podľa dní.
Chcel by som ešte dostať z údajov v tomto hárku z tmavých buniek v stĺpci W do tejto tabuľky ( do stĺpcov H a I ) údaje o tankovaní v konkrétnom dni - počet litrov a sumu ( tieto údaje sa odlišujú od ostatných údajov v tomto stĺpci, vkladajú sa tam hromadne - je to celé 1 text ).

Resp. jednoduchšie povedané:
Ako dostať z textu "2.1.2020 Tankování Litrů: 32,45, Cena za l : 1,24 EUR, Cena celkem: 40,37 EUR" hodnoty počtu litrov a sumy celkom, keď počet znakov nemusí byť vždy zhodný?
Mohli by ste mi ešte s týmto pomôcť?

Ďakujem

Jasné! Vďaka moc

Peknú nedeľu všetkým.

Poprosím o pomoc s asi banalitou:

V reporte z GPS sú údaje počtu prejazdených km a stav tachometru vo všeobecnom formáte v tvare "10,25 km" a "155 255 km". Potrebujem z týchto údajov dostať číslo.
Cez funkciu Nahradiť " km" za "" to nie je problém. Km sú preč a zostane len číslo, ktoré sa dá použiť vo výpočtoch ( zarovnanie v bunke sa zmení z ľavého na pravé ). Ak to však spravím týmto spôsobom cez makro, nie je z toho číslo. Výsledok sa nedá použiť na ďalšie výpočty.
Kde robím chybu prosím vás?

V stĺpci Kontrola je to vidno, pri zmene cez funkciu Nahradiť je výsledok na základe vzorca =IF(E4=2,6;E4;FALSE) konkrétny počet km, cez makro je výsledok FALSE.

Sub KM()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
fnd = " km"
rplc = ""
Set sht = Sheets("Hárok1")
sht.Columns("E:F").Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub

Ďakujem za pomoc

Super!!! Veľká vďaka!!

Dobrý večer.
Mám makro na uloženie súboru do pdf.
Sub Tlac_do_PDF()
Application.ScreenUpdating = True
názov = "ABC"
subor = "C:\Users\XXXXX\Documents\Pracovné\" & názov & ".pdf"
ActiveWorkbook.Save
Sheets(Array("List1")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=subor, _
Quality:=xlQualityMaximum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub
Potreboval by som ale aby sa vždy pri jeho uložení vytvoril v priečinku ,,Pracovné,, podpriečinok s názvom napr.:
názov1 = Sheets("List1").Range("A1").Text
( cesta = "C:\Users\XXXXX\Documents\Pracovné\" & názov1 ),

resp. ak tam už takýto priečinok existuje, aby sa súbor uložil do neho.
Niečo som na nete našiel, ale nedarí sa mi to prispôsobiť. Mohol by mi s tým niekto pomôcť?

Ďakujem

Ďakujem

Dobré ránko.

Včera som omylom vybral v zošite viac hárkov naraz a hodilo mi to chybu vo vzťahu k odomknutiu hárka. Aktiváciou hárkov sa spúšťa makro:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("").....atď

Pri vybratí viacerých hárkov v tom má ale asi chaos. Ako sa to dá ošetriť? Nahradiť ActiveSheet názvami hárkov? Až sa to bojím vyskúšať, celé sa mi to seklo :-)
Ďakujem

Ďakujem Zbygimu.
Našiel som medzi tým aj niečo na nete, tak prikladám ak by to niekomu pomohlo.

Dobrý deň.
Poprosím vás, potreboval by som vkladať do vybraných oblastí pár obrázkov - podpisov. Spravil som to cez prepojené obrázky a definované názvy, ale veľmi mi to spomalilo celý zošit. Dám to do kopy aj inak, ale pri mojich znalostiach, 30tich ľuďoch a pár hárkoch je ten kód véľmi obsiahly. Mohol by mi niekto pomôcť s jednoduchším kódom?
V Hárku 3 by mali byť podpisy v tabuľke v žltých bunkách vždy vedľa mena zadaného z rozbalovacieho zoznamu. Na spodu je posledný podpis tiež z rozbalovacieho zoznamu, ktorý je potom na základe tohoto výberu aj na všetkých ďalších Hárkoch okrem prvých dvoch.
Ďakujem moc

Prikladám súbor. Ide o to, aby bol podpis vždy na strane aspoň s piatimi predchádzajúcimi riadkami a aby nebol názov odseku na inej strane, ako prvých 5 riadkov odseku napr.

V súbore sa mi podľa zadávania hodnôt skrývajú alebo odkrývajú riadky, na všetkých hárkoch. Zadám niekde 1 a z 500 riadkového hárku je 300 riadkov, ktoré sa budú tlačiť. Čiže zlomy strán nie sú stabilné. Preto by som to potreboval zautomatizovať.

Dobrý deň.
Poradí mi niekto makro na úpravu zlomov strán? Potrebujem dosiahnuť v súbore s viacerými hárkami, aby vždy nejaká skupina riadkov bola na strane spolu, napr. riadky 25-40, 50-58, 123-140, aby som to nemusel na 30tich hárkoch robiť ručne a nestávalo sa, že meno mám na jednej strane a podpis na druhej napríklad.
Moc ďakujem

Ak to počká alebo ma niekto nepredbehne :-), večer sa na to kľudne pozriem

No, už spím, ale ak chápem správne, všetky hodnoty máš prepojené, čiže všetky musia byť v jednej sústave, alebo zmenu do inej sústavy len v niektorých (*24) musíš upraviť následne so spätným prevodom aj vo vzorcoch všetkých následníkov (/24)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje