• DİKKAT

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

Excelde bütün formüllerin arasına tek seferde "$" ekleme

Katılım
4 Eylül 2015
Mesajlar
37
Excel Vers. ve Dili
Microsoft Excel 2013 + Türkçe
Arkadaşlar excelde 1200 e yakın hücrede "eşittir" fonksiyonu kullanıyorum ve bu hücreleri tablo yaptığımda, tabloyu büyükten küçüğe sıralayıp değerleri doğru görebilmem için hücrelerin arasına "$" sembolünü koymam lazım ancak
1200 tane hücre olunca hepsiyle tek tek uğraşılması imkansız gibi olur. Bunu hızlı yoldan yapabilir miyim ?

Veya excelde Hücreleri kopyalayarak, "Özel Yapıştır" dan, "Bağ yapıştır" diyerek yapıştırmıştım formülleri, bunların arasına "$" sembolünü koyabilir miyim ?

Bilenler yardımcı olursa gerçekten çok sevinirim. Yoksa bunlarla uğraşmak zaman kaybı olur.
 
herhangi bir siteye örnek dosya yükleyip link verin, bu şekilde ne istediğiniz açıkçası pek anlaşılmıyor
 
hücrelerde şunlar yazıyo mesela ;

"=C155" , "=C156", "=C157", bunlardan 1200 tane var ve bunların arasına "$" sembolünü koymak istiyorum.

ÖR/ "=$C$155", "=$C$156", "=$C$157", ...

bunları hızlı yoldan yapmamın bir yolu varmı ?

Yoksa 1200 tane hücreyle ayrı ayrı uğraşmam mı gerekiyor ?
 
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
 
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

bunu tam olarak ne yapıcam ?
 
Tamamdır. Visual Basic'e ekleyip çalıştır yaptım oldu. Teşekkürler :))
 
Geri
Üst