[es] - Kako iz jednog excela sacuvati u drugi excel? Ako moze

aikidomaster

Član broj: 162160
Poruke: 148
93.87.189.*

+1 Profil

Kako iz jednog excela sacuvati u drugi excel? Ako moze

^{17.06.2009. u 22:55 - pre 180 meseci}

Zanima me sledece:
Da li je moguce da se recimo ako napravim neku formu u excel za pravljenje faktura da napravim CommandButton sa kojim ce ta faktura da se sacuva u nekom novom Excel file-u recimo da se zove po broju fakture koji se unosi u odredjeno polje ili da se zove po datumu pravljenja ... ma samo da se sacuva

!???

Ono sto ne moze niko Mogu i ja

Odgovor na temu

Catch 22

Član broj: 148083
Poruke: 6176
93.86.126.*

+21 Profil

Re: Kako iz jednog excela sacuvati u drugi excel? Ako moze

^{17.06.2009. u 23:45 - pre 180 meseci}

Prvo taj svoj fajl, nazovimo ga "Faktura", sačuvaš kao xlt (Excel Template), a onda dodaš VBA kod nešto slično ovome:

_{(prilagodi prema vlastitim potrebama)}

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim stLine 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

Objašnjenje:
U gornjem primeru su definisana imena (Names) za pojedine ćelije, koje postoje na radnom listu
•DATUM
•BROJFAKTURE
•NAZIV_FIRME
•...

Početna vrednost, prilikom otvaranja fajla, u ćeliji BROJFAKTURE je uvek "000"
Procedura vrši proveru da li pomenuta ćelija ima vrednost različitu od početne i ako je uslov zadovoljen, prilikom zatvaranja fajla nudi da se fajl sačuva kao xls pod prethodno definisanim imenom, koje se sastoji od GG _{(dvocifrena oznaka za godinu)} BROJA FAKTURE i NAZIVA FIRME.

Primer:
-Ako je unet broj fakture: 123
-Datum izdavanja: 18.06.2009 _{(ovo se takođe drugom procedurom, automatski nudi kao današnji prilikom otvaranja fajla)}
-Naziv Firme: ES Forum
Ponuđeno ime pod kojim će Excel sačuvati fajl je: "09-123 ES Forum.xls"
Kada sledeći put otvaramo tako sačuvani fajl, procedura prilikom zatvaranja proverava naziv fajla i preskače sve ostale provere.
Ukoliko je sadržaj fajla menjan, ugrađena excelova procedura će ponuditi da se sačuvaju izmene...

PS
U samom templejtu kod otvaranja fajla postoji forma za unos podataka...

The 11th Hour: The forces blocking change

Prikačeni fajlovi

forma.jpg - 28.27k

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: Kako iz jednog excela sacuvati u drugi excel? Ako moze

^{18.06.2009. u 10:13 - pre 180 meseci}

Evo kako sam ja uradio ali dalje ne znam!!!
mislim da ce mi se gomilati u onaj sheet "Istorija" i da nece biti pregledno ne znam kako da to resim !!!
PASS 123

kada se klikne na unesi u istoriju on sacuva u sheet-u istorija ali mislim da bi bolje bilo da se cuva u novom excel dokumentu

Ono sto ne moze niko Mogu i ja

Prikačeni fajlovi

Fakture1.xls - 89k

Odgovor na temu

Catch 22

Član broj: 148083
Poruke: 6176
93.87.214.*

+21 Profil

Re: Kako iz jednog excela sacuvati u drugi excel? Ako moze

^{18.06.2009. u 10:56 - pre 180 meseci}

Kako sam ti već rekao treba da koristiš excel template, ekstenzija je xlt, koji će automatski prilikom zatvaranja da ponudi da se sve sačuva u novom xls fajlu pod nekim imenom. U tom slučaju ti je istorija višak.

Prethodno citiranu proceduru dodaješ kao VBA kod u "ThisWorkBook"

Naravno da moraš da prilagodiš sve promenljive, vlastitim potrebama...

The 11th Hour: The forces blocking change

Prikačeni fajlovi

wbook.jpg - 16.24k

Odgovor na temu