otomatik liste oluşturma

[umitumit]

farklı sayfalardan değerleri tek bir sayfada liste haline getirmek istiyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub GÖNDER()
    Set ST = Sheets("TABLO")
    Son_Satır = ST.[B65536].End(3).Row + 1
    ST.Cells(Son_Satır, 2) = ActiveSheet.[B4]
    ST.Cells(Son_Satır, 3) = ActiveSheet.[C8]
    Set ST = Nothing
    MsgBox "VERİ GÖNDERİLMİŞTİR.", vbInformation
End Sub

 

[umitumit]

TeŞekkÜr

TeŞekkÜr Ederrrİİİİİmmmmm....

Şu Macro Olayina Bİraz Daha ÇaliŞmam Gerekİyor.