Belirli Sütunları kopyalamak

[ismail-34]

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.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

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

 

[ismail-34]

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.