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 06-08-2010, 16:56   #1
mozturk6
 
Giriş: 06/08/2010
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2003
Varsayılan Sütundaki Aynı Kayıtları Bulma

Ben aşağıdaki arşivimdeki imaj numaralarını A Sütununa yazacağım.
379290
476889
261214
221713
253379
261214
379290

Excel Dosyasından İstediğim bu kayıtlardaki aynı numaraları bulup B Sütununa yazması.
379290
261214

Saygılarımla.
mozturk6 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 17:06   #2
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Aşağıdaki kodlar işinizi görecektir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Base 1
Sub mukerereler_59()
Dim hcr As Range, sat As Long, myarr(), a As Long
Sheets("Sayfa1").Select
Range("B:B").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 1, 1 To 65536)
For Each hcr In Range("A1:A" & sat)
    If WorksheetFunction.CountIf(Range("A1:A" & hcr.Row), hcr.Value) = 1 Then
        If WorksheetFunction.CountIf(Range("A1:A" & sat), hcr.Value) > 1 Then
            a = a + 1
            myarr(1, a) = hcr.Value
        End If
    End If
Next
If a > 0 Then
    Application.ScreenUpdating = False
    ReDim Preserve myarr(1 To 1, 1 To a)
    Range("B1").Resize(a, 1) = Application.Transpose(myarr)
    Application.ScreenUpdating = True
    MsgBox "Benzer kayıtlar çıkarıldı." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End If
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 17:17   #3
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan

Buda fonksiyonla çözüm olsun.
Eklenmiş Dosyalar
Dosya Türü: zip Benzerleri listele.zip (5.7 KB, 290 Görüntülenme)
Ali Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 21:06   #4
mozturk6
 
Giriş: 06/08/2010
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2003
Varsayılan

Yardımlarınızdan dolayı teşekkür ederim.

Evren bey verdiğiniz kodu nasıl ekleyeceğimi bilmiyorum. Excel hiç kullanmadım.
Ali bey sizin verdiğiniz dosyadada rakamları kenarlara yazmadı hangi sütun olduğunu gösteriyor.

Teşekkür ederim.
mozturk6 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 21:26   #5
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,411
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

Alıntı:
mozturk6 tarafından gönderildi Mesajı Görüntüle
Ben aşağıdaki arşivimdeki imaj numaralarını A Sütununa yazacağım.
379290
476889
261214
221713
253379
261214
379290

Excel Dosyasından İstediğim bu kayıtlardaki aynı numaraları bulup B Sütununa yazması.
379290
261214

Saygılarımla.
.

Alternatif.

.
Eklenmiş Dosyalar
Dosya Türü: zip benzeyen-benzemeyen.zip (4.9 KB, 162 Görüntülenme)
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 21:56   #6
mozturk6
 
Giriş: 06/08/2010
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2003
Varsayılan

Yurttaş arkadaşım yazdığın dosya tamam ama satır sayısını sonsuz yapabilir misin?
Mesela şu an 30.000 satırda arama yapacağım. İleride daha da fazla olacak?

Saygılarımla.
Teşekkürler.
mozturk6 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 22:09   #7
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,411
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

Alıntı:
mozturk6 tarafından gönderildi Mesajı Görüntüle
Yurttaş arkadaşım yazdığın dosya tamam ama satır sayısını sonsuz yapabilir misin?
Mesela şu an 30.000 satırda arama yapacağım. İleride daha da fazla olacak?

Saygılarımla.
Teşekkürler.
.

Arkadaşım , Excelde sonsuz satır var mı? Yani bir şey sorarken sorulan soruda bir mantık olmalı. Değil mi?


Ne demek? Satır sayısını sonsuz yapabilir misin? Ben sihirbaz değilim.

7 satırlık bir örnek vererek, sonsuz satır istemekte ayrı bir konu...

Öte yandan, aralık sonlarını 30000 veya kaç satırı kapsayacaksa o kadar belirlersiniz. Bu bir maharet gerektirmiyor. Bunu siz de yapabilirsiniz. Ancak bu şekildeki bir uygulama ile Excel kasılır.

Bu nedenle, size önerilen makroyu kullanın. Bu daha uygundur.


.
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 22:36   #8
mozturk6
 
Giriş: 06/08/2010
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2003
Varsayılan

Sınırsız derken 7 satırla sınırlandırmayalım diye anlatmak istemiştim yanlış anlatmıştım çok özür diliyorum. Ben excel'i hiç kullanmayı bilmediğim için nasıl yapılacağını anlatabilirsen yapmaya çalışayım.

Yardımlarınızdan dolayı çok teşekkür ederim.
mozturk6 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-08-2010, 22:46   #9
mozturk6
 
Giriş: 06/08/2010
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2003
Varsayılan

Sınırsız derken 7 satırla sınırlandırmayalım diye anlatmak istemiştim yanlış anlatmıştım çok özür diliyorum. Ben excel'i hiç kullanmayı bilmediğim için nasıl yapılacağını anlatabilirsen yapmaya çalışayım.

Yardımlarınızdan dolayı çok teşekkür ederim. Örnekteki gibi bir buton aracılığı ile de olabilir.
Eklenmiş Dosyalar
Dosya Türü: rar Ayni-Farkli.rar (11.1 KB, 69 Görüntülenme)
mozturk6 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-08-2010, 08:16   #10
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

30 bin kayıt formülle yaparsanız kasar.
Ben makroyu düzenleyip dosyanıza ekledim ve bir butona atadım.
A ve B sütunlarında bulunan mükerrer kayıtları d sütununa listeler.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Base 1
Sub mukerereler_59()
Dim hcr As Range, sat As Long, myarr(), a As Long, i As Byte
Dim adr As String
Sheets("Sayfa1").Select
Range("D:D").ClearContents
ReDim myarr(1 To 1, 1 To 65536)
For i = 1 To 2
    sat = Cells(65536, i).End(xlUp).Row
    adr = Range(Cells(2, i), Cells(sat, i)).Address
    For Each hcr In Range(adr)
        If hcr.Value <> "" Then
            If WorksheetFunction.CountIf(Range(Cells(2, i), Cells(hcr.Row, i)), hcr.Value) = 1 Then
                If WorksheetFunction.CountIf(Range(adr), hcr.Value) > 1 Then
                    a = a + 1
                    myarr(1, a) = hcr.Value
                End If
            End If
        End If
    Next
Next i
If a > 0 Then
    Application.ScreenUpdating = False
    ReDim Preserve myarr(1 To 1, 1 To a)
    Range("D2").Resize(a, 1) = Application.Transpose(myarr)
    Application.ScreenUpdating = True
    MsgBox "Benzer kayıtlar çıkarıldı." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End If
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar Ayni - Farklı_59.rar (16.7 KB, 108 Görüntülenme)
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Ç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 03:10


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden