Bir Önceki Sayfadan Verileri Alma ( Çoklu İşlem )

[Ali Faruk]

Arkadaşlar;

"04.01.2016" sayfasındaki C26 Hücresindeki bir veriyi "05.01.2016" sayfasındaki C9 hücresine ='04.01.206'!C2626 şeklinde aktarıyorum. Aynı şekilde "05.01.2016" sayfasındaki C26 hücresindeki veriyi "06.01.2016" sayfasındaki deki C9 hücresine aktarmak istiyorum. Bu şekilde 260 sayfam var bu aktarmaları seri halde otomatik olarak yapabilecek bir formül, kod, makro var mı? Yardımcı olabilirseniz çok sevinirim.

http://www.dosya.tc/server7/qo3n02/Kasa_2016-Deneme.rar.html

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin,

Private Sub CommandButton1_Click()
For a = 2 To Sheets.Count
Sheets(a).Name = Cells(a, "A")
If a > 2 Then Sheets(a).[c9].Value = Sheets(a - 1).[c26].Value
Next
End Sub

 

[Ali Faruk]

Merhaba öncelikle cevap için teşekkürler;

Şehir dışında olduğum için teşekkür edemedim kusura bakmayın.

1. Makroyu değiştirdim harika oldu fakat kasayı her devir etmek istediğimizde " Sayfa İsimleri " sayfasındaki "A1" hücresini seçmemiz gerekiyor ya bu işlemi günlük kasa sayfalarına " Kasayı Devir Et " gibi bir buton koyarak yapılabilir mi?

2. Mesela 15.01.2016 tarihini değiştirip "A1" hücresini seçince sayfa ismini değiştirmiyor. Orjinal tablomda sayfa isimleri 260 adet yani yıl sonuna kadar gidiyor. Bu şekilde düzenlenmesi mümkün mü?

 

[PLİNT]

Merhaba
Ek dosyayı inceleyin.
Örnek dosyanızdaki gibi "A" sütunu 2.satırdan itibaren; sıradan dosyada kaç sayfa varsa (Dosyanızda 10+1, fazla olursada "A" sütununda karşılığı olmalıdır) adlarını değiştirecektir.
http://s8.dosya.tc/server2/wvoa6f/Xl0000001.zip.html

 

[Ali Faruk]

Merhaba cevap yazamadığım için kusura bakmayın.

Dosya mükemmel bir şekilde çalışıyor işimi o kadar kolaylaştırdı ki. İlginiz emeğiniz çok teşekkür ederim.