Atualização de status no Excel

Obadia disse:

Caro amigo digaoo0,

Na célula que você quer mostrar o resultado, faça uma fórmula chamada procv.

Você vai procurar o valor da solicitação na matriz e retornar ao seu ultimo status.

ex: =PROCV(B2;Plan2!B:E;4;0)

Abraços,

digaoo0 disse:

Prezado Obadia,

Eu entendi o seu ponto de vista.
Nessa célula onde irá mostrar o último status será também a célula onde atualizarei o novo. Não ta dando certo, pq se eu coloco a fórmula, não consigo atualizar com o novo status, entende?
A célula que aparecerá o novo status deverá ter um mecanismo que aceite eu atualizar por ela mesmo, talvez um botão.
Essa planilha será mexida por muitas pessoas, por isso é fundamental que tenhamos essa simplicidade.

Se tiver alguma idéia, vou ser grato.

Obadia disse:

Entendi. Você saca de macro? Vou tentar lhe mostrar o caminho das pedras...


Com um código abaixo você consegue atualizar o novo status. Coloque o procv em um botão e no outro adapte o código abaixo:

ult_linha = ThisWorkbook.Sheets("pedidos").Range("b65536").End(xlUp).Row

For Each codigo1 In ThisWorkbook.Sheets("pedidos").Range("a2:a" & ult_linha)

If codigo1 = cod Then

Label17.Caption = codigo1.Offset(0, 7).Value
Label18.Caption = codigo1.Offset(0, 10).Value
Label19.Caption = codigo1.Offset(0, 2).Value
Label20.Caption = codigo1.Offset(0, 3).Value
Label21.Caption = codigo1.Offset(0, 4).Value
Label22.Caption = codigo1.Offset(0, 5).Value
Label23.Caption = codigo1.Offset(0, 9).Value
Label24.Caption = codigo1.Offset(0, 6).Value
Label26.Caption = codigo1.Offset(0, 8).Value
A = 0
GoTo pula
Else
A = 1
End If
Next
If A = 1 Then
frmerrado.Show
End If
End Sub


Abraços