como faço para preencher automaticamente as células com base nas condições?

Question

Eu preciso preencher automaticamente uma célula com base em se 2 células contiverem valores específicos e, em seguida, executá-la automaticamente. Isto é o que eu tenho até agora:

Private Sub Worksheet_Change(ByVal Target As Range)
     If target.Cells(5, "B").Value = "Secured" And target.Cells(6, "B").Value = "Amendment" Then
        Cells(10, "B") = "T2 - Medium Risk"
    End If

End Sub 

A declaração if seria =IF(AND(D34="Secured",D35="Amendment"),"yes","") , mas o "sim" precisa estar em uma célula diferente

    

Answer 1

Isso é o que você está procurando

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("B5:B6")) Is Nothing Then
        If Cells(5, 2) = "Secured" And Cells(6, 2) = "Amendment" Then
            Cells(10, 2) = "T2 - Medium Risk"
        End If
    End If
End Sub

Você quer que ele seja disparado quando a alteração estiver nessas duas células e, se corresponderem, preencher uma célula diferente. Se você quiser apagar, você também pode fazer isso.