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
makro excel
Re: makro excel
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).
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
Matjaž Prtenjak
Administrator
Re: makro excel
hvala za "namig", sem probal vendar mi ni uspelo:( Bi mi Vi preuredili ta makro da bo deloval tako kot želim