Sütunda sıralı değerleri başka bir sayfaya tarihi ile birlikte satır olarak atmak iç

[byenerji]

Sütunda sıralı değerleri başka bir sayfaya tarihi ile birlikte satır olarak atmak için nasıl bir makro yazılmalıdır yardım edermisiniz

teşekkürler

 

[byenerji]

yardım edecek yokmu

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, SATIR As Long
    
    Set S1 = Sheets("VERİ GİRİŞ")
    Set S2 = Sheets("DATA")
    
    SATIR = S2.Range("A65536").End(3).Row + 1
    
    S2.Cells(SATIR, "A") = Format(S1.Range("D2"), "dd.mm.yyyy")
        
    S1.Range("D3:D" & S1.Range("A65536").End(3).Row).Copy
    S2.Cells(SATIR, "C").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    S2.Cells(SATIR, "B") = WorksheetFunction.Sum(S2.Range("C" & SATIR & ":EA" & SATIR))
    S2.Select
    Range("A1").Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[byenerji]

teşekkür ederim yardımlarınız için