Igor Pinheirode Medeiros

@Edson Luiz Branco Muito Obrigado pela ajuda!!!!

@LaerteB Obrigado pela ajuda amigo! Então até então funcionou para realizar a classificação com os dados ja colocados, mas se eu adiciono nova linha no intervalo e coloco uma nova classificação, ele da erro. Como está ai no anexo.

Exemplo solucao_final.rar

Olá galera,

Estou querendo fazer um hiperlink que direcione à uma celula da mesma planilha, tipo um localizador, mas que quando eu mude a  localizaliçao dessa célula (exemplo= ela estava na C7 coloquei na C20), o hiperlink continue me direcionando à ela (C20) e não C7.

Muito Obrigado!!

@LaerteB Obrigado pela dica, está ai um exemplo do que pensei 

Exemplo.rar

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á