Soru Excel sayfalarından makro veya formülle bilgilerin hızlı çekilmesi

[dodopali41]

Merhaba,
Aşağıdaki resimde de (ekli excel dosyamda görüleceği üzere) kriterlerden en az birini girerek ya da bir kaç kriteri girerek aşağıdaki excel sayfalarından verileri çekerek sol taraftaki ilgili forma getirmek ve sonrasında da soldaki forumda yer alan rapolarlanan tarihe göre eskiden yeniye doğru sıralamak istiyoruz. Formüller ya da Makro ile hangisi daha iyi kalıcı ve exceli şişirmez çünkü aşağıdaki excel sayfaları 50binli satırları bulabiliyor. Teşekkür ederiz yardımlarınız için.

İndir ARAÇ CEZA ALACAK TAKİP

Dosyayı indir ARAÇ CEZA ALACAK TAKİP

dosya.co

 

[dodopali41]

eski yılları arar oldum bu forumda...

 

[dodopali41]

Bildiklerimle kendimce yaptığım düzenleme ektedir. Fakat bu düzenleme eksik diğer ögeleri yapamadım (daha doğrusu tarihle ilgili ögeleri). Ayrıca bu yaptığım kodların kısa ve daha iyi olanı vardır bilgisayarı kasmaması ve dosyanın şişmemesi için.
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

İndir ARAÇ CEZA ALACAK TAKİP

Dosyayı indir ARAÇ CEZA ALACAK TAKİP

dosya.co

 

[dodopali41]

...

 

[dodopali41]

---

 

[dEdE]

Merhaba,
Aşağıdaki kodu örnek dosyanızda bir modüle yapıştırarak dener misiniz?

Sub Raporla()
Set s1 = Sheets("ANA EKRAN")
On Error GoTo 10
Application.ScreenUpdating = False
s1.Range("A3:G" & s1.Rows.Count).ClearContents
sat = 3
For i = 2 To Sheets.Count
    Aranan = s1.Cells(2, "H")
    Set c = Sheets(i).Range("A1:A" & Sheets(i).Cells(Rows.Count, "A").End(3).Row).Find(Aranan, , xlValues, xlWhole)
    If Not c Is Nothing Then
        adres = c.Address
        Do
            For j = 1 To 7
                s1.Cells(sat, j) = Sheets(i).Cells(c.Row, j)
            Next j
            sat = sat + 1
            Set c = Sheets(i).Cells.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> adres
    End If
Next i
    s1.Range("A3:G" & s1.Rows.Count).Sort Key1:=[F1], Order1:=1
10 Application.ScreenUpdating = True
End Sub

 

[dodopali41]

Merhaba,
Aşağıdaki kodu örnek dosyanızda bir modüle yapıştırarak dener misiniz?

Sub Raporla()
Set s1 = Sheets("ANA EKRAN")
On Error GoTo 10
Application.ScreenUpdating = False
s1.Range("A3:G" & s1.Rows.Count).ClearContents
sat = 3
For i = 2 To Sheets.Count
    Aranan = s1.Cells(2, "H")
    Set c = Sheets(i).Range("A1:A" & Sheets(i).Cells(Rows.Count, "A").End(3).Row).Find(Aranan, , xlValues, xlWhole)
    If Not c Is Nothing Then
        adres = c.Address
        Do
            For j = 1 To 7
                s1.Cells(sat, j) = Sheets(i).Cells(c.Row, j)
            Next j
            sat = sat + 1
            Set c = Sheets(i).Cells.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> adres
    End If
Next i
    s1.Range("A3:G" & s1.Rows.Count).Sort Key1:=[F1], Order1:=1
10 Application.ScreenUpdating = True
End Sub

merhaba,
emeğinize sağlık dosya hızlı şekilde işlem görüyor. Fakat aranan değer aranan sayfaların tüm satırlarında ya da tüm sütunlarında aranıyor. Bu şekilde değil de aranan değer sadece ilgili sütunda aransın yani bizim aradığımız - H2 hücresi için - diğer sayfaların A sütununda aransın sadece ki diğer sütunlarda olan aynı değerler gelmesin.

2. konu ise seçtiğimiz sayfaya diğer sayfalardan getirdiğimiz hücrelerin içerikleri aynı biçim, aynı yazı tipi, aynı hücre rengi vb. neyse aynısını getirip ilgili sayfaya yapıştırsın ve yeni arama yapılınca ilgili ana sayfadaki sayfa düzeni getirilen hücre içeriklerine göre 100.satır kadar da dolsa 2. satıra kadarda dolsa bozulmasın.

3. konu olabiliyorsa dosyada da bahsettiğim gibi iki tarih aralığına göre getirme

Teşekkür ederim.

 

[dEdE]

Dener misiniz?

 

[dodopali41]

Evet tam olarak bunu yapmak istemiştim. Elinize sağlık dosya şişmeden hızlı şekilde iş görüyor teşekkürler.

 

[dodopali41]

Dener misiniz?

Sayın @dEdE
Dosyada yeni bir durum hasıl oldu şöyle ki;
Aranan değeri ana ekrana çağırdığımızda aranan değerin ilgili sayfadaki hücre boyaması veya yazı renginin de aynı olması kısacası ilgili çalışma sayfasında nasıl yazılmış, boyanmış ise aynısının ana ekrana getirilmesi mümkün müdür?
Teşekkür ederim.

 

[dodopali41]

???

 

[dEdE]

Merhaba,
Dener misiniz?
İstediğinizi yapmak için, işlemleri hafızada gerçekleştirmek yerine tek tek satırlara başvuru yapıldığından #8 numaralı mesaj ekindeki kodlara göre daha yavaş çalışır.

 

[dodopali41]

Elinize sağlık çok güzel olmuş. Dediğiniz gibi ağırlaşmış, kasıyor. 500binli satırlara geldiğinde daha da ağırlaşacaktır sanrım.