Hey SoftAid,
nee, het is gewoon een inkleur- en sorteermacro voor het werkblad waarop de knop staat.
dit is de macro :
Sub totaal()
Columns("A:Q").EntireColumn.AutoFit
rijen = Cells(Rows.Count, "B").End(xlUp).Row
'----- volledige rijen inkleuren
For i = 2 To rijen
teller = Range("B" & i & ":L" & i).SpecialCells(2).Count
If teller = 11 Or (teller = 8 And Cells(i, 8) <> "" And Cells(i, 9) <> "" And Cells(i, 12) = "") Then
Range("A" & i & ":L" & i).Interior.ColorIndex = 8
End If
Next i
'----- volledig overzicht sorteren op gscode
ii = rijen
With Sort
.SortFields.Clear
.SortFields.Add Key:=Range("M2:M" & ii), Order:=xlAscending
.SetRange Range("A1:R" & ii)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
Cells(ii, 1).Select
End Sub
De macro heeft nooit problemen gegeven tot plots half vier deze namiddag...
groetjes,
BlackDevil