Need help with a loop

[Marshall18]

Fisrt off I would like to say I'm new to VBA and I don't have a lot of knowledge about it so any help would be appreciated. So I'm having trouble with a loop. When I run the code it outputs the results as 0 into the exam rows so I don't know whats wrong with the loop. The scores must be divided by 40

Student Score Exam%
Albrecht 27.5
Alsindi 7.0
Bailey 34.0
Bedert 24.5
Bertsch 27.5
Bills 29.5
Bluester 31.5
Brunstotlar 26.0
Cannon 37.5
Cunningham 33.0
El-Baba 27.0
Erwin 32.5
Ethier 35.5
Ewersen 34.0
Frazier 29.0
Gigax 30.0
Haberstro 38.5
Judge 33.5
Knauf 38.5
Kreger 37.0
Langenderfer 32.0
Lettman 31.5
Li 17.0
Lyons 39.5
Maniak 34.5
Monticure 31.5
Montoya 39.0
Murray 15.0
Patil 21.0
Phipps 32.0
Price 26.0
Sherman 35.5
Small 35.5
Song 27.5
Sun 27.0
Wagner 33.5


This is my code so far

Sub grade()

Dim introw As Double
Dim row As Double
Dim intlastrow As Double
Dim intScore As Integer
Dim intGrade As Integer
Dim intAvg As Integer
Dim intHigh As Integer
Dim intPass As Integer
Dim intFail As Integer

Const intbasis As Integer = 40

intlastrow = Cells(Rows.Count, "A").End(xlUp).row
introw = 2

intScore = Range("B" & introw)
intGrade = Range("C" & introw)

Do While (Range("A" & introw) <> "")
intGrade = intScore / intbasis
introw = introw + 1
Exit Do
Loop


End Sub

[Rick Rothstein]

Actually, your code is not outputting anything. Also it is not entirely clear from your description nor your code what it is you are trying to do. Why don't you give us a more detailed description of what you are trying to do. It would also help immensely if you included a sample workbook that shows your existing data and also shows what the final output should be for that sample data (see the yellow banner at the top of the forum's webpage to see how to properly attach a file to your message).

[JLGWhiz]

See if this will give you the results you are looking for.

Please Login or Register  to view this content.

the problem with your code is that this

Please Login or Register  to view this content.

does not create a valid range reference it would need to be like

Please Login or Register  to view this content.

Just looked at the added graphic in the OP and it looks a lot like homework. If it is, then you are cheating by using this forum.

[Marshall18]

Thanks for the quick reply. I updated the post with a screenschot and sample workbook!

[Rick Rothstein]

I don't see a screen shot or a sample workbook. Did you follow the instructions in the yellow banner at the top of this forum's webpage?

[JLGWhiz]

I don't see a screen shot or a sample workbook. Did you follow the instructions in the yellow banner at the top of this forum's webpage?

There was a screen shot there, but it has been removed. The screen shot basically duplicated what the OP had typed in previously. Apparently all they wanted was to divide each test score by 40 and put the result in column C.

[Rick Rothstein]

Apparently all they wanted was to divide each test score by 40 and put the result in column C.

Had I understood that, I probably would have posted this non-looping macro (it works and would have thwarted its use if the OP's post was a homework assignment)...

Please Login or Register  to view this content.