sayfalar arası işlem yaparak bilgi çekmek

[foxspring]

Merhaba

Belki basit bir şey ama yardımcı olursanız sevinirim. Deneme adlı dosyadaki işlem şu anda çalışıyor, sayfa2deki bilgileri bi önceki hücreden çıkararak birer atlamalı olarak sayfa1'e yazıyor, anlaşılır bir şekilde anlatamamış olabilirim ama örnekte anlaşılır. Benim sormak istediğim ise bunu daha kolay bir yoldan nasıl yapabiliriz. çünkü bunun gibi daha bir çok sütun hazırlayacağım.

Şimdiden çok teşekkürler.

 

[fedeal]

Private Sub CommandButton1_Click()
For g = 1 To 47 Step 2
For h = 2 To 25
'sarı hücreler
Sayfa1.Cells(g, 1) = (Sayfa2.Cells(h, 1)) - (Sayfa2.Cells(h - 1, 1))
'mavi hücreler
Sayfa1.Cells(g + 1, 1) = (Sayfa2.Cells(h, 2)) - (Sayfa2.Cells(h - 1, 2))
Next
Next
End Sub

soruyu tam anlamadım istediginiz bu olabilirmi?

 

[fedeal]

pardon sayfa2 deki veri sayısı degişince yalnış hesaplıyacaktır o kodlar şöyle değiştirelim.

Private Sub CommandButton1_Click()
fd = Sheets("sayfa2").Range("A65536").End(xlUp).Row
t = fd * 2
For g = 1 To t Step 2
For h = 2 To fd
'sarı hücreler
Sayfa1.Cells(g, 1) = (Sayfa2.Cells(h, 1)) - (Sayfa2.Cells(h - 1, 1))
'mavi hücreler
Sayfa1.Cells(g + 1, 1) = (Sayfa2.Cells(h, 2)) - (Sayfa2.Cells(h - 1, 2))
Next
Next
End Sub

 

[foxspring]

Vallah ne diyeyim çok teşekkür ettim, şimdi zamanım kalmadı ama akşama denerim bunu.Evet veri sırası sayfa2'de aşağı doğru uzayacak 744'e kadar. Aslında bu ayın 31 günü saatlik olarak aşağıya uzayacak ve bunlar sayfa1'e sütun1=1.gün.....sütun31=31.gün olarak 1'er hücre atlayarak 24 saati dolduracak.

Bunun içinde daha kestirme bi yol varmı yoksa sayfa1'deki her sütun için bunumu yapayım?
yardımın için çok teşekkürler.

 

[foxspring]

bunları denedim ama olmadı. Birincisi sayfa2'deki 25. den 24. hücreyi çıkarıyor ve bunu sayfa1deki tüm sarı hücrelere yazıyor, mavi içinde aynı olay gecerli. İkincisini ise çalıştıramadım.

 

[fedeal]

ben denedim oldu birdaha ekteki dosyayı inceleyin yalnış anlamış olabilirim düzeltiriz. pardon anladım bakıyorum yapabilirsem

 

[fedeal]

Private Sub CommandButton1_Click()
fd = Sheets("sayfa2").Range("A65536").End(xlUp).Row
t = (fd * 2)-2
For g = 1 To t Step 2
a = ((g + 1) / 2) + 1
'sarı hücreler
Sayfa1.Cells(g, 1) = (Sayfa2.Cells(a, 1)) - (Sayfa2.Cells(a - 1, 1))
'mavi hücreler
Sayfa1.Cells(g + 1, 1) = (Sayfa2.Cells(a, 2)) - (Sayfa2.Cells(a - 1, 2))
Next
End Sub

denedim oldu gibi ama birde siz deneyin

 

[foxspring]

denedim tam istediğim gibi olmuş, sağolasın

 

[fedeal]

denedim tam istediğim gibi olmuş, sağolasın

ricaederim iyi çalışmalar.