eğer formülünün makrosu

[kokotuna]

arkadaşlar excelden accsess e geçiş yapıyorum ancak accsess teki tabloda hem sayı hem metin kullanmaya izin vermiyor onun için kullandığım formülü makroya çevirmem gerekiyor?

acaba aşağadaki formülün makrosunu yazabilir misiniz?

=EĞER(EHATALIYSA(EĞER(C2="";"";D2+E2));"R";EĞER(C2="";"";D2+E2))

şimdiden çok teşekkür ederim...

 

[asi_kral]

arkadaşlar excelden accsess e geçiş yapıyorum ancak accsess teki tabloda hem sayı hem metin kullanmaya izin vermiyor onun için kullandığım formülü makroya çevirmem gerekiyor?

acaba aşağadaki formülün makrosunu yazabilir misiniz?

=EĞER(EHATALIYSA(EĞER(C2="";"";D2+E2));"R";EĞER(C2="";"";D2+E2))

şimdiden çok teşekkür ederim...

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub formül_çevir_1967()
'Konu       :   Formülü Makroya Çevir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 2 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(asi, "C") <> Empty Then
If WorksheetFunction.IsText(Cells(asi, "D")) = True Or _
WorksheetFunction.IsText(Cells(asi, "E")) = True Then
Cells(asi, "F") = "R"
Else
Cells(asi, "F") = Cells(asi, "D") + Cells(asi, "E")
End If: End If: Next
End Sub

Dosyanız Ekte