Sayfalardan tarih sırasına göre veri alma.

sward175

Altın Üye
Altın Üye
Katılım
4 Şubat 2011
Mesajlar
672
Beğeniler
13
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
#1
Herkese Merhabalar,
Ekli dosyada,01 den başlayarak bir ay boyunca her sayfaya sarı başlıkları içeren bilgiler giriliyor.
Tüm sayfaların A2:V100 aralığına girilen bilgileri Ay Toplamı olan sayfaya Tarih sırasına göre almak istiyorum.
Saygılarımla,
sward175
 

Ekli dosyalar

sward175

Altın Üye
Altın Üye
Katılım
4 Şubat 2011
Mesajlar
672
Beğeniler
13
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
#2
İyi Geceler dileğiyle,

Bildirimlerde bir kırmızılık olur diye umut diyerek bakıyorum.
Selam ve Saygılarımla.
sward175
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#3
Dosyanız ektedir.:cool:
Not:Kodda bir değişiklik yaptım.2nci satırdaki verileri almıyordu şimdi alıyor.
Kod:
Sub aytoplami_59()
Dim sonsat1 As Long, sonsat As Long, sh As Worksheet
Sheets(Worksheets.Count).Select
Range("A2:V" & Rows.Count).ClearContents
For i = 1 To Worksheets.Count - 1
    Set sh = Sheets(i)
    sonsat1 = sh.Cells(Rows.Count, "A").End(xlUp).Row
    If sonsat1 > 1 Then
        sonsat2 = Cells(Rows.Count, "A").End(xlUp).Row
        sh.Range("A2:V" & sonsat1).Copy Range("A" & sonsat2 + 1)
    End If
Next i
MsgBox "İşlem tamamlandı."
End Sub
 

Ekli dosyalar

Son düzenleme:

sward175

Altın Üye
Altın Üye
Katılım
4 Şubat 2011
Mesajlar
672
Beğeniler
13
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
#4
Evren Bey, Günaydın,

Elleriniz Dert Görmesin, çok çok teşekkür ederim.

Güzel günler adına Sağ olun.
sward175
 

tahsinanarat

Altın Üye
Altın Üye
Katılım
14 Mart 2005
Mesajlar
1,875
Beğeniler
4
Excel Vers. ve Dili
Ofis 2016 Türkçe
#6
Sn. Evren hocam, denemek için gözattım, 4 nolu sayfadaki veriyi getirmediğini fark ettim, Bilginiz olsun.
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#7
Sn. Evren hocam, denemek için gözattım, 4 nolu sayfadaki veriyi getirmediğini fark ettim, Bilginiz olsun.
Evet doğru söylüyorsunuz.
İlgili kodu aşağıdaki ile değiştirince sorun kalkıyor.:cool:
Kod:
If sonsat1 > 1 Then
 
Üst