Dolu satırın altına boş satır eklemek

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın Sayfa1'de bir tablom var, bu tabloda A sütunun en sonundaki boş hücreye veri girdiğimde TOPLAM satırı hep bir boş satır oluşturarak aşağı kaymasını istiyorum, A sütunundan en sondaki dolu satırdan veri sildiğimde TOPLAM satırı yukarı çıksın istiyorum.

Yardımcı olur musunuz?

 

[turist]

Dosyanız eklidir.

 

[ASLAN7410]

Sayın turist, süpersiniz valla, Allah razı olsun, tam istediğim gibi oldu.

Hayırlı geceler diliyorum.

 

[turist]

Sayın turist, süpersiniz valla, Allah razı olsun, tam istediğim gibi oldu.

Hayırlı geceler diliyorum.

Sağ olun.

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam ve ben de alternatif bir cevap vereyim dedim.
Varsa mevcut Worksheet_Change ve Worksheet_SelectionChange kod blokunlarını silip aşağıdakini yapıştırarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
sonsat = Cells(Rows.Count, 1).End(3).Row
If Cells(sonsat - 1, 1) <> "" Then
    Range("A" & sonsat & ":M" & sonsat).Insert Shift:=xlDown
ElseIf Cells(sonsat - 2, 1) = "" Then
    Range("A" & sonsat - 2 & ":M" & sonsat - 2).Delete Shift:=xlUp
End If
End Sub

 

[ASLAN7410]

Sayın Ömer Bey, size de çok teşekkür ediyorum, ellerinize sağlık, sizden de Allah razı olsun. Sizin kod daha kısa olmuş, kod tam istediğim sonucu veriyor.

Hayırlı geceler diliyorum.

 

[ASLAN7410]

Sayın Ömer Bey, satırların en sondaki TOPLAM ın üzerindeki boş satıra bilgi girdikçe, TOPLAM satırı aşağıya kayıyor, ancak bu sefer formüller sabit kalıyor.

Örneğin =TOPLA(C$2:C$17) bu formül satır eklendikçe 17 rakamı artmıyor. =Formülü TOPLA(C2:C17) bu şeklede çevirdim değişmiyor.

 

[memoli79]

Merhaba.
Yanlış anlamadıysam ve ben de alternatif bir cevap vereyim dedim.
Varsa mevcut Worksheet_Change ve Worksheet_SelectionChange kod blokunlarını silip aşağıdakini yapıştırarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
sonsat = Cells(Rows.Count, 1).End(3).Row
If Cells(sonsat - 1, 1) <> "" Then
    Range("A" & sonsat & ":M" & sonsat).Insert Shift:=xlDown
ElseIf Cells(sonsat - 2, 1) = "" Then
    Range("A" & sonsat - 2 & ":M" & sonsat - 2).Delete Shift:=xlUp
End If
End Sub

Ömer Bey iyi geceler. Bu kodu bende kullandım ancak bazı sütunlarım formüllü. Acaba formülleri bozmadan nasıl uygulayabiliriz.

 

[ASLAN7410]

Sayın Ömer Bey, hayırlı akşamlar diliyorum.

Göndermiş olduğunuz kod gayet kısa bir kod, güzelde çalışıyor, ellerinize sağlık,
bu kodu sayfaya uyguladığımda TOPLAM satırındaki formüller eklenen satırı görmüyor, bunun için ne yapmam gerekir?

Yardımcı olur musunuz?

 

[Ömer BARAN]

Tekrar merhaba.

Verdiğim kod'daki ElseIf..... satırının hemen üstüne aşağıdaki satırı ekleyin.

    Range("C" & sonsat + 1 & ":M" & sonsat + 1).Formula = "=SUM(C$2:C$" & sonsat - 1 & ")"

 

[ASLAN7410]

Sayın Ömer Bey, valla şimdi oldu, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı geceler dilerim.

 

[Ömer BARAN]

Kolay gelsin.