sabit artan aralıklardaki verileri altalta gelen hücrelere yerleştirme

[fgecesefa]

sevgili arkadaşlar merhaba .yardımcı olabilirseniz çok sevinirim.
benim sıkıntım şu;
sayfa 1 deki c2 sütununu sayfa 2 de b3 e ,
sayfa 1 deki c59 sütununu sayfa 2 de b4 e,
sayfa 1 deki c116 sütununu sayfa 2 de b5 e, nasıl yerlestirebilirim.
kısaca sayfa 1 dekiler sabit 57 satır atlayacak sayfa 2 dekiler birer birer atlayacak.
yardımlarınızı bekliyorum.
kendi çapımda muhasebe takip yapmak istiyorum.
ekteki dosyada sayfa 1 , üye listesi sayfası ve toplam veriler sayfasına bakabilirseniz sevinirim. belirli satır aralıklarla işlem yaptırmak istiyorum.şimdiden herkese teşekkürler.
makro dışında bi çözüm olursa sevinirim.
yurttaş arkadaşın verdiği

=INDIRECT("Sheet1!C"&ROW(A1)*57)
=DOLAYLI("Sheet1!C"&SATIR(A1)*57)
bu formülleri denedim olmadı.
ayrıca fedaral arkadaşın sunduğu makro çözüm işe yarıyor ama başka yerlerde de kullanmak istedim makroyu tam anlamadığım için yapamadım.
onun için makro dışında bi çözüm istiyorum.yoksa eğer makro öğrenicez napalım.şimdiden herkese teşekkürler....


ÖRNEK DOSYA :
http://rapidshare.com/files/250878555/DENEME.rar

 

[fedeal]

Merhaba,makrolu çözüm ekte,

Sub FEDEAL()
k = 2
For d = 2 To 10 Step 2
Sheets("TOPLAM VERİLER").Cells(4, d).Value = 0
Next
For i = 39 To 10000 Step 57
k = k + 1
Sheets("sayfa1").Cells(i - 37, "AA").Value = Sheets("sayfa1").Cells(i - 37, "C").Value
Sheets("üye listesi").Cells(k, "c").Value = Sheets("sayfa1").Cells(i - 37, "c").Value
Sheets("TOPLAM VERİLER").Cells(4, "B").Value = Sheets("TOPLAM VERİLER").Cells(4, "B").Value + Sheets("sayfa1").Cells(i, "l").Value
Sheets("TOPLAM VERİLER").Cells(4, "D").Value = Sheets("TOPLAM VERİLER").Cells(4, "D").Value + Sheets("sayfa1").Cells(i + 10, "C").Value
Sheets("TOPLAM VERİLER").Cells(4, "F").Value = Sheets("TOPLAM VERİLER").Cells(4, "F").Value + Sheets("sayfa1").Cells(i + 10, "D").Value
Sheets("TOPLAM VERİLER").Cells(4, "H").Value = Sheets("TOPLAM VERİLER").Cells(4, "H").Value + Sheets("sayfa1").Cells(i + 10, "E").Value
Sheets("TOPLAM VERİLER").Cells(4, "J").Value = Sheets("TOPLAM VERİLER").Cells(4, "J").Value + Sheets("sayfa1").Cells(i + 4, "H").Value
Next
End Sub

saygılar,

not: toplam veriler sayfasındaki butona basınca üye listesi otamatik yenileniyor ayrıca köprü oluşturmanıza gerek yok üye ismine tıklamanız yeterli.

 

[Merhum İdris SERDAR]

sevgili arkadaşlar merhaba .yardımcı olabilirseniz çok sevinirim.
benim sıkıntım şu;
sayfa 1 deki c16 sütununu sayfa 2 de b3 e ,
sayfa 1 deki c32 sütununu sayfa 2 de b4 e,
sayfa 1 deki c48 sütununu sayfa 2 de b5 e, nasıl yerlestirebilirim.
kısaca sayfa birdekiler sabit 16 satır atlayacak sayfa 2 dekiler birer birer atlayacak.
yardımlarınızı bekliyorum tesekkürler...

Sayfa2'deki B3 hücresine;

=INDIRECT("Sheet1!C"&ROW(A1)*16)
=DOLAYLI("Sheet1!C"&SATIR(A1)*16)

yazıp, aşağıya kopyalayın.

.

 

[fgecesefa]

emrahve yrttaşikinizede çok teşekü edim. emrah ben makrokullamasını bilmiyorumkardeş o formulü nereyeeklemem lazım. bide rardan çıkarnca baz özellikleri kullanılamaz diye b problem ver. "Bu çalışma kitabı VBA projesi, ActiveX denetimleri ve programlanabilirlikle ilgili diğer özelliklerini kaybetti." ve buton çalışmadı.yinede ilginiz için çok teşekkür sağolun

 

[fgecesefa]

Umutlar tükeniyor kiimse çözemedi galiba

 

[fgecesefa]

Umutlar tükeniyor

 

[fgecesefa]

emrahve yrttaşikinizede çok teşekü edim. Emrah ben makrokullamasını bilmiyorumkardeş o formulü nereyeeklemem lazım. Bide rardan çıkarnca baz özellikleri kullanılamaz diye b problem ver. "bu çalışma kitabı vba projesi, activex denetimleri ve programlanabilirlikle ilgili diğer özelliklerini kaybetti." ve buton çalışmadı.yinede ilginiz için çok teşekkür sağolun

umutlar tükeniyor

 

[hassan26]

Selam excel sayfasında iken Araçlar>Makro>güvenlik sekmesine tıkla karşına çıkan kutuda güvenlik düzeyini düşür ve yan başlığa tıkla (Güvenilen Yayımcılar) -Visual basic_project erişimine güven- işaretle sonra rardan çıkar

 

[Merhum İdris SERDAR]

umutlar tükeniyor

Dosyanız ekte.

.

 

[fgecesefa]

Dosyanız ekte.

.

ne diyebilirim 40 yıllık yükü aldın omuzlarımdan çok teşekkür ederim emeğine sağlık. işimi tam olarak karşıladı sağolasın.allah sizingibileri var etsin diğer arkadaşlarada ilgilerinden dolayı teşekkürler. kolay gelsin iyi çalısmalar.