• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Mevcut formullere $ işareti koyarak bütün sütunlardaki formülleri sabitlemek

Formül üzerinde istediğiniz hücrenin üzerine gelin ve F4 tuşuna basın.
 
manuel olarak yaptım başka bir yol bulursam yazarım
 
Son düzenleme:
Bu kodu kullan, modüle yapıştırıp çalıştırın
Kod:
Sub formulaAbsoluteChange()
    For Each huc In ActiveSheet.UsedRange
        If huc.HasFormula Then
            huc.Formula = Application.ConvertFormula( _
                          Formula:=huc.Formula, _
                          fromReferenceStyle:=xlA1, _
                          toReferenceStyle:=xlA1, _
                          toAbsolute:=xlAbsolute) 'toAbsolute:=xlRelative)
        End If
    Next
End Sub
 
Bu kodu kullan, modüle yapıştırıp çalıştırın
Kod:
Sub formulaAbsoluteChange()
    For Each huc In ActiveSheet.UsedRange
        If huc.HasFormula Then
            huc.Formula = Application.ConvertFormula( _
                          Formula:=huc.Formula, _
                          fromReferenceStyle:=xlA1, _
                          toReferenceStyle:=xlA1, _
                          toAbsolute:=xlAbsolute) 'toAbsolute:=xlRelative)
        End If
    Next
End Sub

Sn. Tahsin Bey,

İhtiyaç duyduğum anda çözüm bulabilmek çok güzel:)

Çok teşekkürler
 
Geri
Üst