Sayfa Kopyala Düşeyara Yap Hk.

[Ömer2134]

Merhaba

Yapmak istediğim makro butonun basınca yeni haftanın sayfasını oluşturmak ve bin önceki haftanın verilerini düşeyara ile getirtmek.

Örnek 06 -12 adlı sayfa varken butonu basınca aynı sayfayı tüm özellikleriyle kopyalayıp 13 -19 yazacak.
13 - 19 sayfası oluştuktan sonra 06 -12 sayfasındaki verileri 13 -19 sayfasındaki b sütununda getirecek.


Teşekkürler.

 

[rabbace]

Merhaba,

Talep ettiğiniz şeyi biraz daha detaylı anlatabilir misiniz? Bir önceki haftanın tüm verilerini kopyalayıp aynı şekilde bir sonraki hafta ile ilgili bir sayfa oluşturup oraya yapıştıracağız, peki siz daha sonra bu veriler üzerinde değişiklikler mi yapacaksınız? Anlattığınız şekilde yaparsak, her hafta için aynı veriler sürekli farklı sayfalara gelecek.

Mesela 13-19 Ağustos için sayfa oluşturduk, verileri de 06-13 Ağustos sayfasından getirdik, satır değerleri, A, B, C, D, E, F, G, H, I olarak 13-19 Ağustos sayfasına geldi, düşeyara ile bu satır etiketlerini 06-13 Ağustos sayfasında ararsak, önceki sayfanın birebir aynısını tekrar yapmış oluruz.

 

[Ömer2134]

Rabbace hocam merhaba

Yapmak istediğimi kısaca anlatayım

Eğer son sheet 06 - 12 ağustos ise butona bastığımda 13 - 19 ağustos sheetini oluşturacak. Bunu her hafta için yapacağım.

Her hafta a sutundaki veriler sabit b sutundaki veriler değişken olacak. O yüzden bir önceki haftanın verilerini alacak.

Eğer tekrar anlatamadıysam özür dilerim.
1
En azından ilk aşamada sheet oluşturma kısmı yapılsa bile yeterli olur benim için.


Teşekkürler.

 

[Ömer2134]

Merhabalar

Ben şöyle bir kod düşündüm.

Sub sayfaadi()

If ActiveSheet.Name = "13-19 AĞUSTOS" Then ActiveSheet.Copy After:=Sheets(Sheets.Count)
If ActiveSheet.Name = "13-19 AĞUSTOS (2)" Then ActiveSheet.Name = "20-26 AĞUSTOS"

If ActiveSheet.Name = "20-26 AĞUSTOS" Then ActiveSheet.Copy After:=Sheets(Sheets.Count)
If ActiveSheet.Name = "20-26 AĞUSTOS (2)" Then ActiveSheet.Name = "03-09 EYLÜL"

If ActiveSheet.Name = "03-09 EYLÜL" Then ActiveSheet.Copy After:=Sheets(Sheets.Count)
If ActiveSheet.Name = "03-09 EYLÜL (2)" Then ActiveSheet.Name = "10-16 EYLÜL"

If ActiveSheet.Name = "10-16 EYLÜL" Then ActiveSheet.Copy After:=Sheets(Sheets.Count)
If ActiveSheet.Name = "10-16 EYLÜL (2)" Then ActiveSheet.Name = "17-23 EYLÜL"

End Sub


Fakat şurda sunu yapmak istiyorum. Eğer sayfa 13-19 AĞUSTOS ise yeni sayfayı kopyalasın adını 20-26 AĞUSTOS yapsın ve makrodan çıksın.
Eğer çıkış yapmazsa 3 tane daha sheet oluşturuyor.


Teşekkürler.

 

[çıtır]

Ana sayfadan sonra verdiğiniz sayfanın tarihine göre haftalık sayfa oluşturur.Bir önçeki haftayı kopyalar.