iki sayı arasında ise yap

[mutluedenercan]

Hocalarım,

daha önce aldiğim bir programı ihtiyaca göre düzenliyorum..

bir satır var :

If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("D265536"), TextBox8.Text) > 0 Then
MsgBox " *** D İ K K A T ***." & vbLf & "Daha öncede uyarı almış.", vbCritical, " Ercan BALKAN"

buna göre listede daha önce ismi varsa uyarı veriyor

ben bunu > 1 yapıp ilave edince , listede 2 ve üzeri olunca uyarı veriyor..

yani iki ve üzeri uyarı bulursa ekrana iki mesaj verecek

yapmak istediğim:
(bir benzerlik bulunca bir uyarı veriyor o tamam ama iki ve üzeri bulunca iki uyarı birden veriyor, bu satırı 3 içinde yapsam 3 benzerlik bulunca 3 uyarıyıda yapacak)
halbuki kodu öyle bir değiştiremki, iki benzerlik bulunca ilgili uyarıyı versin,
mantıken çalışan 1 benzerlikteki uyarı çalışmasın.
3 benzerlik buluncada > 3 olarak girdiğim o satır sadece ilgili mesaji versin
( mevcut bu koda göre 3 benzerlik bulunca sırayla > 0, > 1, > 2 ,deki mesajların üçünüde veriyor...

kodu nasıl değiştirem...

 

[ÖmerBey]

Tersten gelin

if .... > 3 then
....
elseif ....... > 2 then
.......
elseif ........>1 then
......
end if

mantığıyla deneyebilirsiniz.