як я автоматично заповнюю клітинки на основі умов?

Мені потрібно автоматично заповнити клітинку на основі, якщо 2 комірки містять конкретні значення, а потім автоматично запустити її. Ось що я маю досі:

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

Заява if буде, =IF(AND(D34="Secured",D35="Amendment"),"yes","")але "так" має бути в іншій комірці

microsoft-excel-2010 vba

— sjk1193
джерело

Якщо вам потрібні D34 та B34, слід змінити .Cells(5,"B")і .Cells(6,"B")на, .Cells(34,"D")і на .Cells(35,"D").

— Кайл

Це те, що ви шукаєте

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

Ви хочете, щоб він запускався, коли зміна знаходиться в цих двох клітинках, і якщо вони відповідають, то заповнюйте іншу комірку. Якщо ви хочете стерти це, ви можете зробити це теж.

— Райстафаріан
джерело