Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CODIGO VBA PARA BUS...
 
Notifications
Clear all

CODIGO VBA PARA BUSCA DE NUMERO E REMOÇÃO

 
2024 - VBA & Macros
Post Recente por denilsonsl 7 anos atrás
4 Posts
2 Usuários
0 Reactions
1,079 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Bom dia a todos.

Preciso de uma ajuda.

Tenho uma planilha de programação de maquina para a fabrica, so que preciso de um código que faça a seguinte ação:

Quando digitar “C” de cancelado na coluna STATUS referente ao numero a ordem de produção em questão, faz uma busca nas abas das maquina e remove o numero de da ordem de produção na aba encontrada ou das abas encontradas.
Que seja automático quando digitar C de cancelado na coluna referente a linha da ordem de produção, faça a busca e remove da aba ou abas se estive em mais de uma maquina.

Sabendo que a planilha é toda baseado em tabela dinâmica.

Isso é possível?

Desde já agradeço

 
Postado : 12/01/2017 9:01 am
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Bom dia.

Alguem tem alguma solução para este detalhe?

Desde agradeço.

 
Postado : 25/07/2017 9:10 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim op As Range, ws As Worksheet
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 3 Or Target.Value <> "C" Then Exit Sub
   For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "PEDIDOS" Then
     Set op = ws.[B:B].Find(Target.Offset(, -2).Value, lookat:=xlWhole)
      If Not op Is Nothing Then ws.Rows(op.Row).Delete
    End If
   Next ws
End Sub

Osvaldo

 
Postado : 25/07/2017 5:17 pm
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

bom dia.

funcionou perfeitamente.

obrigado.

 
Postado : 26/07/2017 5:11 am
Forum Jump:
  Tópico Anterior
Próximo Tópico