makro ile aktarma

[gedavet]

a1:a10 arasını a1:a10 b1:b10 c1:c10 gibi sayfa birden sayfa2 ye

 

[fedeal]

dosyanız ekte iyi çalışmalar.

 

[gedavet]

emeğinize sağlık teşekkür ederiz

 

[fedeal]

emeğinize sağlık teşekkür ederiz

ricaederim iyi çalışmalar.

 

[gedavet]

bu makro bir sayfalık işimi görüyor ancak benim yapmak istediğim 12 aylık sayfam var her ayın belli aralıklarını bir sayfaya alt alta toplamak istiyorum

 

[fedeal]

siz 12 sayfalık bir örnek dosya hazırlayın(sayfa isimlerini daha sonradan değiştirmeceginiz şekilde) aktarımını yapmaya çalışırız.

 

[gedavet]

hazırladığım örneği tekrar konu açmadan göndermesini bilmiyorum bu konunun altına nasıl gönderebilirim

 

[gedavet]

yani ocak şubat mart diye 12 ayın sayfası olacak yıllık diye bir sayfa olacak hepsini yıllık sayfasına peşpeşe yanı önce ocaktan başlayarak aktaracak yanlız mesela ocaktan a1:a10,b1:b10 aralarını gibi yerler belirleyeceğim ben ona göre makroyu düzenlerim siz örnek yazıverirseniz

 

[fedeal]

Sub fd()
'-------ocak---------------------------------------------------------------
f = Sheets("ocak").Range("A65536").End(xlUp).Row
For i = 1 To f
fe = Sheets("yıllık").Range("A65536").End(xlUp).Row + 1
Sheets("yıllık").Range("a" & fe).Value = Sheets("ocak").Range("a" & i).Value
Sheets("yıllık").Range("b" & fe).Value = Sheets("ocak").Range("b" & i).Value
Sheets("yıllık").Range("c" & fe).Value = Sheets("ocak").Range("c" & i).Value
Next
'-------şubat--------------------------------------------------------------
f = Sheets("şubat").Range("A65536").End(xlUp).Row
For i = 1 To f
fe = Sheets("yıllık").Range("A65536").End(xlUp).Row + 1
Sheets("yıllık").Range("a" & fe).Value = Sheets("şubat").Range("a" & i).Value
Sheets("yıllık").Range("b" & fe).Value = Sheets("şubat").Range("b" & i).Value
Sheets("yıllık").Range("c" & fe).Value = Sheets("şubat").Range("c" & i).Value
Next
'---siz çogaltın------------------------------------------------------------

End Sub

deneyin umarım olur.

 

[fedeal]

Formumuzda arama yapsaydınız bir çok örnek vardı ben yinede bir örnek dosya hazırladım sarı hücreye yazıp enter tuşuna basın, iyi çalışmalar.

 

[kontto]

teşekkür ederim