SaberExcel - Site de quem precisa Aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere dados, estabelecendo um 'status' para determinado produto,
ao digitar os dados na coluna(A),  se o nome do Produto contiver  os números '123', '222', '223', em qualquer posição, insere na coluna 'STATUS' um determinado critério para indentificar uma determinada situação.
Observe que inserí o procedimento no Módulo de Edição do Objeto WorkBook, que afetará todas as folhas de planihas contidas no livro.

Por exemplo.: SBX123BXLH - SBE222SQP  - SBVVBA223  - aparecendo em qualquer posição a condição será considerada True(Verdadeiro)
1 -) Se no nome do Produto contiver (123),(222),(223), mudará automaticamente o status , na coluna (C)  - (Saberexcel - Embarcado!)
2 -) Caso não haja os 'prefixos ou sufixos' específicos no nome do produto retornará outra mensagem na coluna (C )   - (ENTREGA PROGRAMADA)

Módulo de Edição do Objeto WorkBook, eventos ao digitar em qualquer planilha

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Se a clicar em outra coluna a que não seja a coluna 1 sai da macro, finaliza o processo
If Target.Column <> 1 Then Exit Sub
'se a célula na coluna A estiver desmarcada, limpa a célula da coluna C
If Target.Value = "" Then Target.Offset(0, 2).Value = ""
'Se a célula na coluna A contiver "123"ou "223" ou "222 " como sufixo ou prefixo a célula na coluna C é definida como "Saberexcel - Embarcado"
If Target.Value Like "*123*" Or Target.Value Like "*223*" Or Target.Value Like "*222*" Then
   Target.Offset(0, 2).Value = "Saberexcel - Embarcado!"
Else
   Target.Offset(0, 2).Value = "ENTREGA PROGRAMADA!"  'caso não contiver os dados (123,222,223)
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel



  Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba digitacao digitando palavra ou item insere dados (26.74 KB)

Publicidade
Compre com segurança, garantia e ótimos preços