Razvrščanje

[cult]

Imam tabelo za vodenje osebnih financ (izdatki, prejemki, vezave, plačila na obroke,...), kjer po datumih vpisujem izdatke in ostalo.
Na koncu moram vedno razvrstiti podatke po datumu zaradi boljšega pregleda.
Sedaj to delam tako da tabelo označim in uporabim ukaz razvrsti.
Ali se da to kako narediti, da bi zato imel le en ukaz.
Mi lahko kdo pomaga?

Se opravičujem, če je to že bilo kje omenjeno (kje ???).

[admin]

Moram reči, da vas ne razumem najbolje. Kako mislite en ukaz? Za razvrščanje se samo postavite v ustrezen stolpec in kliknite gumbek za razvrščanje v orodni vrstici.

[cult]

morda sem bil malce nejasen.
Tabela ima x stolpcev in y vrstic. V posameznih celicah se avtomatsko izračunajo vrednosti na podlagi vrednosti posameznih celic v vrstici (pravo stanje, bančno stanje po izpisku).

Za pravilno razvrstitev moram vedno označevati celo ali del tabele in klikniti razvrstitev, sicer so vrednosti v posameznih celicah napačne.
Zanima me ali je to mogoče urediti s kakšno proceduro, da mi ne bi bilo potrebno vedno označevati in razvrščati, ampak bi se to izvršilo z enim klikom.

[admin]

Vsaj en klik boste morali narediti in to lahko storite že sedaj; no pravzaprav morate napraviti dva klika. Najprej kliknete v kolono in nato na ikono za razvrščanje. Pred razvrščanjem vam ni potrebno izbrati tabele(!), le to bo Excel našel sam. Izbrati morate samo eno polno polje v koloni po kateri želite razvrščati.

[cult]

Res je, excel sam najde tabelo in po razvrščanju razvrsti podatke, tudi prvo vrstico kjer je vpisan tekst, ki pove kaj je v kateri koloni (prva vrstica se znajde na dnu tabele).
Tega pa ne bi smel razvrstiti - mora ostati na vrhu.
Se da to kako popraviti?

[kljuka13]

Seveda se da. Vendar z uporabo VBA. Upam, da poznate vsaj osnove, sicer povejte.

Koda: Izberi vse

Sub razvrsti()
   Range("a2:i27").Sort Range("a2:i27") 'ustrezno zamenjajte
End Sub

Upam, da je to to.

[cult]

žal ne
mi lahko kako pomagate?
hvaka

[admin]

Postopek:

1. Postavite se v vašo tabelo
2. Izberite opcijo Oradja/Makro/Posnami nov makro
3. Izberite opcijo Podatki razvrsti in jih razvrstte tako kot želite
4. Izberite opcijo Orodja/Makro/Ustavi snemanje
5. S tem makro posneli
6. Izberite opcijo Orodja/Makro/Urejevalnik za Visual Basic
7. S tem boste padli v urejevalnik VBA, kjer boste videli makro, ki ste ga posneli.

Če ste sledili navodilom, bo vač makro izgledal pribljižno takole (rangi bodo drugačni):

Koda: Izberi vse

Sub Makro1()
'
' Makro1 Makro
' Makro ustvaril: xxx, dne 30.1.2008
'

'
    Range("A1:C3").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Sedaj ta makro popravite samo na začetku (pazite spremenil sem Range("..").Sort)

Koda: Izberi vse

Sub Makro1()
'
' Makro1 Makro
' Makro ustvaril: xxx, dne 30.1.2008
'

'
    Range("A1:C3").CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

To je vse. Sedaj imate makro, ki naredi kar želite. Ko želite tabelo sortirati samo izvedite makro. Orodja/Makro/Makri. Ko vam bo vse delalo pa si lahko uredite tako, da se makro sproži ob neki kombinaciji tipk, npr CTRL+Q; a o tem kdaj drugič

[cult]

nekako mi je uspelo posneti kar ste mi napisali, ko pa zaženem makro, ki mi javi napako Compile error in Syntax error in mi obarva ta del makroja, ki izgleda takole

Range("A7:I500").CurrentRegion.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

tu nekje je napaka, a ne vem kje in kaj je narobe

hvala za potrpežljivost
lp

[kljuka13]

Mogoče ste med tem kaj spreminjali tabelo in nekaj ne štima . Poskusite še enkrat posneti makro.

[cult]

posnel ponovno in sedaj deluje
je pa nova težava - ko odprem datoteko se javi sporočilo, ki pravi:

Makri so onemogočeni, ker je raven varnosti visoka, makrom pa ni priloženo elektronsko podpisano potrdilo zaupanja. Če želite, ...... zahtevajte, da avtor podpiše makro z uporabo potrdila, ki ga izda overovitelj.

Poizkušal sem spreminjati stopnjo varnosti pa ni nič drugače.
V oknu Varnost - Zaupanja vredni založniki pa ni nič. Predvidevam da je tu težava?

Kako naprej?
hvala za pomoč

[BJ]

Kliknite Orodja>Možnosti>zavihek Varnost, gumb Varnostna nastavitev za makre, Izberite opcijo Nizka
LPB

[kljuka13]

Ali pa raje izberite Srednja. Potem lahko izbirate med izvajanjem in neizvajanjem makrov. Predvsem, če odpirate zvezke, za katere ne veste, če so zaupanja vredni

[cult]

sedaj vse deluje OK
hvala za pomoč in lp