[es] - Ubacivanje praznih redova kako ja zelim

starkg
Kragujevac

Član broj: 51088
Poruke: 711
79.101.177.*

+89 Profil

Ubacivanje praznih redova kako ja zelim

^{15.10.2009. u 11:51 - pre 176 meseci}

Dakle imam jedan problem , da li bi moglo na laksi nacin ubaciti kolone, kada imamo

1
2
3
4
5

selektujemo sve pa potom komanda u kojoj unesemo koliko praznina zelimo dovoljna mi je i jedna i dobijemo ovako nesto a da podaci ostanu netaknuti,

1
--- jedan prazan red
2
--- jedan prazan red
3
--- jedan prazan red
4
--- jedan prazan red
5

nije problem za 5 ali za 14000 jeste.

I jos jedno pitanje imam sifre koje se ponavljaju bude ih pet jedna za drugom pa potom nova, da li postoji nesto poput logickog testa koji bi uporedio prethodnu i ako su isve ok, ako nisu umetni nov red

0100001 logicki test OK
0100001 logicki test OK
0100001 logicki test OK
----------umetnut red posto nije ista sifra ili mi treba da ucim access ?
0100003

Puno hvala, pozdrav

YU1OTW

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{15.10.2009. u 15:32 - pre 176 meseci}

Najpre bih te pitao zasto treba umetnuti po jedan prazan red izmedju?
Ako bi to radio da samo napravis razmak izmedju podataka - onda je mozda
jednostavnije da promenis visinu redova, zar ne. U suprotnom, mozes sa
CTRL da selektuje redove i da desnim klikom na neki od njih odaberes
komandu Insert - dobices po jedan prazan redu izmedju svih selektovanih.
No, ipak ostaje pitanje sta ako ih ima 14000?

Tada probaj seldeci makro:

Code:

Sub InsertRow1()
Dim l As Long
    For l = 1 To 100 ' broj redova podataka
        Rows(l * 2).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next l
End Sub

A za drugi problem probaj sledeci makro

Code:

Sub InsertRow2()
Dim l As Long
Dim prev As Variant
    l = 2
    prev = Cells(1, 1).Value
    Do
        If Cells(l, 1) <> prev Then
            Rows(l).Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            l = l + 1
        End If
        prev = Cells(l, 1).Value
        l = l + 1
    Loop Until Cells(l, 1) = ""
End Sub

Obrati paznju da ovaj drugi radi za celu tabelu od A1 do prve prazne celije u koloni A.

Pozdrav

Odgovor na temu

starkg
Kragujevac

Član broj: 51088
Poruke: 711
*.dynamic.sbb.rs.

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{15.10.2009. u 20:13 - pre 176 meseci}

Hvala veliko probacu, mozda glupo p[itanje ali, ima li neka literatura za makroe, znam da moze da se snimi ali ne znam i kako postupiti snimiti jednu zeljenu operaciju ili??????

edit

Radi odlicno to je to, za ovo je potrebno znanje visual basica ili..

A potreban prazan red je da bi sabrao kolicinu ispod svake sifre, to ce morati rucno, znam vidim moze sa makroom,na primer saberi u koloni b2 i upisi u prvu praznu, a kriterijum za sabiranje uzmemo jednu istu sifru, tako da bi u prvu praznu sabrao i upisao sve kolicine-vrednosti koje imaju sifru 1000001 itd...ali treba poznavati basic ili nesto drugo?

_{[Ovu poruku je menjao starkg dana 15.10.2009. u 23:12 GMT+1]}

YU1OTW

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{15.10.2009. u 23:26 - pre 176 meseci}

Cini mi se da je dobro sto sam te pitao zasto dodajes prazne redove ;-)

Predlazem ti da pogledas sta radi alat SUBTOTAL, iznenadices se kako moze
potpuno automatizovano da se uradi ovo sto si ti namerio da radis peske.

Pozdrav

Odgovor na temu

starkg
Kragujevac

Član broj: 51088
Poruke: 711
93.86.229.*

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{16.10.2009. u 06:42 - pre 176 meseci}

Najlepse hvala timmy, sve cu proveriti, nisam znao nista o makroima, niti gde bih kopirao kod,znam da ima VB dodatak u exelu, ali nije mi ranije trebalo, proveravao sam subtotal, ne znam nije mi nesto od pomoci ili nisam lepo postavio, sabiranje na drugi nacin, kako moze da vidi dokle treba , nikada nije isti broj sifara, evo slike sta radim zutu kolonu treba sabrati. ali ne da nakraju bobijem ono zbir nego samo mi treba ispod svake stavke koja ima istu sifru zbir, na kraju netreba konacan zbir razliciti artikli pa netreba sabirati.

