• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru gönder sonrası data sayfasına yedekleme

  • Konbuyu başlatan Konbuyu başlatan incsoft
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Ağustos 2009
Mesajlar
752
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
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?
 

Ekli dosyalar

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.

Kod:
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
 
Geri
Üst