Belirli Sütunları kopyalamak

Katılım
9 Ekim 2021
Mesajlar
337
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Excel Web Ailesine Selamlar.

Benim sorum belirli sütunları başka bir sayfaya tek tuşla kopyalayıp toplama yapması ile ilgili.

Çekilist sayfasındaki b c d sütunlarını invoice sayfasına 5. satırdan başlamak üzere a b c sütunlarına kopyalamalı ve b sütunundaki verilerin sonunun 3 satır altında toplamını almalı.örnekte sarı olan bölgeler mavi butona tıklanınca aktarılmış verilerdir.

böylece çekilistten invoice sayfasına kolaylıkla bir geçiş yapabilirim.

Örnek ektedir.

Herkese Sevgiler, Saygılar.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Aşağıdaki kodları deneyiniz.

Kod:
Sub AktarToplamAl()

    Dim SonSat  As Long
    
    Application.ScreenUpdating = False
    
    Sayfa2.Select
    
    SonSat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("A5:C" & SonSat).ClearContents
    Range("E6:E" & SonSat).ClearContents
    
    SonSat = Sayfa1.Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    Sayfa1.Range("B1:D" & SonSat).Copy Range("A5")
    
    SonSat = Cells(Rows.Count, "A").End(3).Row + 3
    Range("B" & SonSat).Formula = "=SUM(B5:B" & SonSat - 3 & ")"
    
    Range("E5:E" & SonSat - 3).FillDown
    
    Range("E" & SonSat).Formula = "=SUM(E5:E" & SonSat - 3 & ")"
    
    Application.ScreenUpdating = True
    
End Sub
 
Katılım
9 Ekim 2021
Mesajlar
337
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Necdet Hocam Siz yaparsınızda denemeye lüzum olurmu :) ama yinede denedim saat gibi çalışıyor. Total sütununu bile (E) ona göre uyumlu hale getirmişsiniz.Çok işime yaradı

Sağolun Varolun, İyiki varsınız.
 
Son düzenleme:
Üst