Son Dolu Hücreye kadar formülü sürüklemek

[mesutaygun70]

Sayfamda M5230 hücresine kadar formüllerim var her gün 200 civarında veri girişi yapıyorum. M sutununda her gün kayıt ettiğim verileri işlemek için M5230 hücresinden aşağı çekiyorum. (Bu işlemi M10000'e kadar yapabilirim fakat excelli yavaşlattığı için yapmak istemiyorum)
Benim istediğim butona bağlayarak makro ile M5230 dan B sutunundaki son dolu hücreye kadar formülü aşağıya doğru sürüklemek. (Makro kaydet ile formülü sürükleyebiliyorum. Son dolu hücreyide buluyorum ama formülleri birleştiremiyorum yardımcı olabilirmisiniz.

 

[Mahir64]

Merhaba,

Veri girişi yaptıktan sonra, formülü çoğaltmak için formül olan hücrenin köşesindeki kutucuğa geldiğinizde fare imleci + olduğunda çift tıklayın.

 

[mesutaygun70]

Merhaba,

Veri girişi yaptıktan sonra, formülü çoğaltmak için formül olan hücrenin köşesindeki kutucuğa geldiğinizde fare imleci + olduğunda çift tıklayın.

Excelin yavaşlamasını engellemek için bu işlemin B sütununda son dolu hücrede bitmesi lazım.

 

[Korhan Ayhan]

Formülünüz nedir?
Formülünüz hangi satırdan başlıyor?

 

[mesutaygun70]

Formülünüz nedir?
Formülünüz hangi satırdan başlıyor?

B2den başlıyor.

Formül;
METNEÇEVİR(TOPLA(B5230-1);"gg.aa.yyyy")

 

[Korhan Ayhan]

Bu formülü siz hangi hücreye uyguluyorsunuz?

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

M sütununda hiç formül bırakmayacaktır. Saf değer olarak sonucu size verecektir. Böylece dosyanıza performans katacaktır. Bu sebeple verilerinizi yedekleyerek deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Son As Long
    
    On Error GoTo 10
    
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    
    Range("M2:M" & Rows.Count).ClearContents
    
    Son = Cells(Rows.Count, 2).End(3).Row
    If Son < 2 Then Exit Sub
    
    Application.EnableEvents = False
    
    With Range("M2:M" & Son)
        .Formula = "=IF(B2="""","""",B2-1)"
        .Value = .Value
        .NumberFormat = "dd.mm.yyyy"
    End With
    
10  Application.EnableEvents = True
End Sub

 

[mesutaygun70]

Bu formülü siz hangi hücreye uyguluyorsunuz?

Ekran görüntüsü olarak dosyatc ye yükledim. Kontrol edebilirsiniz.

https://s5.dosya.tc/server2/qz2wf8/2.JPG.html

 

[Korhan Ayhan]

İlk mesajınızda "M" sütunu olarak örnek vermiştiniz. Ben kodu ona göre hazırladım. (#7 nolu mesajım)