☰

Criando uma macro para classificar itens por data inserida (resultados acionados pela fórmula)

tag-icon • tag-icon microsoft-excel worksheet-function vba macros
Criando uma macro para classificar itens por data inserida (resultados acionados pela fórmula)

Eu tenho a planilha 1, onde estou inserindo novos dados em uma planilha, e na minha planilha de referência estou extraindo os mesmos valores da planilha 1 para poder classificá-los por tempo inserido. Meu objetivo é ter uma exibição na Planilha 1 que mostre os últimos 10 itens inseridos na Planilha 1. Usei a fórmula abaixo para classificar minha planilha de referência por data, mas como estou usando uma fórmula para extrair os valores ela não aciona . É possível combinar isso com uma nova macro para que eu possa inserir dados em um local e classificá-los em outro lugar?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range
    Dim AB As Range
    Set A = Range("A:A")
    Set AB = Range("A:B")

    If Intersect(Target, A) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
        Target.Offset(0, 1) = Now
        AB.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    Application.EnableEvents = True
End Sub

Responder1

Parece que o seu problema é que o seu código de macro não é acionado para a alteração em uma planilha porque a planilha está mudando apenas em virtude de uma referência de fórmula. Se for esse o caso, você não pode colocar o código (ou chamar qualquer Subs que precisar) doPasta de trabalho_SheetChange()Sub em vez disso? (a 'ApostilaMudança de planilha()evento será acionado quando você alterarqualquerfolha). Você pode inspecionar a planilha que foi alterada usandoSh.Nomede dentro deste Sub. E obtenha o endereço da célula da alteração usandoEndereço.alvo.

informação relacionada