Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć oko Macro-a u excel-u.

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

[ Pregleda: 3153 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

twobeers

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



Profil

icon Pomoć oko Macro-a u excel-u.16.07.2010. u 15:27 - pre 137 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
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

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



+2 Profil

icon Re: Pomoć oko Macro-a u excel-u.16.07.2010. u 16:52 - pre 137 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
 
Odgovor na temu

twobeers

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



Profil

icon Re: Pomoć oko Macro-a u excel-u.16.07.2010. u 19:08 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.16.07.2010. u 19:54 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.16.07.2010. u 21:38 - pre 137 meseci
A što na privatni mejl okači ovde pa da i mi ne znalci naučimo nešto?
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

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



+2 Profil

icon Re: Pomoć oko Macro-a u excel-u.16.07.2010. u 23:00 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.17.07.2010. u 09:07 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.17.07.2010. u 16:14 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.17.07.2010. u 17:36 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.17.07.2010. u 20:10 - pre 137 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

icon Re: Pomoć oko Macro-a u excel-u.19.07.2010. u 07:09 - pre 137 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

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

[ Pregleda: 3153 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.