permisi sesepuh sekalian saya mohon pencerahan nya dong
saya dapat tugas magang di telkom untuk menghitung jarak terdekat dari ODP
secara looping
berikut ini algoritma saya yg stuck:
Sub Macro2()
Dim x As Long
Dim i As Long
Dim found As Boolean
Range("AL2").Value = x
x = 2
i = 2
Cells(i, 38) = ((Cos(Sin(Cells(i, 30)) * Sin(Cells(x, 47)) + Cos(Cells(i, 30))
* Cos(Cells(x, 47)) * Cos(Cells(x, 48) - Cells(i, 33))) * Cells(i, 34)) * 1000)
found i < 200 = False
x=x+1
Do Until Cells(i, 38) >= 200
found i >= 200 = True
i = i + 1
Exit Do
Loop
End Sub
mohon bantuan nya sesepuh
btw kalo yg ada butuh file nya bisa pm ane suhu
terima kasih
