Sortiranje imena i brojeva

Sortiranje imena i brojeva 17.10.2009. u 08:41 · pre 207 meseci #1

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.

Re: Sortiranje imena i brojeva 17.10.2009. u 13:05 · pre 207 meseci #2

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.

SORT.xls25.5k

Re: Sortiranje imena i brojeva 17.10.2009. u 18:11 · pre 207 meseci #3

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!

Re: Sortiranje imena i brojeva 18.10.2009. u 02:49 · pre 207 meseci #4

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.

Sort&Copy.xls27k

Re: Sortiranje imena i brojeva 18.10.2009. u 08:58 · pre 207 meseci #5

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

Copy&Sort.xls30.5k

Re: Sortiranje imena i brojeva 18.10.2009. u 11:46 · pre 207 meseci #6

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

Re: Sortiranje imena i brojeva 19.10.2009. u 07:58 · pre 207 meseci #7

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.

Re: Sortiranje imena i brojeva 19.10.2009. u 08:21 · pre 207 meseci #8

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.

Re: Sortiranje imena i brojeva 21.10.2009. u 17:04 · pre 207 meseci #9

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!

Re: Sortiranje imena i brojeva 21.10.2009. u 17:25 · pre 207 meseci #10

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

Re: Sortiranje imena i brojeva 21.10.2009. u 20:41 · pre 207 meseci #11

^ Valda bi trebalo prethodno i da izvrši (pod 4.a) Debug / Compile pa Save pre nego što zatvori VB Editor(?)

Potpis

"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

Re: Sortiranje imena i brojeva 21.10.2009. u 20:46 · pre 207 meseci #12

Nema potrebe.

Re: Sortiranje imena i brojeva 22.10.2009. u 00:09 · pre 207 meseci #13

Timmy - svaka cast, sada radi kako treba.
To je to!
Hvala jos jednom!

Re: Sortiranje imena i brojeva 18.12.2009. u 12:10 · pre 205 meseci #14

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?

primer za ES.xls40k

Re: Sortiranje imena i brojeva 19.12.2009. u 13:40 · pre 205 meseci #15

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.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: Sortiranje imena i brojeva 19.12.2009. u 14:25 · pre 205 meseci #16

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!!!

Forum kao aplikacija na telefonu

Srodne teme