[es] - Pomoć oko Macro-a u excel-u.

twobeers

Član broj: 232753
Poruke: 13
*.crnagora.net.

Profil

^{16.07.2010. u 15:27 - pre 167 meseci}

Pozdrav svima.

Treba mi mala pomoć oko faktura.U atachu je primer.

Prvi sheet je primer template fakture, tako da iz padajućeg menija izaberem komitenta ispunim određene podatke i štampam.
Treći sheet mi je baza svih iskucanih faktura, koja sadrži par informacija(broj fakture,ime komitenta,datum izdavanja i iznos).

Meni treba pomoć tj rešenje da mi se prilikom pritiska na " dugme Dodaj u bazu " kaje se nalazi na prvom shettu ,automatski navedeni podatci sami ispišu u taj treći sheet baza.I u primeru u atachu to skoro funcioniše samo što bi prilikom pritiska na dugme te podatke bi trebo da mi ispiše u novi red a ne u isti koji je snimljen u macro?

Bobs

Prikačeni fajlovi

FAKTURE.xls - 74k

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.isp.telekom.rs.

+2 Profil

Re: Pomoć oko Macro-a u excel-u.

^{16.07.2010. u 16:52 - pre 167 meseci}

Evo malo sam ti prepravio kod pa pogledaj u prilogu. Deo koda glasi:

Sheets("RN").Select
' Selektovanje i kopiranje opsega
Range("d18").Select
Selection.Copy
' Prelazak u Bazu
Sheets("Baza").Select
' Pozicioniranje na prvu praznu celiju u koloni A
Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
Selection.PasteSpecial Paste:=xlPasteValues

Ovo prakticno ponavljas i za ostale celije koje kopiras samo umesto d18 pises tu drugu celiju i menjas Offset (1,0) redom kako sam ja uradio u prilogu.
Pozdrav

Prikačeni fajlovi

FAKTURE - novo.xls - 78k

Odgovor na temu

twobeers

Član broj: 232753
Poruke: 13
*.crnagora.net.

Profil

Re: Pomoć oko Macro-a u excel-u.

^{16.07.2010. u 19:08 - pre 167 meseci}

Stari hvala ti puno, spasio si me dana i dana piljenja u tutorijale.

Još jednom ti hvala i tebi i svim ostalim dobrim ljudima na ovom forumu kojima nije teško da podjele svoje znanje s drugima.

Pozdrav.

Bobs

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.isp.telekom.rs.

+2 Profil

Re: Pomoć oko Macro-a u excel-u.

^{16.07.2010. u 19:54 - pre 167 meseci}

Nema na cemu, mada bih ja to sto ti treba (ako je to iz priloga koji si zakacio) uradio drugacije. Ako hoces kad budem imao vremena probacu pa mogu da ti posaljem na privatni mejl. Pozdrav

Odgovor na temu

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Re: Pomoć oko Macro-a u excel-u.

^{16.07.2010. u 21:38 - pre 167 meseci}

A što na privatni mejl okači ovde pa da i mi ne znalci naučimo nešto?

www.igre-konzole.rs
www.tehnologin.rs

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.isp.telekom.rs.

+2 Profil

Re: Pomoć oko Macro-a u excel-u.

^{16.07.2010. u 23:00 - pre 167 meseci}

Bojim se da ce fajl biti zbog ogranicenja veci od dozvoljenog. To je razlog. Ako bude moguce okacicu.

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: Pomoć oko Macro-a u excel-u.

^{17.07.2010. u 09:07 - pre 167 meseci}

Jedna mala dopuna ovog Mirkovog macroa. Ja sam sve svoje ovakve macroe "preuredio" po JPecinom uputstvu od pre par meseci (jedna od slicnih tema ovoj), i to na sledeci nacin:
Umesto predlozenog:

Sheets("RN").Select
' Selektovanje i kopiranje opsega
Range("d18").Select
Selection.Copy
' Prelazak u Bazu
Sheets("Baza").Select
' Pozicioniranje na prvu praznu celiju u koloni A
Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
Selection.PasteSpecial Paste:=xlPasteValues

mozemo skratiti celu proceduru otprilike ovako:

Sheets("BAZA").Activate ' Aktiviramo "BAZU" (Moze i Select umesto Activate)

Dim xy As Long 'prvo deklarisemo neku promenljivu xy
xy = Range("A65536").End(xlUp).Offset(1, 0).Row ' prvi prazan red od A65536 na gore, ili jos bolje
xy = Range("A1").End(xlDown).Offset(1, 0).Row ' prvi prazan red od A1 na dole (verovatno manji opseg za pretragu nego od 65536 na gore)

' I onda lagano izjednacavamo zeljena polja umesto da se prebacujemo iz Sheeta u Sheet

Range("A" & xy).Value = Sheets("RN").Range("D18").Value ' Umesto Select..,Copy...,Select...,Paste...
Range("B" & xy).Value = ........................ itd, itd, itd

Sve ovo sa ciljem da izbegnemo silne naredbe Select-Copy, Select-Paste...
Mislim da je posebno pogodan ovaj nacin kad se kopira veliki broj polja iz jednog sheeta u drugi
Pozdrav

Odgovor na temu

twobeers

Član broj: 232753
Poruke: 13
*.crnagora.net.

Profil

Re: Pomoć oko Macro-a u excel-u.

^{17.07.2010. u 16:14 - pre 167 meseci}

Super može.Svaki predlog dobro dođe a kamoli kad je bolji.

Može može.

Bobs

Odgovor na temu

twobeers

Član broj: 232753
Poruke: 13
*.crnagora.net.

Profil

Re: Pomoć oko Macro-a u excel-u.

^{17.07.2010. u 17:36 - pre 167 meseci}

Pitanje još jedno.

Bili funkcionisalo da u istom workbook-u napravim po jedan sheet posebno za svakog komitenta.
Taj sheet bi sadžao kolone br.fakture,potražujemo,datum,duguje,datum,saldo.

I bili se mogo napravit macro (sa nekom petljom možda) koji bi ili prepravit već postoječi macro Dodaj u bazu koji pi pored upisa podataka u sheet baza,a na osnovu podatka tj imena izabranog komitenta iz padajućeg menija dodao te iste podatke u sheet tog komitenta kome je izdata faktura?:-)

Bobs

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: Pomoć oko Macro-a u excel-u.

^{17.07.2010. u 20:10 - pre 167 meseci}

Ma naravno da moze, ali nije nam excel za to najsrecnije resenje. Sta, naprimer, ako smo ozbiljna firma, pa imamo, recimo - 3950 kupaca, i 2950 dobavljaca ? Kako to da umetnemo u 6900 sheetova ?

Odgovor na temu

twobeers

Član broj: 232753
Poruke: 13
*.crnagora.net.

Profil

Re: Pomoć oko Macro-a u excel-u.

^{19.07.2010. u 07:09 - pre 167 meseci}

Mala je ovo firma u kojoj radim, tako da mi excel radi posao.

A kad bi radili u tako velikoj firmi valjda bi vlasnici odvojili pare za neko gotovo rešenje:-))

Bobs

Odgovor na temu