Satır eklemek

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
601
Excel Vers. ve Dili
Office Professional Plus 2016
Sayın hocalarım. Örnek dosyada göstermeye çalıştım. Butona tıklayınca son 3 satırdan kopyalayıp hemen altına yapıştırıyor. Her fiyattan 3 tane var (bu örnek tabi) Boş olarak yapıştırdıktan sonra ben dolduracağım. Benim istediğim her tıkladığımda aynı şekilde listenin altına ama toplamın üzerine 3 boş satır atsın.
(altın üyeliğim henüz aktif olmadı, bu defalık bu şekilde yükledim)
Şimdiden teşekkür ederim.
Saygılarımla.

ÖRNEK DOSYA
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
601
Excel Vers. ve Dili
Office Professional Plus 2016
Arkadaşlar. Bu konuda yardımcı olursanız sevinirim. Toplam satırının üzerindeki 3 satırı kopyalayıp hemen toplam satırının üzerine yapıştıracak, tabi boş olarak. Örnek dosyadaki olayı her seferinde yapacak.
Şimdiden teşekkür ederim.
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,691
Excel Vers. ve Dili
2010-2016
Aşağıdaki kodu deneyin.
Kod:
Sub satirekle()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For a = 1 To 3
    Rows(son).Insert Shift:=xlDown
Next a
End Sub
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
601
Excel Vers. ve Dili
Office Professional Plus 2016
Aşağıdaki kodu deneyin.
Kod:
Sub satirekle()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For a = 1 To 3
    Rows(son).Insert Shift:=xlDown
Next a
End Sub
Hocam teşekkür ederim. Yarın ilk iş hemen deneyeceğim. Buradaki For a= 1 to 3 satırındaki 3, 3 satır oluyor değil mi.
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,691
Excel Vers. ve Dili
2010-2016
3 satır eklemek için.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
601
Excel Vers. ve Dili
Office Professional Plus 2016
3 satır eklemek için.
Hocam elinize emeğinize sağlık. Mükemmel olmuş. Yalnız şöyle olabilir mi. Belki ben eksik anlattım. O eklenen 3 satır hemen önceki 3 satırın kopyası olacak. Satır yüksekliği, rengi, hücredeki fonksiyonlar. Eksik bilgi verdiysem özür dilerim.
Saygılarımla.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
601
Excel Vers. ve Dili
Office Professional Plus 2016
Arkadaşlar @askm hocamın yazdığı kodu revize etmek konusunda yardımcı olabilir misiniz? Üstteki 3 satırı kopyalaması için ne yapmalıyım.
Şimdiden teşekkür ederim.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
34,182
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Deneyiniz.

C++:
Option Explicit

Sub Satir_Ekle()
    Dim Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    If Son + 3 > Rows.Count Or Cells(Rows.Count, 2) <> "" Then
        MsgBox "Sayfa doldu!", vbCritical
        Exit Sub
    End If
    
    Range("A" & Son - 3).Resize(3).EntireRow.Copy
    Range("A" & Son).EntireRow.Insert Shift:=xlDown
    Range("A" & Son).Resize(3, 2).ClearContents
    Application.CutCopyMode = False
    Range("B" & Son + 3).Formula = "=SUM(B1:B" & Son + 2 & ")"
End Sub
 
Üst