Makroda eğer bir sayının katlarıysa nasıl denir???

[cozmic_power]

Arkadaşlar bir makro yazıyorum ve bi yerde tıkandım şöyleki

c = Range("A1").Value
e = Range("B1").Value
If say = c * e + 1 Or say = 2 * c * e + 1 Or say = 3 * c * e + 1 Or say = 4 .......................Then

bunun kısa yolu yokmu veya bir sayının katları.mesala eğer 3 ün katlarıysa nasıl yazılır???

 

[Haluk]

Sub Test()
    Dim x As Long
    x = 270
    If x Mod 3 = 0 Then
        MsgBox x & " sayisi 3'un katidir ..."
    Else
        MsgBox x & " sayisi 3' un kati degildir..."
    End If
End Sub

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Not: a1=4, b1=2 giriniz.

Sub Button1_Click()
c = Range("A1").Value
e = Range("B1").Value
say = 17
For i = 1 To 27
    If say = i * c * e + 1 Then
        MsgBox "Doğru"
    End If
Next i
End Sub

 

[cozmic_power]

Çok teşekkür ederim.