_{[Ovu poruku je menjao starkg dana 16.10.2009. u 10:33 GMT+1]}

YU1OTW

Prikačeni fajlovi

slika.jpg - 377.33k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{16.10.2009. u 11:08 - pre 176 meseci}

Podesi u prozoru SUBTOTAL-a da

za svaku promenu SIFRE
koristis funkciju SUM
nad kolonom FAK_CENA

naravno u ovom slucaju ne treba da imas prazne redove, jer ce alat SUBTOTAL
ubiciti posle svake promene SIFRE novi red u kome ce funkcijom SUBTOTAL sabrati
vrednosti iz kolone FAK_CENA (naravno samo za poseldnju grupu SIFRE). A na
kraju cele tabele ces dobiti GRAND TOTAL svih fakturisanih iznosa.

Pozdrav

Odgovor na temu

starkg
Kragujevac

Član broj: 51088
Poruke: 711
*.dynamic.sbb.rs.

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{20.10.2009. u 17:33 - pre 176 meseci}

A pa tesko cu ja to nepoznajem visual basic, a nisam uspeo da napisem valjanu formulu da to radi, sve sam rucno, ali ako nije neki problem kako sa makro fungcijom to uraditi tj, koji je kod, ili formula ali ne ide.......

YU1OTW

Odgovor na temu

MatejaBg
nezaposlen
Beograd

Član broj: 234261
Poruke: 6
*.cchbc.com.

Profil

Re: Ubacivanje praznih redova kako ja zelim

^{21.10.2009. u 11:06 - pre 176 meseci}

s obzirom da nisi dao mnogo detalja, sta ti je stvarno potrebno, mislim da su ljudi u pravu da je subtotal najbolje resenje

ako ti pomaze, evo kako bi to izgledalo.
kad god imas promenu u sifri, subtotal bi ubacio jedan novi red. obelezeno je zuto

u zavisnosti od tvoje situacije, trebao bi podatke da sortiras (npr prema datumu, prema sifri, ili sta vec treba). zatim selektujes sve, odradis subtotal i dobijes ovo na slici

Odgovor na temu

starkg
Kragujevac

Član broj: 51088
Poruke: 711
93.87.98.*

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{21.10.2009. u 12:53 - pre 176 meseci}

A pa ja nisam znao kao se radi,dakle ne mora makro, trebala mi je suma u koloni fakturne cene, a da sumira samo iste sifre i to je to....
ne znam da pravilno upotrebim subtotal u tome je fora, ok sad si mi obijasnio probacu ako.

YU1OTW

Odgovor na temu

MatejaBg
nezaposlen
Beograd

Član broj: 234261
Poruke: 6
*.neobee.net.

Profil

Re: Ubacivanje praznih redova kako ja zelim

^{21.10.2009. u 20:08 - pre 176 meseci}

ahaa, ma za to ti je ovo skroz ok.
ako hoces da ti sve ide po siframa, moras prvo da sortiras sve podatke po sifri (data> sort)

mozda ti je vec tako, otkud znam, a mozda su ti fakture slozene po datumu?
uglavnom sortiraj po kriterijumu koji ti odgovara, a onda subtotal prati taj kriterijum i kad god dodje do promene, on ubaci jedan red ispod i sabere ti sve fakture sa tom sifrom.

koliko se secam bitno je da svaka kolona ima naziv u vrhu (npr Sifra, Cena, Datum...)
onda selektujes sve te podatke od naziva, pa do dna i pritisnes Data > subtotal
zatim samo pratis wizarda,
"at each change in" tu stavis kolonu sifra
"use function" SUM
"add subtotal to" i stikliras sve kolone gde ti se nalaze cene

btw ako ti ikad zasmeta takav prikaz mozes lako da ga sklonis, samo selektujes opet sve podatke, odes Data > subtotal > Remove all. i on ti skloni sve medjuredove, ostanu ti samo originalni podaci. poenta je da ne moras nista da se zezas rucno

eto tako
poz

Odgovor na temu

starkg
Kragujevac

Član broj: 51088
Poruke: 711
93.87.98.*

+89 Profil

Re: Ubacivanje praznih redova kako ja zelim

^{22.10.2009. u 07:00 - pre 176 meseci}

Da da to je to meni i nije radilo iz tog razloga sto nisam imao na vrhu NAZIV!!! kada sam probao ovako u tabeli koju sam uradio je imalo, hvala svima.

YU1OTW

Odgovor na temu