Aktarılan sayfaları aktarma

[Erdinç FIRTINA]

Saygıdeğer üyeler,

Sayın Orion2 nin katkıları ile hazırlanan dosyada, sayfalardaki veriler aktarılarak yeni sayfalar oluşturuldu.
Aslında tablolardan rapor sayfaları demek daha doğru olabilir.

Şimdi de oluşturulan rapor sayfalarındaki (GELİRLER, GİDERLER, MAAS, DGELİR, DGİDER) verileri aynı şekilde "TÜM" adlı sayfaya aktarmak istiyorum.

Kodun aşağıdaki satırında yer alan tanımlara sayfa adı v erdim ama olmuyor.

Bu konudaki yardımları için herkese şimdiden teşekkürler!!!!

If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then

 

[xxcell]

If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then sat&#305;r&#305;n&#305;

If val(Sheets(i).Name) >= 1 And val(Sheets(i).Name) <= 31 Then

de&#287;i&#351;tirmen gerekiyordu.

Tabi biraz zaman ge&#231;mi&#351; &#252;st&#252;nden

 

[Erdinç FIRTINA]

Say&#305;n xxcell,
Yard&#305;m&#305;n&#305;z i&#231;in &#231;ok te&#351;ekk&#252;rler!!!
Ben de te&#351;ekk&#252;r i&#231;in ge&#231; kald&#305;m ama daha yeni bakabildim.
Ancak, s&#246;z konusu de&#287;i&#351;iklikle sorunum &#231;&#246;z&#252;lmedi. &#231;&#252;nk&#252; benim aktar&#305;lacak sayfalar&#305;m isimlendirilmi&#351; sayfalar. Zannediyorum bu nedenle 1 ve 31 rakamlar&#305;n&#305; kullan&#305;yor olmam error veriyor.

Ama yine de &#231;ok te&#351;ekk&#252;r ederim.

 

[Orion1]

Dosyanız hazır.
Ekli dosyayı inceleyiniz.

 

[Erdinç FIRTINA]

Say&#305;n Orion2,

size nas&#305;l te&#351;ekk&#252;r etsem azd&#305;r. Ger&#231;ekten kar&#351;&#305;l&#305;ks&#305;z olarak birilerine yard&#305;m etmek herhalde bu zamanda pek m&#252;mk&#252;n olmayan bir durum. Bizlerin &#231;al&#305;&#351;malar&#305; i&#231;in zaman ay&#305;rman&#305;z ger&#231;ekten &#231;ok g&#252;zel bir &#351;ey. Bizleri mutlu ediyor. Hele hele benim gibi 40 &#305;ndan sonra excel &#246;&#287;renmeye &#231;al&#305;&#351;an birisi i&#231;in her &#246;&#287;rendi&#287;im bilgiden sonra &#231;ok mutlu oluyorum. inan&#305;n sayenizde &#231;ok &#351;ey &#246;&#287;reniyorum. Sizden cevap gelmeden &#246;nce g&#246;ndermi&#351; oldu&#287;unuz dosya &#252;zerinde de&#287;i&#351;iklikler yaparak sayfa isimlerinde say&#305;sal de&#287;erler kullanarak aktarma i&#351;lemini yapabildim. &#214;rne&#287;in 32 GEL&#304;RLER, 33 G&#304;DERLER vb. isimler verdim ve koddada isimleri bu &#351;ekilde de&#287;i&#351;tirdim. Sayfalar&#305; say&#305; ismi ile kabul etti ve kod &#231;al&#305;&#351;t&#305;. Ama &#351;imdi sizin kodlar&#305;n&#305;za uyarlayaca&#287;&#305;m.

yapt&#305;&#287;&#305;m de&#287;i&#351;ikli&#287;i de sizle payla&#351;mak istiyorum. Acaba tesad&#252;f m&#252;d&#252;r yoksa do&#287;ru mudur bunu anlamak istiyorum.

Sayfa ad&#305; ba&#351;&#305;na say&#305; yazd&#305;m a&#351;a&#287;&#305;daki gibi

Sheets("36 DG&#304;DER").Range("A3:G65536").ClearContents

sonra T&#220;M adl&#305; sayfaya aktarmak i&#231;in de sayfa adlar&#305;n&#305;n ba&#351;&#305;na verdi&#287;im say&#305;lardan ba&#351;lamas&#305;n&#305; sa&#287;layacak de&#287;i&#351;iklik yapt&#305;m ve makro &#231;al&#305;&#351;t&#305;

If Val(Sheets(i).Name) >= 32 And Val(Sheets(i).Name) <= 36 Then
sat = Sheets(i).Cells(65536, "C").End(xlUp).Row

HER &#350;EY &#304;&#199;&#304;N &#199;OK TE&#350;EKK&#220;RLER!!!


Say&#305;n Orion2,
Ayr&#305;ca forum kurallar&#305;na uymak i&#231;in &#231;aba g&#246;steriyorum ama bu dosya &#252;zerinde &#231;al&#305;&#351;ma yaparak toplama i&#351;lemi ile ilgili yeni bir &#351;ey &#246;&#287;renmeye &#231;al&#305;&#351;&#305;yorum. E&#287;er uygun g&#246;r&#252;rseniz sorumu soraca&#287;&#305;m.

 

[Orion1]

Yaptığınız işlem doğrudur.
Kolay gelsin.

 

[Erdinç FIRTINA]

&#199;ok &#199;ok te&#351;ekk&#252;r ederim Say&#305;n Orion2!!!