Eğer ve formülünü makro olarak yazmak

[byfika]

Merhabalar,
Userformdan A sütunu A2 den itibaren W sütununa kadar alt alta veri girmekteyim. X sütununa formül ile yaptığım işlemi makroya uygulayıp kaydet butonuna
ilave etmek istiyorum.

X2 den aşağıya doğru formül alttaki şekilde.

EĞER(VE(A2<>"";C2<>"");"Ü";EĞER(VE(A2<>"";C2="");"M";EĞER(VE(A2="";C2="");"";" ")))

İşlem:
A sütunu ve C sütunu na veri girilince X sütununa Ü yazacak,
A sütununa veri girilip ve C sütunu boş olunca X sütununa M yazacak
A sütunu ve C sütunu Boş olunca veri girilmediğinde X sütunu boş kalacak.

Yukarıdaki formülü makro olarak nasıl yazabiliriz?
Bilgi için teşekkürler...

 

[byfika]

Merhabalar,

For i = 2 To 100000
If Sayfa1.Cells(i, 1) <> "" And Sayfa1.Cells(i, 3) <> "" Then
Sayfa1.Cells(i, 24) = "Ü"
Else
If Sayfa1.Cells(i, 1) <> "" And Sayfa1.Cells(i, 3) = "" Then
Sayfa1.Cells(i, 24) = "M"
End If
End If
Next

bu şekilde kod yazarak problemi çözdüm...

 

[çıtır]

Bende aşağıdaki kodu yazmışdım.Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, [A2:A400,C2:C400]) Is Nothing Then Exit Sub
If Range("A" & Target.Row) <> "" And (Range("C" & Target.Row)) <> "" Then
Range("X" & Target.Row) = "Ü"
ElseIf Range("A" & Target.Row) <> "" And (Range("C" & Target.Row)) = "" Then
Range("X" & Target.Row) = "M"
Else
Range("X" & Target.Row) = ""
End If
End Sub

 

[byfika]

Merhabalar, Sayın Çıtır,
Kodlar için çok teşekkürler. Sizin kodlarıda kullanabilirim. Bilginize elinize sağlık...
Saygılarımla...

 

[çıtır]

Merhabalar, Sayın Çıtır,
Kodlar için çok teşekkürler. Sizin kodlarıda kullanabilirim. Bilginize elinize sağlık...
Saygılarımla...

Rica ederim.Dönüş yaptığınız içim teşekkür ederim.