[Yardım]  Excel içerisindeki aynı değerleri sorgulatma ?

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Excel içerisindeki aynı değerleri sorgulatma ?

İleti#1)  qbert » 04 Oca 2018 15:28

Merhabalar,

Excel sayfam var 1 adet. Bu sayfaya sürekli veri giriliyor. Bazen doğal olarak aynı veriler girilebiliyor. Bunu önlemek için bir formül lazım.

Örnek dosyamı ekte size gönderdim. İlk dört satır (kırmızı başlıklı olanlar) önemli benim için. O satılara yazdığımı başka bir satırda yazarsam en sağdaki kırmızı-yeşil başlıklı DURUM satırında "VAR" diye uyarı vermesini istiyorum. Eğer mükerrer değilse o alanda herhangi bir uyarı vermesin. Sadece mükerrer olduğu zaman kırmızı renkte VAR diye uyarı vermesi yeterlidir.

Yaklaşık 1 senede 20bin satıra ulaşıyor bu tablo. O yüzden komple bütün sayfaya uygulanması lazım formülün. Ekteki dosyası bu şekilde yapabilir misiniz?

Çok teşekkür ederim şimdiden.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#2)  Uygaroz » 05 Oca 2018 08:25

"Eğersay" ile yapılmış dosyanız ektedir.
Umarın istediğiniz gibidir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#3)  qbert » 05 Oca 2018 12:48

Uygaroz yazdı:"Eğersay" ile yapılmış dosyanız ektedir.
Umarın istediğiniz gibidir.


Elinize sağlık, muhteşem olmuş ancak formül 35. satıra kadar yapmışsınız. Bunu en sonra satıra kadar uzatabilir misiniz?

Bir de dolgu rengini kırmızı yapma imkanımız nedir?
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#4)  Uygaroz » 05 Oca 2018 17:27

Dolgu rengi kırmızıya dönüştü. Formülü de kopyaladım.
Sizin şu anda kaç satıra kadar ihtiyacını var olduğunu bilemediğim için 300-400 satır civarında kopyaladım.
Siz ihtiyacınız olan yerde formülleri üstten kopyalayarak devam edebilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#5)  qbert » 09 Oca 2018 07:25

Uygaroz yazdı:Dolgu rengi kırmızıya dönüştü. Formülü de kopyaladım.
Sizin şu anda kaç satıra kadar ihtiyacını var olduğunu bilemediğim için 300-400 satır civarında kopyaladım.
Siz ihtiyacınız olan yerde formülleri üstten kopyalayarak devam edebilirsiniz.



Kusuruma bakmayın, yanlış yapmak istemiyorum. Çünkü bu excel uzun süreler kullanılacak ve en iyisi ve sorunsuzu olsun istiyorum. Rica etsem vaktiniz olduğunda olabildiğince çok uzatabilir misiniz formülü ?

Çünkü geçen senelerde 20bin satıra kadar gelmişti dosya. Bu sene daha da artar.

Şimdiden çok teşekkürler..
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#6)  Uygaroz » 09 Oca 2018 08:57

Dosyanız ektedir. 2 yeni çalışma sayfası ekledim. Açıklamalar sayfalarda var.

Benim tavsiyem ise; Üstadların konuya el atıp size uygun bir makro yazmaları.
Çünkü formül ile 20.000 satırda dosyanız aşırı derecede yavaş çalışacaktır.
Kolay gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#7)  Uygaroz » 09 Oca 2018 13:36

Galiba bu daha iyi oldu.
Ekteki dosyaya internette bulduğum bir makroyu uyarladım.
Biraz daha pratiklik sağladı. Formül kopyalama ihtiyacı da ortadan kalktı.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#8)  qbert » 10 Oca 2018 14:12

Uygaroz yazdı:Galiba bu daha iyi oldu.
Ekteki dosyaya internette bulduğum bir makroyu uyarladım.
Biraz daha pratiklik sağladı. Formül kopyalama ihtiyacı da ortadan kalktı.



Bu işime yaramadı maalesef. Bir önceki dosyada 20.000 satır yaptığınız sayfayı kullanmaya başladık. Zaten bize şu lazım; biz her satıra veri girdiğimizde o anda bize söylemesi lazım excel in "VAR" diye. Anlık görmeliyiz mükerrer olanları. Daha sonra dan aynı olanları bul diye her seferinde butona basmak zor olacak.

Herşey için teşekkür ederim. Yardımlarınız için.

Bu arada 20000 satır dolmaya başladıkça maalesef excel kasmaya başlıyor ama yapacak bişey yok.
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#9)  Uygaroz » 10 Oca 2018 14:18

Rica ederim.
Önemli olan işinizin çözüme ulaşmış olması.
İyi günler
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#10)  qbert » 09 Ağu 2018 08:41

Merhaba arkadaşlar

Şu anda excel im 10.000 satırı geçti. Çok yavaş çalışıyor. Yazdırma yaparken, filtrelerken ve baskı önizleme yaparken falan 7-8 saniye bekletiyor.

Nasıl hızlandırabiliriz?
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#11)  Tarkan VURAL » 10 Ağu 2018 08:15

