Aktar

[mcetinkaya65]

Formlarınız sayesinde amotörce bir proğram hazırlamaya çalışıyorum.
Ana sayfanını A stununa yazılan isme çift tıklarsak örnek sayfadan sayfa ekliyor.
Eklenen sayfayı haftalık dolduruyoruz
Her hafta sonu bunları toplu sayfa adı altındaki sayfaya aktarıyoruz.
Aşağıdaki makroyla aktar dediğimizde seçili alanı toplu sayfasına aktarıyor.
İstediğim tabiki mümkünse:
1.Örnek sayfasına eklenen bu modülü çift tıklamayla eklenen sayfalarada eklenmesi
2.Seçili alanı değilde A3-I171 aralığını aktarması
3.Hangi sayfadan aktarırsak aktaralım toplu sayfaya kaldığı yerden devam ederek aktarması
4.E stunundaki tarihteki veri aktarıldı ise ikinci aktar dediğimizde bu tarihlerdeki verileri güncellemesi (yeniden aldığı yerden değilde eski verileri güncellemesi)
Örnek dosya
http://www.dosya.tc/server4/h5dn6e/Camilerden_Yardim_-_Kopya.rar.html

Sub Dikdörtgen1_Tıklat()

Selection.Copy
Sheets("Toplu").Select
If Range("A2") = "" Then
Range("A2").Select
ActiveSheet.Paste
Sheets("Örnek").Select
Application.CutCopyMode = False
Else
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Örnek").Select
Application.CutCopyMode = False
End If
End Sub

 

[mcetinkaya65]

Yine Excel mantığına uymayan bir soru sordum herhalde.

 

[mcetinkaya65]

Sonuca ulaştık İlgilenenlere teşekkür ederim.