farklı sayfalardan veri toplama

Katılım
29 Aralık 2018
Mesajlar
72
Excel Vers. ve Dili
excel 2013
sayın ustalarım yardımlarınızı rica ediyorum
saygılarımla
 

Bahadır

Yasaklı
Katılım
8 Kasım 2005
Mesajlar
276
Excel Vers. ve Dili
Office 2016 EN
Ezgi hanım merhaba,

Yapmak istediğiniz her sayfayı dolanıp, ilgili sayfadaki veriyi, ilgili tarihe göre Liste sayfasına mı yazdırmak?
 
Katılım
29 Aralık 2018
Mesajlar
72
Excel Vers. ve Dili
excel 2013
evet hocam sayfada örnek hazırlamıştım verdiğim örneklerden ve açıklamalardan yola çıkarak özet ve liste sayfasının oluşmasını rica edecektim
 

Bahadır

Yasaklı
Katılım
8 Kasım 2005
Mesajlar
276
Excel Vers. ve Dili
Office 2016 EN
O sayfalarda tarih kaydı yok ama, o nasıl tespit edilecek?
 
Katılım
29 Aralık 2018
Mesajlar
72
Excel Vers. ve Dili
excel 2013
taksit ödeme tarihleri var o tarihleri baz almalı hocam
 

Bahadır

Yasaklı
Katılım
8 Kasım 2005
Mesajlar
276
Excel Vers. ve Dili
Office 2016 EN
Pardon ekran sağda kalmış.
Üzerinde çalışayım biraz.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
835
Excel Vers. ve Dili
office2010
Merhaba,

Liste sayfası D1' e banka adını birkaç karakter yazın ve kodu çalıştırın.

Kontrol için H sütunundan sonra verileriniz yazdırılıyor.

Dosyanız
 

Ekli dosyalar

Katılım
29 Aralık 2018
Mesajlar
72
Excel Vers. ve Dili
excel 2013
hocam baktım cok güzel çalışıyor yalnız B STUNUNDAN dan başlayabilirmiyiz ve yeni arama yapınca eskisini silebilir mi üstüne yazıyor cunku ayrıca özet kısmınıda halletmenizi arz ederim 😊 yarın sabah bu raporu sunmam gerekiyor sagolun
 
Son düzenleme:

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
835
Excel Vers. ve Dili
office2010
güzel çalışıyor yalnız onu n etinin dan başlayabilirmiyiz ne demek isteğinizi anlamadım.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
835
Excel Vers. ve Dili
office2010
[B4].Resize(sat, sut + 1).Sort [B4], 1

H yi B olarak değiştirin.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
835
Excel Vers. ve Dili
office2010
Özet sayfasında bu kodu tekrar deneyin.

Kod:
Private Sub CommandButton1_Click()
Dim a(), b()
satir = Rows.Count
ReDim b(1 To satir, 1 To 6)
Set dd1 = CreateObject("scripting.dictionary")
        For j = 5 To Worksheets.Count
            Set s1 = Sheets(j)
            son = s1.Cells(Rows.Count, 4).End(3).Row
            If son > 6 Then
                a = s1.Range("D7:N" & son).Value
                For i = 1 To UBound(a)
                    krt = a(i, 1)
                    If dd1.exists(krt) Then
                        sat = dd1(krt)
                    Else
                        dd1(krt) = dd1.Count + 1
                        sat = dd1.Count
                        b(sat, 1) = krt
                    End If
                    For y = 2 To 6
                        b(sat, y) = b(sat, y) + a(i, y + 5)
                    Next y
                Next i
            End If
        Next j
Range("B4:G" & Rows.Count).Clear
If dd1.Count > 0 Then
[B4].Resize(dd1.Count, 6) = b
[B4].Resize(dd1.Count, 6).Borders.Color = vbBlack
End If
End Sub
 
Üst