Alttaki koda yukardakini eklerseniz formüle gerek kalmaz gerçi formüllede zor olur.
Ayrıca .Range("L" & son).Value =  mod_veribul.veriAl yazılsa C6 hücresine veri almayada gerek yok.Daha doğrusu result sayfasının bc2,c4 ve c6 yeda gerek yok onlarda kodla yapılabilirdi.Videodaki kadın zaten gereksiz şeylerle uğraşmış

Sub sonsatirResult(son As Long, syf As String)

    With ThisWorkbook.Sheets(syf)

        .Range("A" & son).Value = .Range("B2").Value

        .Range("B" & son).Value = .Range("C2").Value

        .Range("G" & son).Value = .Range("C4").Value

        .Range("C6").Value = mod_veribul.veriAl

        .Range("L" & son).Value = .Range("C6").Value

       

        Dim ara As Range

        Set ara = Sayfa1.Range("A:A").Find(Sayfa4.Range("A10").Value, , , 1)

        

        If Not ara Is Nothing Then

            If ara.Offset(, 1).Value = mod_veribul.veriAl Then

                .Range("Q" & son).Value = 1

            Else

                If mod_veribul.veriAl = "" Then

                    .Range("Q" & son).Value = "Bos"

                Else

                    .Range("Q" & son).Value = 0

                End If

            End If

        End If

    End With

    mod_veribul.veriAl = ""

    Set ara = Nothing

End Sub

---

(25/05/2021, 22:08)feraz yazdı: mod_veribul.veriAl

yerine 
olarakta kısaca yazılır normalde.