Arşivleme nasıl olacak

[07 Osman]

Merhaba,
sayfa1 de A,B,C,D sütunlarının 1 satırlarından 100 satırlarına kadar olan bölgede yani A1100 aralığında verilerim var.Yine sayfa 1 e koyacağım bir commandbuton ile bu verilerimi sayfa2 de yine A1100 aralığına göndermek istiyorum.

İkinci sefer:
sayfa 1 deki verilerimi (A1100) değiştirip bu sefer ikinci bir commandbuton ile bu sefer sayfa 2 de K1:N100 aralığına göndermek istiyorum.Yani bu aylık veri değişimi olacak.sayfa 1 de ayların ismini taşıyan 12 adet commandbuton olacak ve sayfa 1 deki A1100 deki veriler her ay değişip ilgili ayın isnmini taşıyan butuna basılınca sayfa 2 deki o ayın aralığına gönderilecek.Bunu nasıl bir makro ile yapabilirim.Commandbutonun bir tanesi için gerekli kodları öğrenebilirsem aşağı yukarı bilgim var diğer 11 tanesi için kendim çoğaltabilirim.Nasıl olması gerektiğine dair örnek ekte..Arkadaşlar kusura bakmayın yanlışlıkla aynı eki hem normal hemde rar lı göndermişim

 

[Ali]

Ocak ayı için

Sub veriaktar()
Dim aktar
aktar = Sheets("Sayfa1").Range("A1100")
Sheets("Sayfa2").Range("A1100").Value = aktar
End Sub

 

[nziya]

veri gönder

sayfa 1 deki kodu diğer işleme uyarlayın

 

[07 Osman]

peki sayın arkadaşlar;
cevaplarınızı daha denemedim birazdan deneyeceğim.Ama şöyle olabilirmi ;
veriler yine sayfa1 A1100 aralığında commandbuton bir tane var ismide "arşivle" olacak.Bilgileri girdim butona bastım sayfa 2 de A1100 aralığına ocak ayı verileri gitti.Þubat ayında sayfa 1 deki verileri değiştirdim butona basıp tekrar arşivle dedim Bu sefer sayfa 2 de önceki verilerin yani ocak verilerinin bulunduğu A,D sütunundan 2 tane atlayarak (E ve F yi) G1:J100 aralığına göndersin.Marttta veriler güncellenince arşivleme butonu bu sefer yine 2 sütun atlayıp M1100 aralığına göndersin.Bu şekilde devam etsin.Burada amacım tek butonla bu işleri halledebilmek peki bu nasıl mümkün olur sayın arkadaşlarım.İlginiz için şimdiden teşekkür ediyorum.

Merhaba,
sayfa1 de A,B,C,D sütunlarının 1 satırlarından 100 satırlarına kadar olan bölgede yani A1100 aralığında verilerim var.Yine sayfa 1 e koyacağım bir commandbuton ile bu verilerimi sayfa2 de yine A1100 aralığına göndermek istiyorum.

İkinci sefer:
sayfa 1 deki verilerimi (A1100) değiştirip bu sefer ikinci bir commandbuton ile bu sefer sayfa 2 de K1:N100 aralığına göndermek istiyorum.Yani bu aylık veri değişimi olacak.sayfa 1 de ayların ismini taşıyan 12 adet commandbuton olacak ve sayfa 1 deki A1100 deki veriler her ay değişip ilgili ayın isnmini taşıyan butuna basılınca sayfa 2 deki o ayın aralığına gönderilecek.Bunu nasıl bir makro ile yapabilirim.Commandbutonun bir tanesi için gerekli kodları öğrenebilirsem aşağı yukarı bilgim var diğer 11 tanesi için kendim çoğaltabilirim.Nasıl olması gerektiğine dair örnek ekte..Arkadaşlar kusura bakmayın yanlışlıkla aynı eki hem normal hemde rar lı göndermişim

 

[07 Osman]

Sayın @fructose sizin kodlarınız tam işimi görüyor.teşekkür ederim.
Sayın @nziya sizin örneğinizde ise bilgi girip tuşa basınca sayfa 2 de sabit bir yere (A1100) göndermiyor değişik yerlere gönderiyor.Bilmiyorum belki de sizin örneğinizi ben anlayamadım.yinede teşekkür ederim.Ama yinede bir üst mesajdaki tek butonla çalışma isteğimide değerlendirir ve cevaplarsanız sevinirim.

 

[nziya]

Sayın Osman bey değişik yer derken veri olan satırları atlayıp boş olan satırlara aktarıyor ben böyle olması gerekir diye düşünmüştüm

 

[07 Osman]

sayın @nziya teşekkür ederim sizinkiside güzel bir düşünce aslında.Ama tek butonla gönderme işlemi hakkında yardımlarınızı bekliyorum.Teşekkür ederim.

 

[07 Osman]

peki sayın arkadaşlar;
cevaplarınızı daha denemedim birazdan deneyeceğim.Ama şöyle olabilirmi ;
veriler yine sayfa1 A1100 aralığında commandbuton bir tane var ismide "arşivle" olacak.Bilgileri girdim butona bastım sayfa 2 de A1100 aralığına ocak ayı verileri gitti.Þubat ayında sayfa 1 deki verileri değiştirdim butona basıp tekrar arşivle dedim Bu sefer sayfa 2 de önceki verilerin yani ocak verilerinin bulunduğu A,D sütunundan 2 tane atlayarak (E ve F yi) G1:J100 aralığına göndersin.Marttta veriler güncellenince arşivleme butonu bu sefer yine 2 sütun atlayıp M1100 aralığına göndersin.Bu şekilde devam etsin.Burada amacım tek butonla bu işleri halledebilmek peki bu nasıl mümkün olur sayın arkadaşlarım.İlginiz için şimdiden teşekkür ediyorum.

Arkadaşlar yardım yokmu? Burada veri olan hücrelerin boş yada dolu olması önemli değil belki birkaç tanesi boş olabilir önemli olan A1100 aralığındaki tüm hücreleri boş veya değil olduğu gibi göndersin

 

[nziya]

sütun kaydır

Osman bey sanırım ekteki gibi bir şey istemiştiniz

 

[07 Osman]

teşekkür ederim sayın@nziya ellerinize sağlık tam aradığım belge