Formüllü hücreleri onaylı metin ya da değer yapma

[sirkülasyon]

Abilerim
I sütunu ile J sütununu için G sutununa "dört işlem" uyguluyorum.
Örnek
I5*J5= G5
I5+J5= G5 gibi.

G sütununda enter yaptığım zaman bana metine çevireyim mi diye sorsun evet denilirse formüllü hücremi metin değerine çevirsin.
Yardım edebilir misiniz?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim sor As String
 
    If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
    
    If Selection.Count > 1 Then Exit Sub
 
    sor = MsgBox("Metne Çevireyim mi?", vbYesNo)
    If sor = vbYes Then
        Application.EnableEvents = False
            Target = Target
        Application.EnableEvents = True
    End If
    
End Sub

.

 

[sirkülasyon]

Ömer abi sağolasın.
Yardımcı olduğun için teşekkür ederim. "çözüldü"