excel kod

Merhabalar ekte oluşturmuş olduğum karma test yapımı için yardımlarınıza ihtiyacım vardım. Yardımlarınız bekler,iyi çalışmalar dilerim.Açıklama dosya içerisinde eklenmiştir. Saygılarımla.

Sub a() Dim i As Long For i = 1 To 8221 If [Ai].Value = "1" Then [Ci].Select Selection.Interior.Color = 222 End If If [Ai].Value = 2 Then [Di].Select Selection.Interior.Color = 333 End If If [Ai].Value = 3 Then [Ei].Select Selection.Interior.Color = 444 End If If [Ai].Value = 4 Then...