Belirli satıra getirmek

[1903emre34@gmail.com]

Merhaba,

Ekrandaki gibi, TOPLAM YAZISIYLA beraber yandaki formülle kurgusuyla birlikte 60.000 satıra getirmek istiyorum, nasıl kod oluşturabiliriz

 

[netzone]

Merhaba,

Ekrandaki gibi, TOPLAM YAZISIYLA beraber yandaki formülle kurgusuyla birlikte 60.000 satıra getirmek istiyorum, nasıl kod oluşturabiliriz

Ekli dosyayı görüntüle 261366

Merhaba,

Bu tablonuzda görüldüğü üzere ilerleyen zamanlarda bu satır sayısı değişkenlik gösterebilecektir.
F sütununuzda son dolu olan satırı 60.000. satıra taşıyarak Tablonuzda yer alan toplam satırını öteleyebilirsiniz.

*Kodlar yapay zeka tarafından oluşturulmuş, tarafımca toplam satırını aktif ettiğim TABLO üzerinde denenmiştir.

İyi çalışmalar.

Sub SonSatiriAltmisBineOtele()
    Dim sonSatir As Long
    Dim hedefSatir As Long
    Dim eklenecekAdet As Long
    
    hedefSatir = 60000
    
    ' F sütunundaki (6. sütun) en son dolu satırı bulur
    sonSatir = Cells(Rows.Count, "F").End(xlUp).Row
    
    ' Eğer son satır zaten 60.000 veya daha aşağıdaysa işlem yapmaz
    If sonSatir >= hedefSatir Then
        MsgBox "F sütunundaki son satır (" & sonSatir & ") zaten hedef satıra ulaştı veya geçti.", vbExclamation
        Exit Sub
    End If
    
    eklenecekAdet = hedefSatir - sonSatir
    
    Application.ScreenUpdating = False
    
    ' Son dolu satırın hemen üstüne boş satırlar ekleyerek onu 60.000'e iter
    ' Bu işlem aradaki formül referanslarını (TOPLA gibi) otomatik genişletir
    Rows(sonSatir & ":" & sonSatir + eklenecekAdet - 1).Insert Shift:=xlDown
    
    Application.ScreenUpdating = True
    
    MsgBox "F sütunundaki son veri (" & sonSatir & ". satırdaki), " & hedefSatir & ". satıra ötelendi.", vbInformation
End Sub