Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 15 odgovora
  • 4.215 pregleda

Najnovija ↓

Uslovno razvrstavanje po listovima 30.03.2011. u 23:19 · pre 189 meseci
izmenjeno 1 put, poslednji put edinpepic 31.03.2011. u 12:57
  1. edinpepic31.03.2011. u 12:57zapis iz teksta poruke
#1
Imam jednu ovakvu formulu:
=IF(ROWS(B$6:$B6)>$Q$2;"";INDEX(Januar!K$7:K$52;SMALL(IF(Januar!$L$7:$L$52=$Q$3;ROW(Januar!$L$7:$L$52)-ROW(Januar!$L$7)+1);ROWS(B$6:$B6))))
Da li se moze preurediti tako da umjesto lista "Januar" stoji celija npr A1, jer ce u celiji A1 biti upisano ime tog lista. Ne znam da li sam dobro opisao, za svaki mjesec imam poseban list i u celiji A1 bih mijenjao imena mjeseca. Pretpostavljam da ima fora ali ne znam u cemu je. Pokusavao sam da upisem A1<>"" ali nije to to. Hvala unaprijed.
Re: Uslovno razvrstavanje po listovima 31.03.2011. u 03:17 · pre 189 meseci #3
Umesto Januar!$l$7 ti upiši:
indirect(a1&a2)
U A1 upisuješ mesec koji želiš. U A2 upisuješ !$l$7 kao konstantu.

Re: Uslovno razvrstavanje po listovima 31.03.2011. u 12:36 · pre 189 meseci #4
Dajem primjer, radi se o tome da ne pravim 12 listova "zbir" za svaki mjesec. Nego da u jednom listu po mjesecima razvrstavam. U bazi zamijenim mjesec i on se u listu zbir u celiji A1 prenosi. To je to pa ako ko zna rjesenje bio bih zahvalan.
Re: Uslovno razvrstavanje po listovima 02.04.2011. u 10:00 · pre 189 meseci #6
Nisi zakasnio nimalo, opteretio sam te izvini. Hvala za pomoc, jes da ne razumijem bas kako je uradjeno, slab sam sa VBA, al u svakom slucaju hvala. Pokusacu da nekako ukapiram i ovo. Mada je spor VBA cini mi se da sporo ucitava. A sta mislis da li je moglo da se uradi pomocu excelovih formula?
Re: Uslovno razvrstavanje po listovima 02.04.2011. u 11:18 · pre 189 meseci #7
Ma nisi me opteretio, volim ja tako neke izazove :)
Iskreno da ti kazem ne znam da li bi moglo formulama, meni je nekako lakse da sve uradim preko VBA tako da se nesto i ne trudim da probleme u Excel-u resavam formulama, VBA mi je pregledniji. Jedino ti preostaje da sacekas da se neko javi sa resenjem preko formula a do tad mozes koristiti moje resenje.
Potpis
[email protected]=
Re: Uslovno razvrstavanje po listovima 02.04.2011. u 11:21 · pre 189 meseci #8
Ma nisi me opteretio, volim ja tako neke izazove :)
Iskreno da ti kazem ne znam da li bi moglo formulama, meni je nekako lakse da sve uradim preko VBA tako da se nesto i ne trudim da probleme u Excel-u resavam formulama, VBA mi je pregledniji. Jedino ti preostaje da sacekas da se neko javi sa resenjem preko formula a do tad mozes koristiti moje resenje.
Potpis
[email protected]=
Re: Uslovno razvrstavanje po listovima 03.04.2011. u 11:13 · pre 189 meseci #9
Gledao sam ovaj VBA i nije mi skoro nista jasno :). Ne znam kako odredjujes rang koje celije da preuzima u listu zbir. Probao sam da kopiram makro ali mi ne ucitava nista. Ni mjesece nece da mi prikaze, samo jedan mjesec mi otvori, bez liste. Tako da ga nisam uspio primijeniti.
Re: Uslovno razvrstavanje po listovima 03.04.2011. u 15:25 · pre 189 meseci #10
Ti si za listu meseca koristio Data Validation, a ja sam koristio Combo Box sa palete Control Toolbox i dodelio joj ime cbxMeseci, neke module sam izbacio posto su bili prazni, za rad ti je bitan Modul 1 u kome je procedura Auto_Open, i procedure u Sheet1(baza) Meseci i cbxMeseci_Change. Takodje sam ti malo dabele modifikovao tako da budu identicne sa tabelom u listu ZBIR. Nadam se da ti je sada malo jasnije, ako ne uspes ni sada da se snadjes okaci ceo Excel dokument u kome treba to da ubacis da ti to sve ja ubacim. Pozdrav
Potpis
[email protected]=
Re: Uslovno razvrstavanje po listovima 03.04.2011. u 18:55 · pre 189 meseci #11
Nije meni to rjesenje da tebi posaljem fajl da ga ti odradis. Zelim ja da uradim, da shvatim nacin na koji se dodje do rjesenja. Nije mi gust na gotovo dobit. Zelim da se namucim i naucim. Pomoc bi mi bila da mi postupak objasnis a ne gotovo rjesenje mi serviras. Ja otvorim Combo iz palete i iskopiram tvoje naredbe ali mi ne odradi nista. kao da sam kopirao sliku a ne makro. E to mene interesuje dje grijesim. To jedna stvar i druga je kao sto sam te vec i ptao, kako mu zadajes koje celije da prenosi u listu zbir, jer ti imas i neto u svim listovima koji se ne prenosi u listu zbir,a i ne treba da ga prenosi.



















