seçili hücrelere $ işareti ekleme

[hasan.doru]

Merhaba Arkadaşlar
toplam sütunundaki (M) formülüm =Topla(a3:l3)
Ancak ben m sutunundaki tüm hücrelere
a3 için =topla($a$3:$l3)
a4 için =topla($a$4:$l4)
a5 için =topla($a$5:$l5) v.s. yapmak istiyorum.
M sütunu ilgili hücreleri seçip ilk hücreye $ ekleyip control +enter yapınca tüm hücrelerde sadece ilk satırdaki, hücrede yapılan değişikliği tümüne uyguluyor
makro veya formül ile bu değişikliği yapabilirmiyiz.
Şimdiden yardımlarınız için çok teşekkür ediyor Saygılar sunuyorum

 

[hasan.doru]

seçili hücrelere $ ekleme

özür dilerim dosyayı eklemeyi unutmuşum

 

[Korhan Ayhan]

Selamlar,

M3 hücresindeki formülü aşağıdaki şekilde uygulayıp diğer hücrelere sürüklerseniz işinize yaramaz mı?

=TOPLA($A3:$I3)

 

[hasan.doru]

Merhaba Korhan bey
ilginize çok teşekkür ederek,
Mal Müdürlüğünde bu veriyi aktaracak arkadaşım sadece =topla($a$3:$l$3) olacak diyor.yoksa veri aktarılamıyormuş

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub FORMÜL_DÜZENLE()
    Dim X As Long
    
    For X = 3 To Range("M65536").End(3).Row
        If Cells(X, "M").HasFormula Then
            Cells(X, "M").Formula = "=SUM($A$" & X & ":$L$" & X & ")"
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[suatbayhan]

Merhaba sayın hasan.doru,
Belki biraz komik olacak ama
=TOPLA(DOLAYLI("$"&"A"&"$"&SATIR(A3))OLAYLI("$"&"L"&"$"&SATIR(A3)))
formülü aynı mantığa ulaştığı için acaba doğru sonuç elde edilebilir mi diye düşünüyorum.
Denemenin zararı yoktur herhalde.
Selamlar...

 

[hasan.doru]

Merhaba Korhan Bey
Vallahi Harikasınız.Çok Teşekkür ediyorum ve saygılar sunuyorum.İyiki varsınız.(Sorunum Çözüldü)

 

[suatbayhan]

Sayın Korhan Ayhan,
Hocam özür dilerim mesajınızı görmemiştim.
Saygılarımla...

 

[hasan.doru]

Merhaba Suat Bey
Komik olacak birşey yok ilginize ve bilginize sağlık sorunum çözüldü.Saygılar.