Başka Sayfadan Bilgi Alma Konusunda Yardım

[fkamanli]

Arkadaşlar, aşağıda izah ettiğim konu için yardımınıza ihtiyacım var. İlginize şimdiden teşekkürler.

Ekte gönderdiğim Foset.xls' nin 1' den 31' e kadar ayın günlerini temsil eden sayfalardan 1-5. satırlar içindeki bilgileri (eğer bilgi girilmişse) aynı dosya içindeki Liste sayfasına, gün sırasına göre yazdırmasını istiyorum.

Ben kafama göre 1-31 sayfalar arasına rastgele datalar girdim, sonuçta Liste sayfasının olması gerektiği halini de elle oluşturdum fakat bu Liste sayfasının, 1-31 sayfalara data girildikçe otomatik olarak bu bilgileri kendisinin almasını istiyorum, tabi mümkünse.

Yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Yazar yazmaz verinin aktarılması biraz sorunlu bir uygulama bu sebeple aşağıdaki kodu istediğinizde liste sayfasında çalıştırırsanız tüm verileri aktarmış olursunuz.

Sub verial()
[liste!b2:u65536].ClearContents
For a = 1 To 31
Set s1 = Sheets("" & a)
If s1.[b2] = 0 Then GoTo 10
sat = s1.[b65536].End(3).Row
sonsat = [liste!b65536].End(3).Row + 1
s1.Range("b2:u" & sat).Copy Sheets("liste").Range("b" & sonsat)
10 Next
End Sub

 

[fkamanli]

Sayın Leventm, öncelikle alakanız için çok teşekkür ederim. Verdiğiniz kodu Liste sayfasına yazdım fakat "compile error" veriyor. Size zahmet bu kodu ekli dosyaya ekleyerek ve mümkünse kodu çalıştırmak için Liste sayfasında Z2 celine de bir button bağlayarak gönderebilir misiniz.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[fkamanli]

Sayın Leventm, yardımlarınız için çok teşekkür ederim.