Olá gente, queria uma ajuda urgente, não tenho muita experiência no VBA e estou querendo desenvolver um botão que realize auto-classificação de uma parte de uma lista, que cresce, pela cor presentes na coluna K.
O codigo:
Sub PrioriMAX()
'
' Prio Macro
'
'
Range("C6").Activate
ActiveCell.Offset(rowOffset:=10, columnOffset:=12).Activate
ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _
xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
199, 206)
ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _
xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
235, 156)
ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _
xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(249, _
249, 249)
With ActiveWorkbook.Worksheets("Tableau").Sort
.SetRange Range("C6")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Obrigado pela ajuda desde já