Merhaba,
10.000 satır için 7 saniye baskı ön izleme beklenmesi, filtre beklenmesi bence çok doğal. Çalışmanızda formül hesaplamaları varsa, filtre öncesi veya baskı öncesi Formüller sekmesi | Hesaplama Seçeneklerinden El ile işaretlerseniz formül hesabı için bir kaç saniye beklemezsiniz. Sonra tekrar otomatik düzeye alabilirsiniz. Makro ile de yapabilirsiniz. Makro kaydet kullanarak ... --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#12)  qbert » 02 Oca 2020 11:20

Merhabalar

Öncellikle geçmişte bulunduğunuz yardımlar için çok teşekkür ederim. Zamanla kullandığımız dosya deforma oldu ve pek sağlıklı çalışmamaya başladı. Bir de 20bin satırdan sonrasını uzatamadık. Kopukluk oldu, formül çalışmamaya başladı vs..

Sizlerden ricam bana 50-60 bin olsun farketmez, satır sayısı fazla olsun. Çünkü girilen veri sayısı bir hayli artmış durumda.

Şimdiden çok teşekkür ederiyorum.
Kullanıcı avatarı
qbert
Yeni Başlamış
 
Kayıt: 21 Eyl 2017 09:14
Meslek: Operation Manager
Yaş: 32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#13)  Uygaroz » 07 Oca 2020 10:19

Tekrar Selamlar
Size yazmadan önce daha önce yüklediğim dosyaları indirip 30.000 ve üzeri satıra kadar çıkardım.
Formül ve makrolar ile dosyaları denedim ama maalesef sonuç olumsuz.

Satır sayısına göre Excel ya çok yavaşladı ya da kilitlendi.

Benim sizin dosyanıza uyguladığım formüller ve makrolar çözüm olmayacak maalesef.

Dolayısıyla, Ustalarımıza konuyu inceleyip daha verimli çalışan bir makro hazırlayabilirler sizin için.

Yada, bu kadar büyük bir veri tabanınız var ise şirketinizin bunun için bir yazılım alabilir veya özel bir program yazdırabilir.

Kolay gelsin.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#14)  Miraç CAN » 08 Oca 2020 12:20

qbert yazdı:Merhabalar

Öncellikle geçmişte bulunduğunuz yardımlar için çok teşekkür ederim. Zamanla kullandığımız dosya deforma oldu ve pek sağlıklı çalışmamaya başladı. Bir de 20bin satırdan sonrasını uzatamadık. Kopukluk oldu, formül çalışmamaya başladı vs..

Sizlerden ricam bana 50-60 bin olsun farketmez, satır sayısı fazla olsun. Çünkü girilen veri sayısı bir hayli artmış durumda.

Şimdiden çok teşekkür ederiyorum.

Merhabalar...
Sorununuz ile ilgili bir şeyler hazırladım. 18000 satırda test ettim, sorunsuz çalıştı bende.
Eklediğim dosyada ki işlemler hakkında bahsedeyim;
Sayfada bulunan son satıra kadar çalışır, istediğinizde sayfayı istediğiniz kadar kopyalayıp kullanabilirsiniz fakat sadece aktif sayfada işlem yapar. Bahsi geçen dört sütuna da veri girişi yapılmadan çalışmaz.
İşinize yarayabilir diye düşünerek, istendiğinde sayfanın sağına listelenebilir (işlem sırasında karşınıza çıkacak iletişim kutularını takip ederek), sonra sorgulamaya devam eder.
Listelenen verilerde gerekli bilgileri göreceksiniz (satır nu. vs.).

Düzeltme işlemi daha pratik olsun diye "Listeden Düzelt" butonunu ekledim:
"AYNI OLANLAR LİSTESİ" altındaki satırlardan ilgili düzeltmeleri yaptıktan sonra, güncellemek istediğiniz satırda herhangi bir hücre (sütun) seçili iken butonu kullanarak (önce onay istedikten sonra) asıl listenizi düzeltebilirsiniz.
(Ön gördüğümce uyarıları ve yönlendirmeleri iletişim kutuları aracılığıyla ekledim)
Burada dikkat etmeniz gereken, buton kullanıldığında hangi hücre seçili ise (aktif hücre) o satırda ki bilgileri günceller. Birden fazla satır seçtiğinizde uyarı vererek işlemi iptal eder.


Asıl konuya dönecek olursak; sorgulamadaki yönergeler şu şekilde:
Kod, veri girişi satırındaki ilgili dört sütun tamamlandığında çalışır, sadece eşleşme bulduğunda uyarır.
(Deneyerek daha kolay anlayabileceğinizi düşünüyorum zaten)
Önce eşleşenler listelensin mi uyarısı gelir, evet butonu önce listeler sonra sorgulama/kontrol etmeye başlar, hayır butonu sadece sorgulama/kontrol yapar.

(*) Sorgu/Kontrol aşamasında /varsa eşleşen veri satırları uyarısı verir ve veri satırı belirtilir, üç butondan oluşur "Durdur", "Yeniden Dene", "Yoksay"

