Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 18-07-2017, 09:21   #31
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Ömer Hocam, Dün ortak fiş tablosu ile 17 nolu mesajda yüklediğiniz tabloyu Kemal beyin de yardımıyla güncelledik 28 nolu mesajda da kemal Hocam yükledi bunu ancak 400-500 bin li satırlarda maalesef çalışmadı. ilk gelişmiş filtrelemeyi kullanınca süzüp getiriyor ama ortak fişleri çekmeye çalışınca kilitleniyor. Sadece sizin 17 nolu mesajdaki ni denedim o da yüksek satırlarda yanıt vermiyor. Doğru çalışıyor ama zannedersem kasıyor.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-07-2017, 18:01   #32
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,513
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
taneryuksell tarafından gönderildi Mesajı Görüntüle
Ömer Hocam, Dün ortak fiş tablosu ile 17 nolu mesajda yüklediğiniz tabloyu Kemal beyin de yardımıyla güncelledik 28 nolu mesajda da kemal Hocam yükledi bunu ancak 400-500 bin li satırlarda maalesef çalışmadı. ilk gelişmiş filtrelemeyi kullanınca süzüp getiriyor ama ortak fişleri çekmeye çalışınca kilitleniyor. Sadece sizin 17 nolu mesajdaki ni denedim o da yüksek satırlarda yanıt vermiyor. Doğru çalışıyor ama zannedersem kasıyor.
Tekrar merhaba.

Önceki kod'un özellikle çok fazla satır içeren MUAVİN dosyasında yavaş çalışması normal,
çünkü kod MUAVİN sayfasında birkaç sütuna formül uyguluyor idi.

17 numaralı cevabımın ekindeki belgeyi yeniledim.
Eklediğim yeni belgedeki çözümü de bir dener misiniz?


Yeni belgedeki kod'un sorunsuz ve hızlı çalışması lazım.
Ayrıca yeni belgede 2 değil daha fazla kriter ANA HESAP KODU da kullanmanız mümkün.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-07-2017, 13:48   #33
kemal turan
Altın Üye
 
Giriş: 10/06/2011
Şehir: Adana
Mesaj: 1,191
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Ömer hocam merhaba,
Sn.taner beyden orjinal muavin bilgilerini aldım.
sabahtan beri çalışıyorum.
388000 satırlık veride kod kasıyor ve verileri getirmiyor.
şimdi 2 kademede yapmayı düşünüyorum.
ilk önce gelişmiş filtre ile bir başka sayfaya verileri süzmeyi ondan sonra o sayfadan kodu çalıştırmayı deneyeceğim.
teşekkürler
__________________
Hayat; yaşamayı,
Mutluluk; gülümsemeyi,
Sevgi; Haketmeyi,
Vefa; hatırlamayı,
Dostluk;paylaşmayı bilen için vardır..
----------------------------------
kemal turan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-07-2017, 14:32   #34
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,513
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

İşlem adımları aşağıdaki gibi.
1) ARAMA sayfasındaki ANA HESAP KODlarına göre sırayla,
-- MUAVİN sayfası süzülüp, FİŞ numaraları AA sütunundan itibaren sağa doğru sütunlara yapıştırılıyor,
-- yinelenenler kaldırılıyor.
2) AA'dan itibarenki sütunların tümünde var mı diye FİŞ noları kontrol ediliyor,
-- tümünde varsa MUAVİN sayfası bu veriye göre FİLTRElenip ARAMA sayfasına da yazılıyor.
3) AA'dan itibarenki sütunlar temizlenip, ARAMA sayfasında biçimlendirme yapılıyor.
4) ARAMA sayfasında sadece 1 adet DİZİ FORMÜLÜ çalıştırılıyor (ADET için)
5) İşlemin tamamlandığı bildiriliyor.

Sonuç olarak yavaş çalışmaya neden olacak bir durum göremiyorum.

17 numaralı cevaptaki belgeyi;
-- birkaç kontrol ilavesi yapıp,
-- mevcut bir hatayı düzeltip,
-- dizi formülünü de yok ederek,
TEKRAR YENİLEDİM.

17 numaralı cevap ekini tekrar indiriniz.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-07-2017, 15:09   #35
kemal turan
Altın Üye
 
Giriş: 10/06/2011
Şehir: Adana
Mesaj: 1,191
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Merhaba Ömer Hocam,
Sabahtan beri taner beyden aldığım dosyada çalışıyordum.O dosyada muavın sahfasında A1 hücresinde sadece "KOD" yazılı olmasından dolayı kod çalışmıyormuş.
Siteden indirdiğim dosyaya verileri aldım.
5 6 dk. veriler geldi.
Kodunuzdan önce gelişmiş filtre uygulanmış farklı kod lu dosyayı uyguladım 1,5 dk. da verileri getirdi.Sn Taner beyle de görüştüm.
Selametle
Taner bey merhaba,
17 nolu mesajdaki dosyayı tekrar indirin.
DETAYMUAVIN adlı yeni bir sayfa açın.
Aşağıdaki kodu butona kopyalayıp yapıştırın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sheets("DETAYMUAVIN").Select
Call FILTRE
Sheets("ARAMA").Select
Set m = Sheets("DETAYMUAVIN"): Set a = Sheets("ARAMA"): Set wf = Application.WorksheetFunction
mson = m.Cells(Rows.Count, 1).End(3).Row
brn = WorksheetFunction.Match(a.[B1], a.Range("B2:B" & Rows.Count), 0) - 1
If a.Cells(Rows.Count, 2).End(3).Row > brn + 2 Then
    a.[F1] = "": a.Range("B" & brn + 3 & ":I" & Rows.Count).Clear
