Girilen verileri kaydetmek

[argo619]

Üstadlarım ekli dosyamda sayfa7 de belirli hücrelere girdiğim verileri sayfa8 in ilgili yerlerine atıp kaydetmesi gerekir
sayfa7 de her veri girişte sayfa8 in ilgili yerlerine aşağıya doğru kaydetmesi
bu mümkün mü acaba
Bir başka ifade ile: Bir itfaiyeci olarak günlük yaşanan olayları bir rapor halinde çıkarıyoruz(Sayfa7) ayrıca bu günlükleri aylık da çıkarmamız isteniyor
yani sayfa 7 günlük rapordur. sayfa8 ise sayfa 7 de bir ay boyunca girilen bilgileri toplama yeri olacak
yani aylık rapor almak için
saygılarımla;

 

[leumruk]

Merhaba,

Sub Aktar()
Set s8 = Sheets("Sayfa8")
Set s7 = Sheets("Sayfa7")
Sat = s8.[b65536].End(3).Row + 1
s8.Cells(Sat, "a") = Sat - 1
s8.Cells(Sat, "b") = s7.[f15]
s8.Cells(Sat, "c") = s7.[g22]
s8.Cells(Sat, "d") = s7.[f40]
s8.Cells(Sat, "e") = s7.[f45]
s8.Cells(Sat, "f") = s7.[f50]
MsgBox "İşlem tamam.", vbInformation, "DURUM"
End Sub

 

[argo619]

Üstadım sizlere nasıl teşekkür edebilirim ki
Çok sağolun efendim
eksik olmayın
bilginiz daim ve bereketli olsun
çok çok teşekkürler
harikasınız

 

[leumruk]

Üstadım sizlere nasıl teşekkür edebilirim ki
Çok sağolun efendim
eksik olmayın
bilginiz daim ve bereketli olsun
çok çok teşekkürler
harikasınız

Rica ederim. İyi çalışmalar... k::