SONU 1 İLE BİTEN SAYI

[cadtera]

Merhaba

a sütünuna 1 den 2000 e kadar değer girdim, b sütununda sayıya karşılık gelen hücreye , eğer sayının son rakamı 1 ile bitiyorsa 1 , bitmiyorsa 0 değerini versin.

örnek
a b
1 1
2 0
5 0
11 1
241 1

 

[Kemal Demir]

Sn.Cadtera

Öncelikle Forumumuza Hoşgeldiniz.

Örnek dosya Ek'tedir.

[vb:1:0cbe3eef6e]Sub bul()
For x = 1 To 100
If Right(Cells(x, 1), 1) = 1 Then
Cells(x, 2).Value = 1
Else
Cells(x, 2).Value = 0
End If
If Cells(x, 1).Value = 0 Then
Cells(x, 2).Value = ""
End If
Next
End Sub[/vb:1:0cbe3eef6e]

 

[Merhum İdris SERDAR]

=IF((RIGHT(A1;1)*1=1);1;0)
=EĞER((SAĞDAN(A1;1)*1=1);1;0)

Bu formülü deneyin.

 

[Kemal Demir]

Sn.cadtera,

Evet haklısınız.Sorunuz'u8n Bulundugu yer Makrolar Değildi.
Ben size daha mantıklı bir cavp verebilirdim.Yeni Farkettim.

Kusura bakmayınız.