Birden Fazla Sayfadan Veri Listeleme

ben28 · 18 Ocak 2023

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.

Mehmet · 18 Ocak 2023

Merhaba Office Versiyonunuzda DÜŞEYYIĞ işlevi yoksa Makro çözümü aramanız daha yerinde olur.

ben28 · 18 Ocak 2023

Mehmet' Alıntı:
Merhaba Office Versiyonunuzda DÜŞEYYIĞ işlevi yoksa Makro çözümü aramanız daha yerinde olur.

Merhaba, Düşeyyığ fonksiyonu office 365 kullanmama rağmen mevcut değil. Hocam tüm sekmeleri formülleri ile tek bir sekmede birleştirecek makro uz varmıdır?

Mehmet · 18 Ocak 2023

ben28' Alıntı:
tüm sekmeleri formülleri ile tek bir sekmede birleştirecek makronuz varmıdır?

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

okutkan · 18 Ocak 2023

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:

İndirmek için giriş yapmanız gerekmektedir.
(26 satır)

ben28 · 19 Ocak 2023

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:

İndirmek için giriş yapmanız gerekmektedir. (26 satır)

Hocam çok teşekkür ederim. Kod çözümledi.
Emeğine Sağlık.

ben28 · 19 Ocak 2023

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

muaf_sf2 = "deneme" 'listelenmeyecek sayfa

deneme olarak sekme ekledim ve verinin gelmesini istemiyorum fakat veri geliyor.
Yanlış mı uyarlıyorum?

okutkan · 19 Ocak 2023

Deneyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(30 satır)

ben28 · 19 Ocak 2023

okutkan' Alıntı:
Deneyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (30 satır)

Çok teşekkür ediyorum. İyi akşamlar.

	Birden Fazla Sayfadan Formülle Veri Alma ethemkapan 16 Ağu 2024 Formül Soruları
	Birden Fazla DÜŞEYARA Kullanarak Fazla Mesai Hesaplama PriveT 16 Şub 2024 Formül Soruları
	Birden Fazla Kritere Göre Verileri Sayma 52779 6 Nis 2025 Formül Soruları
	Birden Fazla Koşullu Benzersiz Liste Oluşturma PriveT 29 Mar 2021 Formül Soruları
	Birden Fazla Yerinekoy Formülü Yazmak Istiyorum PriveT 28 Mar 2022 Formül Soruları