makro excel

Pomoč pri izdelavi makrov
Odgovori
krokodil
Prispevkov: 2
Pridružen: Po Apr 01, 2013 8:55 am

makro excel

Odgovor Napisal/-a krokodil »

Spoštovani,
želel bi da bi se mi spremebe sproti posodabljale, vprimeru če bi moral kak podatek v enem delovnem listu spremeniti oz če bi moral povečati dimenzijo vrstic v nekem delovenm listu.
Kako bi se dalo to anrediti.Prilagam vam makro, ki sicer kopira podatke iz delovnih listov (imam jih 12), v glavni delovni list imenovan "Skupno" Torej vsi delovni listi imajo" glave"
, ter enako dimenzijo stolpcev vendar različno dimenzijo vrstic.
Sub kroko()
For Each sh In Worksheets
If sh.Name <> "Skupno" Or sh.Name <> "Skupno" Then
lrsh = Sheets(sh.Name).Range("B" & Rows.Count).End(xlUp).Row
If lrsh = 1 Then Exit Sub
lrm = Sheets("Skupno").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(sh.Name).Range("A1:M" & lrsh).Copy Sheets("Skupno").Range("A" & lrm)
End If
Next sh
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: makro excel

Odgovor Napisal/-a admin »

Pozdravljeni,

Da bi se makro izvedel vsakič, ko se spremeni vsebina neke celice na listu, ga je potrebno zagnati ob dogodku OnChange za posamezen list. O samem bdgodku OnChange si lahko preberete tudi v tem forumu, saj smo ga nekajkrat že omenili.

Seveda pa je potrebno potem makro spremeniti tako, da bo pred formiranjem lista pobrisal prejšnje stanje. Torej (najprej pobriše list Skupno in potem regenerira vsebino na podlagi vhodnih listov).
lp,
Matjaž Prtenjak
Administrator
krokodil
Prispevkov: 2
Pridružen: Po Apr 01, 2013 8:55 am

Re: makro excel

Odgovor Napisal/-a krokodil »

hvala za "namig", sem probal vendar mi ni uspelo:( Bi mi Vi preuredili ta makro da bo deloval tako kot želim
Odgovori