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.
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.