B

Çözüldü Birden Fazla Sayfadan Veri Listeleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
B

ben28

Yıllık Forum Üyesi
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar,

Excel belgemde yaklaşık olarak 70 sekme var. Tek olarak oluşturduğum sayfaya sekmelerdeki kolaylıkları sunmak istiyorum. ( Sekmelerde değişiklik olabilir )

Düşeyara ile yapmaya çalıştı ama olmadı.

Kriterim yatıştırma gözüken Kod, Bölüm, Sicil ve Adı kontrol edildi Tarih ve Avans bilgilerinin gelmesidir.

Yapılabilirmiyiz.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
ben28' Alıntı:
tüm sekmeleri formülleri ile tek bir sekmede birleştirecek makronuz varmıdır?
Genişletmek için tıklayın ...
Bu kısmı biraz açmanız lazım örnek dosyanızda 3 sayfa var.. Olmasını istediğiniz sayfa TÜM sayfası mı ? Bu 3 sayfada da boş satırlar var birleşmesini istediğiniz sayfada boş satırları almamışsınız. Ayrıca D sütununda Sicil numarası yazmayan satırları da birleştirmemişsiniz. Yani sadece sayfaların D sütunlarında Dolu olan kısımları alıp tüm sayfasına aktarmışsınız.. Formülleri ile birlikte alınmasını istiyorum demişsiniz. Boş satırlarda veya sicil yazmayan satırlarda formüller mi mevcut.. Formüllü sütunlarda satırların parça parça alınması nolacak burada bir muallak var bence
 
Oyla 0 Olumsuz oyla
Tüm ve Sayfa1 sayfaları hariç diğer sayfaları Tüm sayfasında listeler. Not: Diğer sayfalardan veri alması için o sayfanın RefSut değişkeninde bulunan sütunun hücresi dolu olması gerekir. Şuan kodda 2(b sütunu) dolu olması durumuna göre tanımlı.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(26 satır)
 
Oyla 1 Olumsuz oyla
okutkan' Alıntı:
Tüm ve Sayfa1 sayfaları hariç diğer sayfaları Tüm sayfasında listeler. Not: Diğer sayfalardan veri alması için o sayfanın RefSut değişkeninde bulunan sütunun hücresi dolu olması gerekir. Şuan kodda 2(b sütunu) dolu olması durumuna göre tanımlı.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(26 satır)
Genişletmek için tıklayın ...

Hocam çok teşekkür ederim. Kod çözümledi.
Emeğine Sağlık.
 
Oyla 0 Olumsuz oyla
ben28' Alıntı:
ben28' Alıntı:
Hocam çok teşekkür ederim. Kod çözümledi.
Emeğine Sağlık.
Genişletmek için tıklayın ...


Private Sub CommandButton1_Click()
Dim sf As Worksheet, tum As Worksheet
Dim alan As Range, YazilacakAlan As Range
Set tum = Sheets("Tüm")

muaf_sf1 = tum.Name 'listelenmeyecek sayfa
muaf_sf2 = "Sayfa1" 'listelenmeyecek sayfa

sat = 2 'tüm sayfası başlangıç satırı
BasSat = 4 ' sayfaların liste başlangıç satırı
RefSut = 2 'her veri/sütunda dolu olması gereken sütun numarası
tum.Range("A2:H1000").ClearContents
For Each sf In Worksheets
If sf.Name <> muaf_sf1 And sf.Name <> muaf_sf2 Then
son = sf.Cells(Rows.Count, RefSut).End(3).Row ' sayfa son satırı
For i = BasSat To son
If sf.Cells(i, RefSut) <> "" Then
Set alan = sf.Range("B" & i & ":H" & i)
Set YazilacakAlan = tum.Range("B" & sat).Resize(1, 7)
YazilacakAlan.Value = alan.Value
sat = sat + 1
End If
Next i
End If
Next
End Sub
Genişletmek için tıklayın ...
muaf_sf2 = "deneme" 'listelenmeyecek sayfa

deneme olarak sekme ekledim ve verinin gelmesini istemiyorum fakat veri geliyor.
Yanlış mı uyarlıyorum?
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst