| Descricao: |
 SaberExcel - Site das Macros
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 contém "123"ou "223" ou "222 ", a célula na coluna C é definido 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!"
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
|