Bul değiştir

[yakup70]

Ekteki dosyada seçili yerlerin başına makro ile = Koyup formül haline getirmem gerekiyor.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz. İlgili hücreleri seçip kodu çalıştırın.

Option Explicit
 
Sub FORMÜLE_ÇEVİR()
    Dim Hücre As Range
    
    Application.DisplayAlerts = False
    
    For Each Hücre In Selection
        If Hücre.Value <> "" Then
            Hücre.FormulaLocal = "=" & Hücre.Text
        End If
    Next
    
    Application.DisplayAlerts = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yakup70]

Teşekkür ederim.Çok güzel oldu.