End If
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If wf.CountIf(a.Range("B2:B" & brn), "<>") < 2 Then Exit Sub
sut = 26: m.Activate
For sat = 2 To brn
    If a.Cells(sat, 2) <> "" Then
    adet = adet + 1
        m.Range("A1:H" & mson).AutoFilter Field:=1, Criteria1:="" & a.Cells(sat, 2) & ""
        sut = sut + 1
        m.Range("E2:E" & mson).SpecialCells(xlCellTypeVisible).Copy m.Cells(2, sut)
        m.Range("A1:H" & mson).AutoFilter Field:=1
        m.Range(Cells(1, sut), Cells(mson, sut)).RemoveDuplicates Columns:=1, Header:=xlNo
    End If
Next
m.Range("A1:H" & mson).AutoFilter Field:=1
sonsut = m.Cells(2, Columns.Count).End(1).Column
For sut1 = 27 To sonsut
    For sat1 = 2 To m.Cells(Rows.Count, sut1).End(3).Row
        If wf.CountIf(m.Range(m.Cells(2, 27), m.Cells(mson, sonsut)), m.Cells(sat1, sut1)) = adet And _
            wf.CountIf(m.Range(m.Cells(1, sonsut + 1), m.Cells(Rows.Count, sonsut + 1)), m.Cells(sat1, sut1)) = 0 Then
            say = say + 1
            m.Range("A1:H" & mson).AutoFilter Field:=5, Criteria1:=m.Cells(sat1, sut1)
            m.Range("A2:H" & m.Cells(Rows.Count, 1).End(3).Row).Copy a.Cells(a.Cells(Rows.Count, 2).End(3).Row + 1, 2)
            End If
        Next
    Next
m.Range("AA:IV").ClearContents
With a.Range("B" & brn + 3 & ":I" & a.Cells(Rows.Count, 2).End(3).Row)
    .Interior.ColorIndex = 19: .Borders.LineStyle = xlContinuous: .Borders.Weight = xlHairline
End With
m.Range("A1:H1").AutoFilter
m.Range("AA:AZ").ClearContents
a.Activate
a.[F1] = say
10: Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem Tamamlandı..." & vbLf & "B2:B" & brn & " alanına yazılan HESAP KODLARININ TÜMÜNÜ BİRDEN İÇEREN" _
        & vbLf & a.[F1] & "  ADET FİŞ aşağıya listelendi.", vbInformation, "..::.. ÖMER BARAN ..::.."
Bu kodu da bir modül içerisine yapıştırın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub FILTRE()
    Sheets("DETAYMUAVIN").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("A1").Select
    Sheets("MUAVİN").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("ARAMA").Range("B1:B3"), CopyToRange:=Range("A1"), _
        Unique:=False
    Sheets("ARAMA").Select
    Range("A4").Select
    ActiveWorkbook.Save
End Sub
__________________
Hayat; yaşamayı,
Mutluluk; gülümsemeyi,
Sevgi; Haketmeyi,
Vefa; hatırlamayı,
Dostluk;paylaşmayı bilen için vardır..
----------------------------------
kemal turan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-07-2017, 15:13   #36
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,513
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Örnek belgeyi tekrar indirin isterseniz,
birkaç satırlık ilave ve değiştirilen bir If bloku var çünkü.

Belgeyi iki kez değiştirmiştim (siz bir öncekindeki kod'u vermişsiniz).

Belgeyi tekrar indirip yenisini bir kez daha denemenizi öneriyorum.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2017, 07:56   #37
kemal turan
Altın Üye
 
Giriş: 10/06/2011
Şehir: Adana
Mesaj: 1,191
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Merhaba Ömer Hocam,
Dediğiniz üzere dosyayı içerisindeki verilerlerle çalıştırdım.Yanlış sonuç getirdi.
Ben yine dün öğlen sizin yazdığınız kodu uygulama yaptım.Sonuç doğru çıktı.
Doğru çıkan kodunuzu dün yaklaşık 400.000 satırda uyguladım 1,5 dk. da doğru sonuçları getirdi.
Bununla ilgili dün gece çalışmama ait iki dosyada ektedir.
Bence 1,5 dk. bu şekildeki bir sonuç için güzel performans.
Ellerinize sağlık.
Selametle
Eklenmiş Dosyalar
Dosya Türü: rar filtreleme.rar (103.7 KB, 8 Görüntülenme)
__________________
Hayat; yaşamayı,
Mutluluk; gülümsemeyi,
Sevgi; Haketmeyi,
Vefa; hatırlamayı,
Dostluk;paylaşmayı bilen için vardır..
----------------------------------
kemal turan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2017, 22:27   #38
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,513
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Biraz yoğunluğum vardı. Yeterince kontrol etmemiştim.

Kriter FİŞ numaralarını hücreye yazdırdığımı düşünüyordum.
Hatayı fark ettim ama düzeltmeye zamanım olmadı.

Kod'da köklü/işlem mantığı bakımından değişiklikler yaparak 17 numaralı cevabımın ekindeki belgeyi yine yeniledim.
Süre ölçümü de ekledim. 21.07.2017 23:22.

Yeni belgeyi indirerek gerçek verilerle test edip sonucunu yazarsınız.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:49


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Pronet- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden