else without if

[muratutku]

verilen sayının 5 ile bölümünden kalan sayıların sonuçlarına göre if else ile kod yazmak istiyorum.3 seçenek var .kalan 0 ise
kalan 1 ise
ve diğerleri.
2 if bir else ile aşağıdaki gibi yazınca else without if diyo.neden olabilir.???



Dim MyResult
MyResult = a Mod 5 'a nın 5e bölümünden kalan
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise
GoTo quantitygir
If MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If
End If

 

[red_lion_72]

selam,
bu şekilde denermisiniz?

Dim MyResult 
MyResult = a Mod 5 'a nın 5e bölümünden kalan 
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise 
GoTo quantitygir 
elseIf MyResult = 0 Then 
For n = 1 To 8 
Print #1, "[tab field]" 
Sheet1.Cells(j, 9) = "[tab field]" 
j = j + 1 
Else 
For m = 1 To (2 * MyResult) - 2 
Print #1, "[tab field]" 
Sheet1.Cells(j, 9) = "[tab field]" 
j = j + 1 
Next m 
End If

kolay gelsin.

 

[veyselemre]

Dim MyResult
MyResult = a Mod 5
If MyResult = 1 Then GoTo quantitygir

If MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Cells(j, 9) = "[tab field]"
j = j + 1
Next n
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If

 

[muratutku]

arkadaşlar bu yazdıklarınız olmadı kodun öncesi de var.bir if in içinde tüm bu öncekiler.aşağıya yazıyorum:


If a > 5 Then
b = a / 5
c = Application.WorksheetFunction.RoundUp(, 0) 'yukarı yuvarlama
For l = 1 To c - 1
Print #1, "[down]"
Sheet1.Cells(j, 9) = "[down]"
j = j + 1
Next l

Dim MyResult
MyResult = a Mod 5 'a nın 5e bölümünden kalan
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise
GoTo quantitygir
ElseIf MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If


yani if in içinde if var.çalıştırınca if without else diyor.içiçe if lerden mi kaynaklanıyor acaba??ne dersiniz??

 

[ALPEN]

If a > 5 Then
b = a / 5
c = Application.WorksheetFunction.RoundUp(, 0) 'yukarı yuvarlama
For l = 1 To c - 1
Print #1, "[down]"
Sheet1.Cells(j, 9) = "[down]"
j = j + 1
Next l
End If

Dim MyResult
MyResult = a Mod 5 'a nın 5e bölümünden kalan
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise
'GoTo quantitygir
ElseIf MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next n
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If

 

[muratutku]

çok saolasın hallettim...