Home/ Questions/Q 8995489
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-15T23:37:37+00:00

here is my code Sub rangking() Dim mulai As Integer Dim akhir As Integer

  • 0

here is my code 

Sub rangking()
Dim mulai As Integer
Dim akhir As Integer
Dim i As Integer
Application.CutCopyMode = False
mulai = 0
akhir = 60
For i = akhir To mulai Step -1
If Range("data!AC" & i).Value > 90 Then
Range("data!AO" & i).Value = "mumtaz"
ElseIf Range("data!AC" & i).Value > 80 Then Range("data!AO" & i).Value = "jayid jiddan"
ElseIf Range("data!AC" & i).Value > 70 Then Range("data!AO" & i).Value = "jayid"
ElseIf Range("data!AC" & i).Value > 60 Then Range("data!AO" & i).Value = "hasan"
ElseIf Range("data!AC" & i).Value > 50 Then Range("data!AO" & i).Value = "kaaf"
ElseIf Range("data!AC" & i).Value > 45 Then Range("data!AO" & i).Value = "makbul"
Else: Range("data!AO" & i).Value = "rosib"
End If

Next i

End Sub

i have error “method ‘range’ on object ‘_global’ failed ”
in line

If Range("data!AC" & i).Value > 90 Then

please help me

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team
    Range("data!AC" & i)

    is not a range you need to define your sheet seperately
    eg:

    Sheets("data").Range("AC" & i)
    • 0