Kodlarda revize

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki kodlarda yer alan "Then" kelimesinden önceki (siyah punto) hesap kodları ilave ettiğim zaman aşağıdaki hatayı alıyorum,




If hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 1000 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Then

sayozel = sayozel + 1
Else
saynormal = saynormal + 1
End If
son:
eskiyevmiye = yevmiye

Next i
UserForm1.Show
Application.Calculation = xlCalculationManual: Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic: Application.ScreenUpdating = True
End Sub

 

[Muzaffer Ali]

If hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 1000 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Or hesap = 100 Then


Bunu tekrar tekrar yazmanıza gerek yok ki
Aşağıdaki gibi bir kere yazsanız aynı işi görüyor.

If hesap = 100 Or hesap = 1000 Then

 

[1903emre34@gmail.com]

İlginiz için teşekkürler, özel hesap kodları yer alıyor, onun yerine "100" hesapları yerleştirdim.

 

[Muzaffer Ali]

Bir satırda belli bir miktardan sonrasını kabul etmiyor.
Aşağıdaki gibi satır sonlarına alt satırdan devam et (_) işareti ile
yapabilirsiniz.

I

f hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 1000 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or _
hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Or hesapp = 100 Then