Question

Whats wrong with this VBA?

Sub problem2()
Dim x0 As Integer, v0 As Integer, theta As Integer, g As Integer, t As Double, y0 As Integer
Dim x As Double, y As Double
Sheets("Sheet2").Select
x0 = Range("F2").Value
y0 = Range("F3").Value
v0 = Range("F4").Value
theta = Range("F5").Value
g = -9.81
x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t

y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + 0.5 * g * t ^ 2
Cells(2, 1) = 0
Cells(2, 2) = x
Cells(2, 3) = y

Do While (y > 0)
y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + (0.5 * g * t ^ 2)
t = t + 0.1
ThisWorkbook.Worksheets("Sheet2").Range("A") = t
ThisWorkbook.Worksheets("Sheet2").Range("C") = y

If y > 0 Then
x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t
ThisWorkbook.Worksheets("Sheet2").Range("B") = x

End If

Loop

End Sub

Answer 1

Please check that you have created a sheet 2 in your excel file. I tried this code and it seems to be running fine.

As you have not mentioned on what you wanted to achieve I assumed you had some error in running code which can be resolved by creating a sheet2.

If that is not the case please post full query.

Sub problem2()
Dim x0 As Integer, v0 As Integer, theta As Integer, g As Integer, t As Double, y0 As Integer
Dim x As Double, y As Double
Sheets("Sheet2").Select
x0 = Range("F2").Value
y0 = Range("F3").Value
v0 = Range("F4").Value
theta = Range("F5").Value
g = -9.81
x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t
y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + 0.5 * g * t ^ 2
Cells(2, 1) = 0
Cells(2, 2) = x
Cells(2, 3) = y
Do While (y > 0)
y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + (0.5 * g * t ^ 2)
t = t + 0.1
ThisWorkbook.Worksheets("Sheet2").Range("A") = t
ThisWorkbook.Worksheets("Sheet2").Range("C") = y
If y > 0 Then
x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t
ThisWorkbook.Worksheets("Sheet2").Range("B") = x
End If
Loop
End Sub