Adicionando outro valor na célula / coluna do Excel se outra célula tiver um valor específico

Question

Eu queria ser capaz de criar uma macro para alterar o valor da célula B para EPTBSIET se igualasse esse valor na célula E - SIETCO . Eu consegui compilar uma fórmula IF , mas preferia que o valor não fosse gravado em outra célula. Alguma sugestão?

=IF(ISNUMBER(FIND("SIETCO",E2)),"EPTBSIET","")

    

Answer 1

Você pode usar o seguinte código do VBA para alterar um valor imputado que chame "SIETCO" para "EBTBSIET" no intervalo A1: A10 . Você deve ser capaz de facilmente adaptar isso à sua necessidade.

No editor de código, você precisa adicionar este código à planilha na qual deseja usá-lo, em vez de usar um módulo.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Target.Find("SIETCO", LookIn:=xlValues) Is Nothing Then
        Target.Value = "EBTBSIET"
    End If
    Application.EnableEvents = True
End Sub

Fonte: link