Soru Msgbox'ta yazanı hücreye yazdırma

[okan32]

Arakadaşlar kolay gelsin aşağıdaki kod ile hücredeki formülü msgboxta koda çeviriyor. İstediğim Msgbox'taki bu kodu belli bir hücreye yazdırabilirmiyiz. Yardımcı olursanız sevinirim.

Sub Formul_makrocevır()
On Error GoTo hata
MsgBox Application.ConvertFormula( _
    Formula:=ActiveCell.Formula, _
    fromReferenceStyle:=xlR1C1, _
    toReferenceStyle:=xlA1), vbInformation, "Normal Başvuru"
MsgBox Application.ConvertFormula( _
    Formula:=ActiveCell.Formula, _
    fromReferenceStyle:=xlA1, _
    toReferenceStyle:=xlR1C1), vbInformation, "Makro Stili"
Exit Sub
hata:
MsgBox ("Formül yok !!!"), vbCritical, "Başvurulan hücrede"
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi işinize yararmı?

Sub Formul_makrocevır()
On Error GoTo hata
Dim m1 As String, m2 As String
m1 = Application.ConvertFormula( _
    Formula:=ActiveCell.Formula, _
    fromReferenceStyle:=xlR1C1, _
    toReferenceStyle:=xlA1)
    
m2 = Application.ConvertFormula( _
    Formula:=ActiveCell.Formula, _
    fromReferenceStyle:=xlA1, _
    toReferenceStyle:=xlR1C1)
[A1] = Right(m1, Len(m1) - 1)
[A2] = Right(m2, Len(m2) - 1)
Exit Sub
hata:
MsgBox ("Formül yok !!!"), vbCritical, "Başvurulan hücrede"
End Sub

 

[okan32]

Teşekkürler Sayın Plint