Re: Uslovno razvrstavanje po listovima 03.04.2011. u 19:13 · pre 189 meseci
izmenjeno 1 put, poslednji put edinpepic 03.04.2011. u 19:37
  1. edinpepic03.04.2011. u 19:37zapis iz teksta poruke
#12
Cini mi se da sam pronasao "foru" kako da pokrenem makro. Pokrenuo sam ga, e ostalo je jos da udjem u foru kako da odredjujem rang, koje kolone i vrste da preuzima. Npr, ako trebam da prenesem na list zbir 1,2,3,4,7,8,11,12,23,24,25,26,27,30 kolonu i 6,7,8,9,10,11,12,13,14,23,24,27 vrstu
Re: Uslovno razvrstavanje po listovima 04.04.2011. u 05:54 · pre 189 meseci #13
Ovaj deo koda ti za izabrani mesec iz odgovarajuceg lista prepisuje sve podatke iz tabele, ova Do petlja radi sve dok je u koloni A pocevsi od 4 reda (redni broj) vrednost broj i sve podatke iz tog reda upisuje u tabelu na listu ZBIR

Code:

i = 4
Do Until Not IsNumeric(Sheets(Sveska).Cells(i, 1))                       'proverava da li je podatak u celiji broj
    k = k + 1
    Sheets("zbir").Cells(i + 1, 1) = k                                            'dodeljuje redni broj u tabeli ZBIR
    For j = 2 To 6
        Sheets("zbir").Cells(i + 1, j) = Sheets(Sveska).Cells(i, j)        'upisuje sve podatke u redu od 2 do 6 kolone
    Next j
    For j = 8 To 9
        Sheets("zbir").Cells(i + 1, j - 1) = Sheets(Sveska).Cells(i, j)   'upisuje sve podatke u redu od 8 do 9 kolone
    Next j
    i = i + 1
Loop


ostatak koda sluzi za formatiranje tabele, dodeljuje boju celijama i okvirne linije.
Nadam se da ti je sad jasnije, ako budes imao jos pitanja tu sam. Pozdrav
Potpis
[email protected]=
Re: Uslovno razvrstavanje po listovima 04.04.2011. u 20:34 · pre 189 meseci #14
Slaba vajda od mene odje :) tesko mi ide, ponekad nesto ucinim pa se vratim jovo na novo :). Evo ovako mi treba, ako ti nije tesko da mi taj kod napises:

1. Treba u listu zbir da mi prenosi kolone 1,2,3,4,5,6,12,28,30,31,32,33,34,35,36, s tim da je u koloni 1 redni broj. Druga stvar je da preuzima onoliko redova koliko ima rednih brojeva. Jer moze da se desi da je tabela npr sa 30 redova ali su upisana samo 3 ili da ima 150 redova a da je upisano samo 15 ili 100 nebitno je to, ali da ti docaram o cemu se radi. Ne mora prenosit boje samo vrrijednosti, neka bude bez boje prenos.

2. U nekom drugom listu, dajmo mu ime npr "ostalo", treba da mi prebacuje odredjene celije iz listova Januar, Februar, i tako redom kao i gore. Npr u celiji H10, treba da preuzme podatke iz celije L47, u celiji H11, iz celije AB47, u celiji H13 iz AD47, u H14 iz AE47, u H15 iz AF47, u H17 iz AG47, u H18 iz AH147, u H19 iz AI47, u H21 iz AJ47, u H23 iz AC47, u H25 iz AL47, u H26 iz AK47, u H31 iz M47.

Eto to je to. Ako je nesto posebno naporno ne moras se muciti, ali hvala u svakom slucaju.
Re: Uslovno razvrstavanje po listovima 12.04.2011. u 23:55 · pre 189 meseci #16
Citat:
edinpepic: Nije meni to rjesenje da tebi posaljem fajl da ga ti odradis. Zelim ja da uradim, da shvatim nacin na koji se dodje do rjesenja. Nije mi gust na gotovo dobit. Zelim da se namucim i naucim. .
Evo i moj primjer preko "štapa i kanapa" kako je netko rekao

Dakle, biraš mjesec na sheetu Baza a rezultati se za taj dotični mjesec pokazuju na shetu zbir, sve rješeno formulama i nekim dodatnim elementima (ako je to to što trebaš)

A ako hoćeš učiti evo i linkova ;)

- VBA u Excelu za početnike
- VBA tutorijal za download
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme