calculating loop didn't work vba - excel

Question

I am trying to calculate from range M13:M22 using some conditional values and looping, but some of my code just works only in cell M13 and doesn't loop to cell M22. How do I solve this problem?
Here is my code:
Private Sub CommandButton1_Click()
Dim pelanggan As Range, alamat As Range, diskon As Range, jdiskon As Range, tanggal As Range, jtempo As Range
Dim rout(1 To 10) As Variant, i As Long
Dim path As String
path = "\\Faizal\Data D Faizal\Daftar Harga\Price List"
Filename = Dir(path & "database.xlsx")
Set pelanggan = Range("E7")
Set alamat = Range("E8")
Set diskon = Range("L25")
Set tanggal = Range("L7")
Set jdiskon = Range("P13")
Set jtempo = Range("K30")
getalamat = Application.WorksheetFunction.VLookup(pelanggan & Range("J7"), Workbooks("database.xlsx").Worksheets("DB").Range("A6:N1350"), 14, False)
getdiskon = Application.WorksheetFunction.VLookup(pelanggan & Range("J7"), Workbooks("database.xlsx").Worksheets("DB").Range("A6:N1350"), 6, False)
getjdiskon = Application.WorksheetFunction.VLookup(pelanggan & Range("J7"), Workbooks("database.xlsx").Worksheets("DB").Range("A6:N1350"), 11, False)
getjtempo = Application.WorksheetFunction.VLookup(pelanggan & Range("J7"), Workbooks("database.xlsx").Worksheets("DB").Range("A6:N1350"), 13, False)
alamat.Value = getalamat
diskon.Value = getdiskon / 100
jdiskon.Value = getjdiskon
tanggal.Value = DateValue(Now)
jtempo.Value = getjtempo
'here is the calculation that won't go loop
For i = 13 To 22
getharga = Application.WorksheetFunction.VLookup(Range("D" & i) & Range("E" & i), Workbooks("database.xlsx").Worksheets("Gold").Range("E4:H80"), 4, False)
If jdiskon = "Nett" Then
Range("M" & i).Value = getharga - (getharga * diskon)
Range("L25").ClearContents
ElseIf jdiskon = "Pot" Then
Range("M" & i).Value = getharga
Range("L25").Value = diskon
ElseIf jdiskon = "Diskon Kitir" Then
Range("M" & i).Value = getharga
Range("L25").ClearContents
End If
Next
End Sub

Answer 1

Your question: "... my code just works only in cell M13 and doesn't loop to cell M22. How do I solve this problem?"
Your loop is ok, so that is not the problem you have to solve.
You have to debug to find the causes of your loop not performing the actions you mean to.
I am posting below modified code, with two features: 1) it fully qualifies Ranges, so you avoid unexpected errors, you may want to check this; 2) it uses MsgBoxes, one way of debugging.
This will likely pinpoint the "error".
Private Sub CommandButton1_Click()
Dim pelanggan As Range, alamat As Range, diskon As Range, jdiskon As Range, tanggal As Range, jtempo As Range
Dim rout(1 To 10) As Variant, i As Long
Dim path As String
path = "\\Faizal\Data D Faizal\Daftar Harga\Price List"
Filename = Dir(path & "database.xlsx")
Dim wb as Workbook, ws1 as Worksheet, ws2 as Worksheet, rng1 as Range
Set wb = Workbooks("database.xlsx")
Set ws1 = wb.Worksheets("DB")
Set ws2 = wb.Worksheets("Gold")
Set rng1 = ws.Range("A6:N1350")
Set pelanggan = ws1.Range("E7")
Set alamat = ws1.Range("E8")
Set diskon = ws1.Range("L25")
Set tanggal = ws1.Range("L7")
Set jdiskon = ws1.Range("P13")
Set jtempo = ws1.Range("K30")
Dim rng2 as Range
Set rng2 = ws1.Range(pelanggan.Value & ws1.Range("J7").Value)
getalamat = Application.WorksheetFunction.VLookup(rng2, rng1, 14, False)
getdiskon = Application.WorksheetFunction.VLookup(rng2, rng1, 6, False)
getjdiskon = Application.WorksheetFunction.VLookup(rng2, rng1, 11, False)
getjtempo = Application.WorksheetFunction.VLookup(rng2, rng1, 13, False)
alamat.Value = getalamat
diskon.Value = getdiskon / 100
jdiskon.Value = getjdiskon
tanggal.Value = DateValue(Now)
jtempo.Value = getjtempo
'here is the calculation that won't go loop
For i = 13 To 22
Dim rng3 as Range
Set rng3 = ws1.Range(ws1.Range("D" & i).Value & ws1.Range("E" & i).Value)
getharga = Application.WorksheetFunction.VLookup(rng3, ws2.Range("E4:H80"), 4, False)
MsgBox "getharga = " & getharga & " for i = " & i
If jdiskon = "Nett" Then
ws1.Range("M" & i).Value = getharga - (getharga * diskon)
ws1.Range("L25").ClearContents
ElseIf jdiskon = "Pot" Then
ws1.Range("M" & i).Value = getharga
ws1.Range("L25").Value = diskon
ElseIf jdiskon = "Diskon Kitir" Then
ws1.Range("M" & i).Value = getharga
ws1.Range("L25").ClearContents
Else
MsgBox "jdiskon = " & jdiskon & " for i = " & i
End If
Next
End Sub
(PS: I do not currently have a system with Excel, so this code may need little adjustments).

Answer 2

sorry for late review, i change my "dim diskon as Range" into "dim diskon as Variant" n then my code works perfectly.
Thanks for your effort to help me.