[es] - Makro za fakturu

gordecka
Novi Sad

Član broj: 14135
Poruke: 38
*.mynsn.net.

Profil

^{04.01.2010. u 19:28 - pre 174 meseci}

Napravio sam fakturu u excel-u, uz pomoc Vlokup funkcije da iz padajuceg menija celije oznacim firmu kojoj pisem fakturu,i automatski se ubacuju podaci firme(adresa i PIB).Odradio sam i makro za stampanje u dva primerka(da skratim vreme podesavanja printera).Datum fakturisanja sam odradio sa NOW() a datum valute sa NOW()+7(dodaje 7 dana na trenutni datum).Sve to lepo radi, ali mi je problem kada treba da sacuvam fakturu(za tu firmu).To sam do sad radio sa "save as",ali imam da otvorim 5 foldera kod ne dodjem do pozicije na koju treba da je sacuvam.Pitanje:
moze li se odraditi Makro tako da sacuva fakturu za u firmu,ali da automatski doda broj fakture u formatu 001/2010(koji bi se povecavao za 1 prilikom snimanja fakture),kao i naziv firme koji se koristi u fakturi.Znaci da mi snimi fakturu pod nazivom : 010/2010 "Betonjerka "d.o.o.xls

Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
79.101.183.*

+12 Profil

Re: Makro za fakturu - pomoc!

^{04.01.2010. u 19:58 - pre 174 meseci}

^ Kosa crta "/" neće moći u nazivu fajla sa tim moraš da se pomiriš (nedozvoljen znak!)
Bolja praksa je da broj fakture predstavljaš kao broj godine - broj fakture (gg - BrojFakture)

Da ne ulazimo preterano u detalje evo ti uzorak koda pa ga prilagodi po potrebi

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim stLine As String ', FileSaveName As String

stLine = "" & Right(Year(Range(["DATUM"])), 2) _
& "-" & Range(["BROJFAKTURE"]) _
& " " & Range(["NAZIV_FIRME"])

If Me.Name = stLine & ".xls" Then
    Exit Sub
Else
If Range(["BROJFAKTURE"]) <> "000" Then
    FileSaveName = Application.GetSaveAsFilename("" & Right(Year(Range(["DATUM"])), 2) _
    & "-" & Range(["BROJFAKTURE"]) _
    & " " & Range(["NAZIV_FIRME"]), fileFilter:="Excel Files (*.xls), *.xls")
        If FileSaveName <> False Then
            ActiveWorkbook.SaveAs Filename:=FileSaveName

        End If
End If
End If

End Sub

Napomena:
U xlt template fajlu su definisana imena (Name) i vrednosti za određena polja:
DATUM (kod otvaranja nove je uvek današnji ako ti ne uneseš drugačije)
BROJFAKTURE (kod otvaranja nove je uvek "000" dok ti ne uneseš važeći broj)
NAZIV_FIRME (kod otvaranja nove je uvek "NAZIV FIRME" dok ti ne uneseš važeći)

Prilikom zatvaranja fajla nudi se u "Save As" prozoru ime fajla u obliku:
10-001 Naziv firme.xls na putanji koja je na nivou Excela zadata kao podrazumevana (...\Documents\Excel\)
Gde je:
godina
broj fakrure

Ako se radi o fajlu koji već ima prethodno definisan naziv (otvaraš ga ponovo) onda ova procedura ne radi ništa...

Postoji i deo koda koji proverava da li je unet broj fakture umesto "000", pa ako nije onda upozorava korisnika da mora da unese validan broj... itd...
;)

_{[Ovu poruku je menjao Take 5 dana 04.01.2010. u 21:11 GMT+1]}

"Take Five" is the famous jazz piece written by Paul Desmond and performed by The Dave Brubeck Quartet. It is famous for its distinctive saxophone line and use of the unusual quintuple (5/4) time, from which its name is derived.

Take Five (1966)

Take Five by Al Jarreau 1976

Odgovor na temu

gordecka
Novi Sad

Član broj: 14135
Poruke: 38
*.mynsn.net.

Profil

Re: Makro za fakturu - pomoc!

^{04.01.2010. u 20:49 - pre 174 meseci}

Ufff...,malo mi je ovo komplikovano.Ajde ako nije problem da prvo pokusamo da odradimo samo snimanje na odredjenu lokaciju(koju ja hocu da odredim) ali da sam upisujem naziv fakture.Evo u prilogu je i primer fakture,pa ako moze detaljnije objasnjenje jel sam u ovom stvarno pocetnik, a bice lakse sa konkretnim primerom.Hvala!

Prikačeni fajlovi

primer.xls - 43.5k

Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
79.101.183.*

+12 Profil

Re: Makro za fakturu - pomoc!

^{04.01.2010. u 22:20 - pre 174 meseci}

A da mi to pojednostavimo skroz i da privremeno zaboravimo Excel?

Umeš li ti u nekom folderu da napraviš prečicu do nekog drugog foldera?

Odgovor na temu

gordecka
Novi Sad

Član broj: 14135
Poruke: 38
*.mynsn.net.

Profil

Re: Makro za fakturu - pomoc!

^{06.01.2010. u 00:00 - pre 174 meseci}

Hvala bogu, to umem.

Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
93.86.86.*

+12 Profil

Re: Makro za fakturu - pomoc!

^{06.01.2010. u 01:44 - pre 174 meseci}

Otkud ti onda ovo predstavlja problem?

Citat:

gordecka: ... To sam do sad radio sa "save as",ali imam da otvorim 5 foldera kod ne dodjem do pozicije na koju treba da je sacuvam.

... da zanemarimo sve ostalo prethodno rečeno.

Odgovor na temu

gordecka
Novi Sad

Član broj: 14135
Poruke: 38
*.mynsn.net.

Profil

Re: Makro za fakturu - pomoc!

^{06.01.2010. u 18:05 - pre 174 meseci}

Pa nisam o tome ni razmisljao, stalno mi bilo u glavi da to bude direktno u fakturi, misleci da cu mnogo lakse resiti problem ,ali sam se prevario.Za sada cu raditi tako, ali se ne predajem.I za ovo sto sam do sada odradio sam puno pretrazivao forum, i pokusavao na raznim primerima i savetima,i uspelo mi je.Malo ,po malo i dobio sam fakturu koja na nesto lici.Hvala i pozdrav!

Odgovor na temu