- Katılım
- 25 Aralık 2016
- Mesajlar
- 7
- Excel Vers. ve Dili
- 2021 vba
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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