Citat:
Kako da kada unesem broj bodova, za takmicara br. jedan u prvu tabelu koja se zove "takmicenje I" kako da se taj broj automatski prenese u konacnu tabelu u polje predvidjeno za to....
Jednostavno upiši formulu =$E$5 u konačnu tabelu.
Za automatsko sortiranje, prvo snimiš makro koji obavi sortiranje koje ti treba. Uz malo doterivanja kod izgelda ovako
Code:
Sub SortTbl()
'
' Sortiranje konacne tabele
'
' P.Jovanovic za Elitesecurity.org
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("I39:I44"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("B38:I44")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sada u dogadjaju OnChange za ćelije koje menjaš pozoveš ovaj makro
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
' Oblast celija u koju se unosi
Set unos = Range("E16:E18,E5:E7,E28:E30")
If Not (Application.Intersect(Target, unos) Is Nothing) Then
SortTbl ' sortiranje konacne tabele
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?