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
[Fi].Select
Selection.Interior.Color = 25318
End If
If [Ai].Value = 5 Then
[Gi].Select
Selection.Interior.Color = 52516
End If
If [Ai].Value = 6 Then
[Hi].Select
Selection.Interior.Color = 221366
End If
If [Ai].Value = 7 Then
[Ii].Select
Selection.Interior.Color = 4782
End If
If [Ai].Value = 8 Then
[Ji].Select
Selection.Interior.Color = 85215
End If
If [Ai].Value = 9 Then
[Ki].Select
Selection.Interior.Color = 36518
End If
If [Ai].Value = 0 Then
[Li].Select
Selection.Interior.Color = 74532
End If
Next i
End Sub
run time error 424 object required hatası alıyorum
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
[Fi].Select
Selection.Interior.Color = 25318
End If
If [Ai].Value = 5 Then
[Gi].Select
Selection.Interior.Color = 52516
End If
If [Ai].Value = 6 Then
[Hi].Select
Selection.Interior.Color = 221366
End If
If [Ai].Value = 7 Then
[Ii].Select
Selection.Interior.Color = 4782
End If
If [Ai].Value = 8 Then
[Ji].Select
Selection.Interior.Color = 85215
End If
If [Ai].Value = 9 Then
[Ki].Select
Selection.Interior.Color = 36518
End If
If [Ai].Value = 0 Then
[Li].Select
Selection.Interior.Color = 74532
End If
Next i
End Sub
run time error 424 object required hatası alıyorum