Kodlarda ilave yapılması hk.

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki kodda or hesap=858 or hesap=25 (siyah punto) hesap larıilave ettiğim zaman aşağıdaki hatayı almaktayım, hangi ilave ek ilave yapmam gerekir, yardımlarınız rica ederim.

Sub Düğme2_Tıklat()

sonsatir = Cells(Rows.Count, "A").End(3).Row
buldu = False
For i = sonsatir To 1 Step -1
hesap = Cells(i, "C").Value
yevmiye = Cells(i, "B").Value
If i = sonsatir Then
eskiyevmiye = yevmiye
sayozel = 0
saynormal = 0
altsatir = i
End If

If yevmiye <> eskiyevmiye Then
If saynormal = 0 Then
For j = altsatir To i + 1 Step -1
Rows(j).Delete
Next j
altsatir = i
Else
altsatir = i
End If
i = i + 1
sayozel = 0
saynormal = 0
GoTo son
End If

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 = 100 Or hesap = 100 Or hesap = 100 Or hesap or hesap=858 or hesap=25
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
MsgBox "...", vbInformation, "..:: ."
End Sub

 

[turist]

Sayın @1903emre34@gmail.com

or hesap=858 or hesap=25 Then
şeklinde olması gerekir.
Eğer "then" alt satırda yazılı ise, yukarıdaki gibi yapın.
Uzunca bir koşul satırı olduğu için aralarda alt satıra geçmek için

Örnek:

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 = 100 _
Or hesap = 100 Or hesap = 100 Or hesap Or hesap = 858 Or hesap = 25 Then

şeklinde de yazabilirsiniz.

Not:
hesap=100 olanları gerçek hesap No. ile değiştiriniz.

 

[1903emre34@gmail.com]

Or hesap=858 or hesap=258 yazmak istiyorum, koşul sığmayınca Then alt satıra geçince hata veriyor.

 

[turist]

Sayın @1903emre34@gmail.com
1-Eklediğiniz dosyada tekrarla Or hesap=100
yazlımış, bu gerçekse; uzun uzun aynı koşulu yazmak gereksiz.(Örnek olarak yazıldığını sanıyorum)
Or hesap=100 koşulunu 1 kere yazmanız yeterlidir.
Hata mesajınızdaki resimdeki gibi hesap kodlarının farklı olması gerekir.

2- Then komutunu alt satırda KULLANAMAZSINIZ. (Hata verir)

3- # 2 no.lu mesajda belirttiğim şekilde yaparsanız bir sorun olmayacaktır.

Dosyanız eklidir.

 

[1903emre34@gmail.com]

Teşekkürler, çalışıyor.

 

[turist]

Sağolun.