Bu formülün makro karşılığı nedir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
=EĞER(TEKMİ(A2)=DOĞRU;1;0)
Bu formülün makro karşılığı nedir?
Ama bunu istemiyorum ( ActiveCell.FormulaR1C1 = "=IF(ISODD(RC[-9])=TRUE,1,0)" )
Saygılarımla

 

[uzmanamele]

Merhaba

Bu işinizi görür mü?

Sub tekmi()
For i = 1 To Range("A1048576").End(3).Row
If Range("A" & i) <> Int(Range("A" & i) / 2) * 2 Then
Range("D" & i) = "Tek Sayi"
End If
Next
End Sub

 

[alicimri]

Altenatifler

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Offset(0, -1) Mod 2 = 1 And Target.Value <> "" Then
Target.Value = 1
Else
Target.Value = 0
End If
End If
End Sub

Sub a()
If ActiveCell.Offset(0, -1) Mod 2 = 1 Then
ActiveCell.Value = 1
Else
ActiveCell.Value = 0
End If
End Sub

 

[Tevfik_Kursun]

Sayın Arkadaşlarım,
İlgilerinize çok teşekkür ederim.
Saygılarımla