Pre podnikateľa je dôležité poznať súhrnné náklady na prevádzku auta, prepočítané na 1 km jazdy. Náklad s prevádzkou vozidla tvorí nevyhnutnú súčasť kalkulácií. Pri kúpe auta naviac umožňuje zohľadniť celkové náklady s prevádzkou vozidla. Malý rozdiel v cene môže znamenať veľký rozdiel v nákladoch.
Tu je k stiahnutiu excelovská tabuľka, z ktorej vychádzam. Na 1. hárku je analýza pre podnikateľa a platcu dph. Na druhý hárok som pridal kalkuláciu pre súkromnú osobu, ktorá si vyberá auto do domácnosti.
V tabuľke sú zahrnuté náklady na kúpu auta, predpokladaná predajná cena, cestná daň, dialničná známka, opotrebenie pneumatík, od množstva km servisné prehliadky atď. Určite by sa dali prirátať ešte ďalšie náklady, cieľom však je dať približný obraz o nákladoch, na čo tabuľka určite postačuje.
Zaujímavý článok na rovnakú tému nájdete tu.
štvrtok 10. februára 2011
sobota 15. januára 2011
Návod ako vytvoriť pdf z aktívneho hárku v MS Excel
Pre vytváranie faktúr využívam MS Excel, chýbala mi však možnosť jednoducho si aktívny hárok exportovať do PDF. Na internete som našiel príklad funkcie, ktorá po menšej úprave spĺňala požiadavky.
V MS Excel si otvorte editor VBA cez klávesovú skratku Alt+F11. V editore si zvoľte pridať nový modul a do neho vložte kód uvedený nižšie.
Následne už vo svojom hárku s faktúrou pridajte nové tlačítko (pravdepodobne si budete musieť zapnúť záložku menu s nástrojmi Vývojár). Pri výbere tlačítka sa spýta, s akým makrom ho má prepojiť, vyberte RDB_Worksheet_Or_Worksheets_To_PDF.
Viac príkladov sa dozviete na webe tu.
Tu už je kompletný skript:
Sub RDB_Worksheet_Or_Worksheets_To_PDF()
Dim FileName As String
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more than one sheet selected," & vbNewLine & _
"and every selected sheet will be published."
End If
'Call the function with the correct arguments.
'You can also use Sheets("Sheet3") instead of ActiveSheet in the code(the sheet does not need to be active then).
FileName = RDB_Create_PDF(ActiveSheet, "", True, True)
'For a fixed file name and to overwrite it each time you run the macro, use the following statement.
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)
If FileName <> "" Then
'Uncomment the following statement if you want to send the PDF by e-mail.
'RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "It is not possible to create the PDF; possible reasons:" & vbNewLine & _
"Add-in is not installed" & vbNewLine & _
"You canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to save the file is not correct" & vbNewLine & _
"PDF file exists and you canceled overwriting it."
End If
End Sub
Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _
OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
Dim FileFormatstr As String
Dim Fname As Variant
'Test to see if the Microsoft Create/Send add-in is installed.
If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
If FixedFilePathName = "" Then
'Open the GetSaveAsFilename dialog to enter a file name for the PDF file.
FileFormatstr = "PDF Files (*.pdf), *.pdf"
Fname = Application.GetSaveAsFilename("fa_" & ActiveSheet.Name, filefilter:=FileFormatstr, _
Title:="Create PDF")
'If you cancel this dialog, exit the function.
If Fname = False Then Exit Function
Else
Fname = FixedFilePathName
End If
'If OverwriteIfFileExist = False then test to see if the PDF
'already exists in the folder and exit the function if it does.
If OverwriteIfFileExist = False Then
If Dir(Fname) <> "" Then Exit Function
End If
'Now export the PDF file.
On Error Resume Next
Myvar.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=OpenPDFAfterPublish
On Error GoTo 0
'If the export is successful, return the file name.
If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
End If
End Function
V MS Excel si otvorte editor VBA cez klávesovú skratku Alt+F11. V editore si zvoľte pridať nový modul a do neho vložte kód uvedený nižšie.
Následne už vo svojom hárku s faktúrou pridajte nové tlačítko (pravdepodobne si budete musieť zapnúť záložku menu s nástrojmi Vývojár). Pri výbere tlačítka sa spýta, s akým makrom ho má prepojiť, vyberte RDB_Worksheet_Or_Worksheets_To_PDF.
Viac príkladov sa dozviete na webe tu.
Tu už je kompletný skript:
Sub RDB_Worksheet_Or_Worksheets_To_PDF()
Dim FileName As String
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more than one sheet selected," & vbNewLine & _
"and every selected sheet will be published."
End If
'Call the function with the correct arguments.
'You can also use Sheets("Sheet3") instead of ActiveSheet in the code(the sheet does not need to be active then).
FileName = RDB_Create_PDF(ActiveSheet, "", True, True)
'For a fixed file name and to overwrite it each time you run the macro, use the following statement.
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)
If FileName <> "" Then
'Uncomment the following statement if you want to send the PDF by e-mail.
'RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "It is not possible to create the PDF; possible reasons:" & vbNewLine & _
"Add-in is not installed" & vbNewLine & _
"You canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to save the file is not correct" & vbNewLine & _
"PDF file exists and you canceled overwriting it."
End If
End Sub
Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _
OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
Dim FileFormatstr As String
Dim Fname As Variant
'Test to see if the Microsoft Create/Send add-in is installed.
If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
If FixedFilePathName = "" Then
'Open the GetSaveAsFilename dialog to enter a file name for the PDF file.
FileFormatstr = "PDF Files (*.pdf), *.pdf"
Fname = Application.GetSaveAsFilename("fa_" & ActiveSheet.Name, filefilter:=FileFormatstr, _
Title:="Create PDF")
'If you cancel this dialog, exit the function.
If Fname = False Then Exit Function
Else
Fname = FixedFilePathName
End If
'If OverwriteIfFileExist = False then test to see if the PDF
'already exists in the folder and exit the function if it does.
If OverwriteIfFileExist = False Then
If Dir(Fname) <> "" Then Exit Function
End If
'Now export the PDF file.
On Error Resume Next
Myvar.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=OpenPDFAfterPublish
On Error GoTo 0
'If the export is successful, return the file name.
If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
End If
End Function
pondelok 29. novembra 2010
Výber auta - na čo si dať pozor pri výbere motora
Na základe vlastnej skúsenosti píšem tento typ. Pôvodne som pri výbere nového auta venoval pozornosť parametrom, ako výkon motora, objem valcov a porovnával ich oproti predchádzajúcemu autu.
To sa mi vypomstilo pri výbere Opel Corsa, model D. Skrátene, na čo si dať pozor:
- ak porovnávate oproti vášmu súčasnému autu, porovnávajte u oboch áut graf s priebehom krútacieho momentu a výkonu motora oproti otáčkam;
- väčší priemer a šírka kolies znamená väčšiu záťaž pre motor, je nutné to zohľadniť výberom silnejšieho motora.
Ak sa chcete dozvedieť viac ako čítať grafy s výkonom motora, odporúčam prečítať tento článok.
U mňa to znamenalo, že Opel Corsa 1.2, ktorá mala mať oproti pôvodnej Fábii 1.4 MPI výkon o 5kW vyšší a objem motora len o 0,1 l mensí (cca Corsa 1,29l a Fábia cca 1,39):
- nebola schopná udržať na diaľnici rýchlosť 130km/h už i pri menšom stúpaní;
- dosiahnutie vyššej rýchlosti ako 130km/h si vyžiadalo preradenie na 3. stupeň, priaznivý vietor prípadne klesanie cesty.
To všetko pri neobsadenom aute (v aute len vodič). Auto s týmto motorom odporúčam naozaj len ako mestské a nevychádzať s ním vôbec na diaľnicu mimo mesta. Priemerná spotreba sa pohybovala okolo 7,7 l/100km. Pri inom použití si rozhodne treba vybrať silnejší motor.
Odporúčané servisy: v Bratislave a Košiciach, prevádzky PanEuro. Ak sa cítite odolní a nerozčúli vás ani neúcta k zákazníkovi a niekoľkotýždňové čakacie lehoty, vyskúšajte servis PK Auto v Poprade. Predajcovia však sú v oboch predajniach výborní a snažia sa vyjsť v ústrety potenciálnemu zákazníkovi.
Ďalšia rada je ohľadne servisných nákladov. Uvedomte si, že kupujete nemecké auto, ktorého ceny dielcov nie sú nepodobné iným značkovým nemeckým automobilkám. V prípade, že chcete auto na dlhšie ako pár rokov a po čase už neplánujete platiť havarijnú poistku, zaujímajte sa aj o servisné náklady pre prípad nehody.
Príklad opravy po menšej nehode:
- výmena ľavého predného blatníka (na strane vodiča);
- výmena predného nárazníka;
- výmena ľavého predného reflektora;
- výmena hmlovky;
- lakovanie, bez metalízy.
V prípade Opel Corsa, typ D, stála oprava 1.700,- € s DPH, auto bolo 1 mesiac v servise. Na porovnanie, rovnaká oprava u auta Škoda Fábia (je jedno či 10-ročná alebo úplne nová, stojí 600,- € s DPH).
Iné skúsenosti:
- Plasty v aute po 30 tis. km začali na palubovke vŕzgať, počuteľné najmä počas jazdy na cestách so zlým povrchom.
- Pri silnom daždi začala svieť kontrola s upozornením na závažnú chybu v riadiacej jednotky - vyriešené zaizolovaním v rámci záruky bezplatne, zatekalo do riadiacej jednotky po káblovom zväzku vinou výrobnej chyby.
- Dajte si pozor na dvierka palubnej schránky pred spolujazdcom, veľmi ľahko sa vám dostane niečo do medzery medzi pánty, ktoré sa až príliš ľahko vylomia (tvorí ich len tenučký plast). Nové dvierka stoja cca 200,- €, pánt je neopraviteľný.
- Dodržujte servisné prehliadky a radšej choďte na prehliadku skôr ako je odporúčané (či uplynutím roka alebo km); za riziko straty záruky to nestojí.
To sa mi vypomstilo pri výbere Opel Corsa, model D. Skrátene, na čo si dať pozor:
- ak porovnávate oproti vášmu súčasnému autu, porovnávajte u oboch áut graf s priebehom krútacieho momentu a výkonu motora oproti otáčkam;
- väčší priemer a šírka kolies znamená väčšiu záťaž pre motor, je nutné to zohľadniť výberom silnejšieho motora.
Ak sa chcete dozvedieť viac ako čítať grafy s výkonom motora, odporúčam prečítať tento článok.
U mňa to znamenalo, že Opel Corsa 1.2, ktorá mala mať oproti pôvodnej Fábii 1.4 MPI výkon o 5kW vyšší a objem motora len o 0,1 l mensí (cca Corsa 1,29l a Fábia cca 1,39):
- nebola schopná udržať na diaľnici rýchlosť 130km/h už i pri menšom stúpaní;
- dosiahnutie vyššej rýchlosti ako 130km/h si vyžiadalo preradenie na 3. stupeň, priaznivý vietor prípadne klesanie cesty.
To všetko pri neobsadenom aute (v aute len vodič). Auto s týmto motorom odporúčam naozaj len ako mestské a nevychádzať s ním vôbec na diaľnicu mimo mesta. Priemerná spotreba sa pohybovala okolo 7,7 l/100km. Pri inom použití si rozhodne treba vybrať silnejší motor.
Odporúčané servisy: v Bratislave a Košiciach, prevádzky PanEuro. Ak sa cítite odolní a nerozčúli vás ani neúcta k zákazníkovi a niekoľkotýždňové čakacie lehoty, vyskúšajte servis PK Auto v Poprade. Predajcovia však sú v oboch predajniach výborní a snažia sa vyjsť v ústrety potenciálnemu zákazníkovi.
Ďalšia rada je ohľadne servisných nákladov. Uvedomte si, že kupujete nemecké auto, ktorého ceny dielcov nie sú nepodobné iným značkovým nemeckým automobilkám. V prípade, že chcete auto na dlhšie ako pár rokov a po čase už neplánujete platiť havarijnú poistku, zaujímajte sa aj o servisné náklady pre prípad nehody.
Príklad opravy po menšej nehode:
- výmena ľavého predného blatníka (na strane vodiča);
- výmena predného nárazníka;
- výmena ľavého predného reflektora;
- výmena hmlovky;
- lakovanie, bez metalízy.
V prípade Opel Corsa, typ D, stála oprava 1.700,- € s DPH, auto bolo 1 mesiac v servise. Na porovnanie, rovnaká oprava u auta Škoda Fábia (je jedno či 10-ročná alebo úplne nová, stojí 600,- € s DPH).
Iné skúsenosti:
- Plasty v aute po 30 tis. km začali na palubovke vŕzgať, počuteľné najmä počas jazdy na cestách so zlým povrchom.
- Pri silnom daždi začala svieť kontrola s upozornením na závažnú chybu v riadiacej jednotky - vyriešené zaizolovaním v rámci záruky bezplatne, zatekalo do riadiacej jednotky po káblovom zväzku vinou výrobnej chyby.
- Dajte si pozor na dvierka palubnej schránky pred spolujazdcom, veľmi ľahko sa vám dostane niečo do medzery medzi pánty, ktoré sa až príliš ľahko vylomia (tvorí ich len tenučký plast). Nové dvierka stoja cca 200,- €, pánt je neopraviteľný.
- Dodržujte servisné prehliadky a radšej choďte na prehliadku skôr ako je odporúčané (či uplynutím roka alebo km); za riziko straty záruky to nestojí.
Možnosti zapojenia wi-fi routera do siete
Dôvodov na zapojenie wi-fi routera do existujúcej siete je niekoľko, napríklad:
- rozšírenie počtu portov na pripojenie ďalších zariadení (sieťovej tlačiarne, počítače apod.);
- prípadne zlepšenie dosahu wi-fi (nahradenie wi-fi časti dsl routera).
Pre takéto zapojenie si postačí zakúpiť napríklad bezdrôtový router Ovislink Airlive WMM-3000R. Tento router obsahuje vstavaný dhcp server (na prideľovanie IP adries v sieti). Ak chcete mať počítače pripojené k tomuto routeru oddelené, prepojte hlavný router (ten ktorý je pripojený k internetu, obvykle DSL router alebo káblový modem) s wi-fi routerom, do portu označeného WAN.
Ak však chcete, aby všetky zariadenia boli v rovnakej sieti a IP adresy prideľoval hlavný router, postupujte nasledovne:
- zmeňte si IP adresu wi-fi routera na adresu z rozsahu hlavnej siete (budete môcť v prípade potreby sa priamo pripojiť k routeru, inak si budete musieť pri každej zmene v počítači ručne zmeniť IP adresu)
- zapojte hlavný router do portov označených 1-4 (a nie do portu WAN).
Prídete síce o jeden z nových portov, avšak všetky zariadenia v sieti (pripojené k obom routerom) budú sprístupnené v rámci jednej siete. Týka sa to ako počítačov pripojených káblom, tak aj cez wi-fi.
- rozšírenie počtu portov na pripojenie ďalších zariadení (sieťovej tlačiarne, počítače apod.);
- prípadne zlepšenie dosahu wi-fi (nahradenie wi-fi časti dsl routera).
Pre takéto zapojenie si postačí zakúpiť napríklad bezdrôtový router Ovislink Airlive WMM-3000R. Tento router obsahuje vstavaný dhcp server (na prideľovanie IP adries v sieti). Ak chcete mať počítače pripojené k tomuto routeru oddelené, prepojte hlavný router (ten ktorý je pripojený k internetu, obvykle DSL router alebo káblový modem) s wi-fi routerom, do portu označeného WAN.
Ak však chcete, aby všetky zariadenia boli v rovnakej sieti a IP adresy prideľoval hlavný router, postupujte nasledovne:
- zmeňte si IP adresu wi-fi routera na adresu z rozsahu hlavnej siete (budete môcť v prípade potreby sa priamo pripojiť k routeru, inak si budete musieť pri každej zmene v počítači ručne zmeniť IP adresu)
- zapojte hlavný router do portov označených 1-4 (a nie do portu WAN).
Prídete síce o jeden z nových portov, avšak všetky zariadenia v sieti (pripojené k obom routerom) budú sprístupnené v rámci jednej siete. Týka sa to ako počítačov pripojených káblom, tak aj cez wi-fi.
sobota 23. októbra 2010
Prepojenie kalendára v MS Outlook s Google calendar
Ak ste sa aj vy stretli s potrebou publikovať vybrané udalosti vo svojom kalendári na počítači do Google kalendára, tu je riešenie: využite softvér SyncMyCal. Jedná sa o drobnú utilitku, ktorá po spustení zosynchronizuje vybrané udalosti.
Ja som si nastavil, aby sa synchronizovali len jednosmerne, do Googlu, všetky udalosti z kategórie "Ifana". Po synchronizácii sú v Googli všetky udalosti z tejto kategórie, vrátane správneho nastavenia periodického opakovania.
Obmedzením bezplatnej verzie je synchronizácia len na 3 dni dopredu (netýka sa úloh s opakovaním) a nutnosť spúšťať synchronizáciu vždy ručne.
Ja som si nastavil, aby sa synchronizovali len jednosmerne, do Googlu, všetky udalosti z kategórie "Ifana". Po synchronizácii sú v Googli všetky udalosti z tejto kategórie, vrátane správneho nastavenia periodického opakovania.
Obmedzením bezplatnej verzie je synchronizácia len na 3 dni dopredu (netýka sa úloh s opakovaním) a nutnosť spúšťať synchronizáciu vždy ručne.
sobota 28. augusta 2010
Nastavenie hlasitosti u MP3 prehrávača SanDisk Sansa Fuze
Po zakúpení prehrávača SanDisk Sansa Fuze 4GB, jeho recenzia je tu, sa objavil problém s nízkou úrovňou hlasitosti. Neprekážalo to pri počúvaní v slúchadlách, ale po pripojení na autorádio, prípadne externý zosilovač už áno.
V odkazovanej recenzii sa spomína možnosť zmeniť úroveň hlasitosti z Normal na High. Je to v menu System / System Settings / Volume (hneď pod voľbou Brightness). Ja som tam túto voľbu nevidel.
Nakoniec rozriešenie prípadu: treba zvoliť reset do továrenských nastavení a následne vybrať iný región ako Európu (napr. Ameriku). Potom sa už voľba Volume zobrazí. Predpokladám, že vypustenie tejto voľby je v súlade s niektorým rozhodnutím Európskej komisie či parlamentu.
Každopádne pri výbere MP3 prehrávača, v prípade, že má slúžiť aj ako zdroj hudby pre autorádio apod., doporučujem opatrnosť a vyskúšať si schopnosť dosiahnuť primeranú hlasitosť.
V odkazovanej recenzii sa spomína možnosť zmeniť úroveň hlasitosti z Normal na High. Je to v menu System / System Settings / Volume (hneď pod voľbou Brightness). Ja som tam túto voľbu nevidel.
Nakoniec rozriešenie prípadu: treba zvoliť reset do továrenských nastavení a následne vybrať iný región ako Európu (napr. Ameriku). Potom sa už voľba Volume zobrazí. Predpokladám, že vypustenie tejto voľby je v súlade s niektorým rozhodnutím Európskej komisie či parlamentu.
Každopádne pri výbere MP3 prehrávača, v prípade, že má slúžiť aj ako zdroj hudby pre autorádio apod., doporučujem opatrnosť a vyskúšať si schopnosť dosiahnuť primeranú hlasitosť.
sobota 26. júna 2010
Odinštalácia Blackberry Desktop Software končí chybou
V prípade, ak odinštalácia Blackberry Desktop Software skončí s chybou "Could not access VBScript run time for custom action", je potrebné pred opätovným pokusom o odinštaláciu vykonať nasledovný postup:
1. Spustiť regedit.exe a v systémových registroch dať vyhľadať reťazec
{B54F3741-5B07-11CF-A4B0-00AA004A55E8}
Kdekoľvek ho nájde, pokúste sa ho vymazať (pokus o vymazanie nemusí byť vždy úspešný)
2. Spustiť príkazový riadok (cmd) a dať príkaz
c:\windows\system32\regsvr32 vbscript.dll
3. Skúsiť znovu odinštaláciu. U mňa následne prebehla bez problémov a softvér sa odinštaloval.
Vychádzal som z návodu uvedeného na tejto stránke. Je platný pre 32-bitový MS Windows XP, Vista a Windows 7. Pri 64-bitovom Windowse treba v bode 2. spustiť c:\windows\syswow64\regsvr32 vbscript.dll (nevyskúšané).
1. Spustiť regedit.exe a v systémových registroch dať vyhľadať reťazec
{B54F3741-5B07-11CF-A4B0-00AA004A55E8}
Kdekoľvek ho nájde, pokúste sa ho vymazať (pokus o vymazanie nemusí byť vždy úspešný)
2. Spustiť príkazový riadok (cmd) a dať príkaz
c:\windows\system32\regsvr32 vbscript.dll
3. Skúsiť znovu odinštaláciu. U mňa následne prebehla bez problémov a softvér sa odinštaloval.
Vychádzal som z návodu uvedeného na tejto stránke. Je platný pre 32-bitový MS Windows XP, Vista a Windows 7. Pri 64-bitovom Windowse treba v bode 2. spustiť c:\windows\syswow64\regsvr32 vbscript.dll (nevyskúšané).
Prihlásiť na odber:
Príspevky (Atom)