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,086 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: 858

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