5 sütundaki hücredeki değere göre 6. sütundaki satıra sonuç yazdırma

[u.L.a.s]

Aşağıda resimde görüldüğü gibi Eğer B2-C2-D2-E2-F2 de yok yazıyorsa
G2 ye yok yazsın bir tanesinde yok yazmıyorsa boş bıraksın.

bunu alt alta veri bitinceye kadar devam ettirsin.

Fakat bunu makro ile yaptırmasını istiyorum. Formül olarak bunu yapabiliyorum ama makroyla nasıl yapabilirim. bilgilerinizi rica ederim

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Say_Yaz()
    
    Dim son As Long, i As Long, say As Byte
    
    son = [B:F].Find("*", , , , xlByRows, xlPrevious).Row
    
    Application.ScreenUpdating = False
    Range("G2:G" & Rows.Count).ClearContents
    
    For i = 2 To son
        say = WorksheetFunction.CountIf(Cells(i, "B").Resize(1, 5), "yok")
        If say = 5 Then
            Cells(i, "G") = "Yok"
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[u.L.a.s]

Çok teşekkür ederim üstadım emeğinize bilginize sağlık