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

Sortiranje imena i brojeva

[es] :: Office :: Excel :: Sortiranje imena i brojeva

[ Pregleda: 3656 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Zir~

Član broj: 64024
Poruke: 20
*.bchsia.telus.net.



+2 Profil

icon Sortiranje imena i brojeva17.10.2009. u 07:41 - pre 176 meseci
Pokusavam da uradim nešto pa mi ne ide, pa rekoh da priupitam znalce da li je ovo izvodljivo:
Npr.
U koloni A imam neka imena ili nazive stavki, npr 10 ukupno.
U koloni B imam isto 10 brojeva (pored tih imena) koji su razliciti.
Treba mi kopija ovih 20 celija u kolonama npr C i D, s tim da mi brojeve poredja od najviseg ka najmanjem (ili obrnuto) a imena da ostanu svaki pored svoga broja.

Npr sa 3 stavke, „prva tabela”:
Ime 1|375
Ime 2|111
Ime 3|997

Rezultat operacije, „druga tabela”:
Ime 3|999
Ime 1|375
Ime 2|111

Kada bilo šta radim u „prvoj tabeli” (brisem imena, brojeve, menjam vrednosti) trebalo bi da se odmah reflektuje (update-uje) u „drugoj tabeli”.
Da li je ovako nešto izvodljivo?

Hvala unapred.
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.221.*



+9 Profil

icon Re: Sortiranje imena i brojeva17.10.2009. u 12:05 - pre 176 meseci
Naravno da je moguce - na dva nacina. Prvi je da napises ili jos bolje SNIMIS macro koji ce to da radi uvek kad ti zatreba.
Drugi i prostiji je da uvek kad ti zatreba upotrebis excelovu komandu - SORTIRANJE. Oznacis kolonu "B" gde su ti 999,375,111... izaberes u glavnom meniju DATA, pa SORT, potvrdis Expand the selection, i u prozoru "Sort" izaberes Ascending (od najmanjeg ka najvecem), ili Descending (od najveceg ka najmanjem). I to je to.
U prilogu je primer za sortiranja uz pomoc snimljenog macroa. Pozdrav.
Prikačeni fajlovi
 
Odgovor na temu

Zir~

Član broj: 64024
Poruke: 20
*.bchsia.telus.net.



+2 Profil

icon Re: Sortiranje imena i brojeva17.10.2009. u 17:11 - pre 176 meseci
Hvala puno, ne znam kako do sada ni sam nisam ovo provalio.

Ali ja ovu, da kazem, tabelu imam na dva mesta.
Kako da in linkujem tako da je prva nesortirana a druga sortirana,
tj. u prvoj rucno unosim podatke (imena i brojeve) a u drugoj se to automatski sortira.
Ako izmenim neki broj i taj postane najveci da on tamo u drugoj tabeli skoci na vrh i automatski
"povuce" ime pored sebe (kao sto ovo od gore radi).
Ako izbrisem neki broj ili ime, da se to isto tako izbrise u toj drugoj linkovanoj tabeli.
Ima li nesto za to?
Hvala!
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.221.*



+9 Profil

icon Re: Sortiranje imena i brojeva18.10.2009. u 01:49 - pre 176 meseci
Napravio sam nesto sto mislim da ce da ti zavrsi posao. Okacio sam ovde, pa pogledaj. Kad otvoris dokumenat mozes sa ALT+F11 da pogledas modul sa macroom koji radi to sto tebi treba. Taj macro je, kao sto pre rekoh SNIMLJEN i samo malo "doteran". O snimanju macroa mozes na ovom forumu naci mnogo tema. Jedna od njih je "Rad sa macroima". Videces da mnogo toga mozes sam da odradis, i time olaksas sebi rad u excelu, ako ga vec cesto koristis. Pozdrav.
Prikačeni fajlovi
 
Odgovor na temu

Zir~

Član broj: 64024
Poruke: 20
*.bchsia.telus.net.



+2 Profil

icon Re: Sortiranje imena i brojeva18.10.2009. u 07:58 - pre 176 meseci
Hvala ti opet!
Ovo tvoje bas mi i nije nesto najbolje odradjivalo posao, ali sam ubrzo provalio gde, sta, kako
i sam napravio makro koji ce da radi bas ono sta hocu.
Snimio sam file, evo ga prikacenog.

Hvala jos jednom,
Pozdrav iz Vankuvera
Prikačeni fajlovi
 
Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: Sortiranje imena i brojeva18.10.2009. u 10:46 - pre 176 meseci
Ako ubacis ovaj kod u pozadinu radnog lista na kojem su podaci, neces imati potrebe za tasterom za sortiranje
vec ce sortiranjeda se obavlja potpuno automatski cim promenis vrednost u nekoj od navedenih celija.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:B8")) Is Nothing Then
    Range("A2:B8").Select
    Selection.Copy
    Range("H2").Select
    ActiveSheet.Paste
    Range("I2:I8").Select
    Application.CutCopyMode = False
    Range("H2:I8").Sort Key1:=Range("I2"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End If
    Range(Target.Address).Select
End Sub


Pozdrav
 
Odgovor na temu

Zir~

Član broj: 64024
Poruke: 20
*.bchsia.telus.net.



+2 Profil

icon Re: Sortiranje imena i brojeva19.10.2009. u 06:58 - pre 176 meseci
Hvala VELIKO!
To je bas sto sam trazio, da se automatski update-uje.
Sam mi bas nije najjasnije gde da ubacim ovaj kod, "u pozadinu radnog lista"?
Nesto sam i uspeo, samo bas nisam najsigurniju da je to sta treba.
Ako moze samo jos to pojasnjenje.
Pozdrav.
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.221.*



+9 Profil

icon Re: Sortiranje imena i brojeva19.10.2009. u 07:21 - pre 176 meseci
Otvoris radnu svesku - excelov dokumenat. Onda sa ALT+F11 otvoris VBA, "insertujes" MODUL i bukvalno prekopiras macro koji ti je Timmy napisao. To je dogadjaj "Private Sub Worksheet_Change(ByVal Target As Range" sa pocetka coda. Samo prekopiraj i uzivaj. Pozdrav.
 
Odgovor na temu

Zir~

Član broj: 64024
Poruke: 20
*.triumf.ca.



+2 Profil

icon Re: Sortiranje imena i brojeva21.10.2009. u 16:04 - pre 176 meseci
Citat:
neptuncokg: Otvoris radnu svesku - excelov dokumenat. Onda sa ALT+F11 otvoris VBA, "insertujes" MODUL i bukvalno prekopiras macro koji ti je Timmy napisao. To je dogadjaj "Private Sub Worksheet_Change(ByVal Target As Range" sa pocetka coda. Samo prekopiraj i uzivaj. Pozdrav.


Uradio sam sve ovo, medjutim nista se ne desava sa automatskom update-om kada nesto menjam u levoj tabeli.
A sa mojim tasterom za sortiranje uradi sta treba.
Nije mi problem taster, ali i automatsko sortiranje bi bilo malo bolje.

Drustvo, hvala najlepse na pomoci!
 
Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: Sortiranje imena i brojeva21.10.2009. u 16:25 - pre 176 meseci
1. Pritisni Alt+F11 da otvoris VB Editor
2. Pritisni Ctrl+R da prikazes Project Explorer
3. Dupli klik na tvoj radni list npr Sheet1
4. U prozoru sa desne strane Paste koda
5. Zatvori VB Editor

Gore pomenuta funkcija se odnosi samo na A2:B8

Pozdrav
 
Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
79.101.198.*



+12 Profil

icon Re: Sortiranje imena i brojeva21.10.2009. u 19:41 - pre 176 meseci
^ Valda bi trebalo prethodno i da izvrši (pod 4.a) Debug / Compile pa Save pre nego što zatvori VB Editor(?)
"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

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: Sortiranje imena i brojeva21.10.2009. u 19:46 - pre 176 meseci
Nema potrebe.
 
Odgovor na temu

Zir~

Član broj: 64024
Poruke: 20
*.triumf.ca.



+2 Profil

icon Re: Sortiranje imena i brojeva21.10.2009. u 23:09 - pre 176 meseci
Timmy - svaka cast, sada radi kako treba.
To je to!
Hvala jos jednom!
 
Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
77.46.189.*



+10 Profil

icon Re: Sortiranje imena i brojeva18.12.2009. u 11:10 - pre 174 meseci
Meni nece da mrdne :-(

Iskoristio sam kod koji je par postova iznad napisan, prepravio opsege za sortiranje i nece da radi

Da li moze neko da mi kaze gde gresim?
Prikačeni fajlovi
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.3dnet.co.yu.

Sajt: www.gowi.rs


+109 Profil

icon Re: Sortiranje imena i brojeva19.12.2009. u 12:40 - pre 174 meseci
I
Događaj Worksheet_change dešava se prilikom unosa/izmene neke ćelije radnog lista i pokreće makro.
Ti si u kodu izmenio opseg radnog lista koji se proverava da li je bilo izmene i stavio opseg B49:C68. Međutim ovaj opseg su formule i koliko razumem podaci u njih se ne unose nego računaju?! Izmene vršiš u opsegu C2:V?? pa to treba da ti bude opseg koji pratiš da li je bilo izmene i u zavisnosti od toga pokrećeš makro.
Dakle red u kome se ispituje da li postoji presek Target i Range treba da glasi
Code:
If Not Application.Intersect(Target, Range("C2:V20")) Is Nothing Then


II
Drugi problem je kopiranje opsega sa formulama - Excel standardno radi sa relativnim adresama pa će formula =C41 iz ćelije B49 kad se iskopira u ćeliju F49 glasiti =G41, što neće valjati. Ni sortiranje takvih formula nije moguće. Rešenje je kopiranje po vrednosti. Red ActiveSheet.Paste zameni sa
Code:
Selection.PasteSpecial Paste:=xlPasteValues


Nije mi jasna ni organizacija table - malo po kolonama, malo po redovima - na taj način sebi praviš probleme jer formule ne možeš prosto kopirati nego uvek moraš da unosiš, ali to je već treći problem o kome ne bih sada.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.stcable.net.



+10 Profil

icon Re: Sortiranje imena i brojeva19.12.2009. u 13:25 - pre 174 meseci
Hvala puno, proradilo je :-)


tabela koja je u primeru je samo deo neceg mnogo veceg, i list koji je ovde prikazan se nece menjati (nadam se :-)) Ovako mi je bilo najjednostavnije da ne bi pravio novi list, mada sad kad pogledam kako sam od pocetne ideje dosao do ovih "komplikovanih" listova, cini mi se da je bilo bolje da sam ovo krenuo u Accessu, tu bi verovatno bolje plivao.

Jos jednom Hvala puno!!!
 
Odgovor na temu

[es] :: Office :: Excel :: Sortiranje imena i brojeva

[ Pregleda: 3656 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

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