Smislio sam neku igricu za djecu (a i nas odrasle :)) u ovo karantinsko vrijeme gdje im postavljam zamagljene slike u Viber grupu pa oni pogađaju. Da bi bilo zanimljivije, bodujem im pogotke i pišem rezultate u excel tabelu.
Tu sam doašo do problema, njima se stalno žuri pa sam napravio dugme za brzo sortirajne tabele. Međutum, kako smišljam nove zadatke moram dodavati redove i onda mi macro ne radi. Znam da bi rješenje moglo biti da pomjerim ovu pomoćnu tabelu desno od glavne umjesto što je ispod, ali me zanima kako bi se to moglo riješiti sa sadašnjim izgledom, dakle kad u glavnu tabelu dodam novi zadatak (tj,red), da macro i dalje ispravno radi. Trenutno mi on razdvoji pomoćnu tabelu za broj dodatih redova. U prilogu je tabela, a ovdje macro code:
Sub Sortiranje()
'
' Sortiranje Macro
'
' Keyboard Shortcut: Ctrl+d
'
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B47:B61" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A47:B61")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
P.S. Napominjem da nisam baš vješt sa macroima, po potrebi malo proguglam.