Durdur butonu: tercih edildiğinde sorguyu bitirir, ilgili satıra yönlendirilmek için onay ister, evet eşleşen satırı gösterir, hayır işlemi bitirir. Durdur butonu kullanıldığında sorgulama bittiğinden dolayı /varsa başka eşleşmeler bulunamaz, ancak sorgulanacak satır (Sheet Change olayını başlatmak için) tekrar çalıştırılırsa (F2+Enter ya da satır hücrelerinden birine çift tık+Enter gibi) sorgulama yeniden başlar.
Yeniden Dene butonu: Veri girişi yaptığınız son hücreyi seçer.
Yoksay butonu: Sorgu/Kontrol işlemine kaldığı yerden devam eder ve bulduğu her eşleşmede "eşleşen veri satırları" uyarısı vererek devam eder (* satırındaki adımları tekrar takip eder)
İlgili Kodlar ;
Çalışılacak sayfaya:
Kod: Tümünü seç
Public dz As Boolean
Sub dzlt(dzz As Boolean)
dz = dzz
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sList As Boolean, rw As Long
If dz Like True Then Exit Sub
If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub
rw = Target.Row
say = Application.CountA(Range("A:A"))
For Each n In Range(Cells(rw, 1), Cells(rw, 4))
    If n Like Empty Then Exit Sub
Next n
9:
For Each n In Range("A:A")
    If n.Row = rw Then i = i + 1: GoTo atla
    If i = say Then If sList = True Then i = 0: sList = False: GoTo 9 Else Exit Sub
    If Not n Like Empty Then
        If n.Offset(, 1) = Cells(rw, 2) Then
            If n = Cells(rw, 1) And n.Offset(, 2) = Cells(rw, 3) And n.Offset(, 3) = Cells(rw, 4) Then GoSub hata
        End If
        i = i + 1
    End If
atla:
Next n
Exit Sub
hata:
If sor = Empty Then If MsgBox("Eşleşen veriler listelensin mi..?", vbYesNo + vbDefaultButton1 + vbInformation, "Uyarı") = vbYes Then _
    sor = 1: sList = True: Range(Cells(3, 10), Cells(1048576, 15)).ClearContents Else: sor = 1
If sList = True Then List rw, n.Row: Return
msg = MsgBox("Daha önceden girilen veri tespit edildi." & vbNewLine & vbNewLine & "Veri Satırı: " & n.Row, _
vbAbortRetryIgnore + vbCritical + vbDefaultButton1, "Dikkat..! Veri çakışması.")
Select Case msg
    Case vbRetry: Target.Select
    Case vbAbort
        If MsgBox("İlgili satıra yönlendiriliyorsunuz...", vbYesNo + vbDefaultButton1 + vbInformation, "Uyarı") = vbYes Then: _
        Range(Cells(n.Row, 1), Cells(n.Row, 4)).Select: Exit Sub
    Case vbIgnore: Return
    Case Else: Exit Sub
End Select
End Sub

Kod: Tümünü seç
Private Function List(tRow As Long, nRow As Long)
dz = True
Application.ScreenUpdating = False
s_say = Application.CountA(Range("J:J")) + 1
Cells(s_say, 10) = s_say - 2
Cells(s_say, 11) = nRow
For yaz = 12 To 15 Step 1
    Cells(s_say, yaz) = Cells(nRow, yaz - 11)
Next yaz
Application.ScreenUpdating = True
dz = False
End Function

Modül içerisine:
Kod: Tümünü seç
Sub düzelt()
Dim rng As String
If Intersect(ActiveCell, Range("J3:O1048576")) Is Nothing Then _
    MsgBox "Liste dışında seçim yaptınız", vbOKOnly + vbExclamation, "Listeden Düzelt... UYARI": rng = ActiveCell.Address: _
    Range("J3:O1048576").Activate: Application.Wait Now + TimeValue("0:00:01"): Range(rng).Activate: Exit Sub
If Selection.Rows.Count > 1 Then MsgBox "Birden fazla satır seçemezsiniz", vbOKOnly + vbExclamation, "Listeden Düzelt... UYARI": Exit Sub
If MsgBox("Seçili Satır (" & Cells(ActiveCell.Row, 11) & ") Güncellenecek", _
    vbYesNo + vbDefaultButton1 + vbInformation, "Uyarı") = vbNo Then Exit Sub
ActiveSheet.dzlt (True)
aRW = Cells(ActiveCell.Row, 11)
vRW = ActiveCell.Row
For yaz = 1 To 4 Step 1
    If Cells(aRW, yaz) = Cells(vRW, yaz + 11) Then
    Else
        Cells(aRW, yaz) = Cells(vRW, yaz + 11): wrt = wrt + 1
    End If
Next yaz
If wrt = 0 Then MsgBox "Değişiklik tespit edilemedi" Else MsgBox wrt & " Adet veri değiştirildi."
ActiveSheet.dzlt (False)
End Sub

Umarım işinize yarayacaktır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 1009
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Excel içerisindeki aynı değerleri sorgulatma ?

İleti#15)  Tarkan VURAL » 03 May 2020 01:29

--)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe