Satır eklemek

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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,745
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
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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,745
Excel Vers. ve Dili
2010-2016
3 satır eklemek için.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 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
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 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
Hocam, öncelikle emeğinize sağlık. Geç cevap verdim özür dilerim. Yıllık iznimin bir kısmını kullandım :)
Hocam, örnek dosya ekledim. Kodu yazınca hata alıyorum.
Şöyle ki, 1,2,3 satırları aynen (satır yüksekliği, hücre rengi, içindeki formül. Aynen 4,5,6'ya kopyalaması ve 7. satırda toplamın durması isteğim. Tabi mümkünse. Aslında orada çok sütun var. Ben sadece her seferinde son sütunu değiştireceğim. Bazen orta satırlara.
Burada amaçladığım, sürekli ekleme yapılıyor. Ama toplamlar sürekli görünmeli.
Saygılarımla.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Paylaştığınız dosyada kodu çalıştırdım. Bende hata vermiyor.

Sadece ilgili satır aralığında buton olduğu için onuda kopyalıyor. Onu da butonun özelliklerine girip aşağıdaki resimdeki ayarı yaparak çözebilirsiniz.

234246
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Üst