Soru gönder sonrası data sayfasına yedekleme

[incsoft]

Arkadaşlar "yazma" sayfasında c3,c4,c5,c6,c7,c8,c9,I7 alanlarını yazma kısmında G alanında posta simgesine bazında otomatik olarak outlook olarak belirtilen kişilere mail atıyor ancak birde yazılanları Data sayfasında arşivletmek istiyorum. Her göndere bastığımda verileri Data kısmında bir sonraki satıra otomatik olarak aktaracak. Bunun için nasıl bir eklenti yapmam gereklidir?

 

[Ömer]

Merhaba,

Mail kodlarınızın olduğu module aşağıdaki kodları kopyalayın. Daha sonra mail kodlarınızda End Sub satırından önce;
Call data
satırını ilave ederek deneyiniz.

Sub data()

    Dim S1 As Worksheet, S2 As Worksheet, son As Long
    
    Set S1 = Sheets("Data")
    Set S2 = Sheets("yazma")
    
    son = S1.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
    S1.Cells(son, "B") = S2.Range("C3")
    S1.Cells(son, "C") = S2.Range("C4")
    S1.Cells(son, "D") = S2.Range("C5")
    S1.Cells(son, "E") = S2.Range("C6")
    S1.Cells(son, "F") = S2.Range("C7")
    S1.Cells(son, "G") = S2.Range("C8")
    S1.Cells(son, "H") = S2.Range("D8")
    
End Sub