• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bul komutunda birden fazla veri arama

M

msuphi

Katılım
27 Haziran 2009
Mesajlar
31
Excel Vers. ve Dili
2003
Merhabalar forumda aramama rağmen bulamadığım bul komutunda çalışma sayfasında birden fazla veri aratmamız mümkünmüdür.
Örneğin 14528,25896,114785,23588, sayılarını aynı anda aratabilirmiyim yardımlarınızı bekliyorum.
 
Aranan kriterler döngüye alınıp arama işlemi yapılabilir. Önemli olan aranan veri bulunduktan sonra ne yapılacak?

Örnek dosya eklerseniz yardım almanız kolaylaşır. Dosyanızı paylaşım sitelerine yükleyip link verebilirsiniz.
 
Korhan Ayhan' Alıntı:
Aranan kriterler döngüye alınıp arama işlemi yapılabilir. Önemli olan aranan veri bulunduktan sonra ne yapılacak?

Örnek dosya eklerseniz yardım almanız kolaylaşır. Dosyanızı paylaşım sitelerine yükleyip link verebilirsiniz.
Genişletmek için tıkla ...

5000 tane youtube kanalı url adresi var ve bu 5000 tane url arasında 1000 tane aratacağım youtube url adresini bulmak istiyorum bulduktan sonra o kısmı kopyalamam yada toplu seçmem lazım
 
Ve hala örnek belge yok, ilginç doğrusu.
Sorunuzun cevabı ise "EVET yapılabilir".
 
Korhan Ayhan' Alıntı:
Aranan kriterler döngüye alınıp arama işlemi yapılabilir. Önemli olan aranan veri bulunduktan sonra ne yapılacak?

Örnek dosya eklerseniz yardım almanız kolaylaşır. Dosyanızı paylaşım sitelerine yükleyip link verebilirsiniz.
Genişletmek için tıkla ...

Ömer BARAN' Alıntı:
Ve hala örnek belge yok, ilginç doğrusu.
Sorunuzun cevabı ise "EVET yapılabilir".
Genişletmek için tıkla ...


Örnek Dosya : http://www.dosya.tc/server13/5orur0/ornek.xlsx.html

Mesela burda 50 tane veri var. Ben bu elli veririn içerisinde çoklu arama yapıp eşleşen verileri seçtirmek istiyorum.

Örnek arama ;

tyhmprcg
gykjdzxs
fjmsvaht
uqybirht
txujwsrv
wtnzqady
katimzdv
zupmhfox
ujcqyhxz
pguymqof
rhwufzvp

mesela bunları toplu dosyada aratıp eşleşenleri bulmam lazım
 
Görünen o ki; rastgele metinler yazıp örnek belge olarak eklemişsiniz.
Örnek belgedeki metinler aranacak olanlar mı yoksa arama alanı mı?

Böyle yazmamızın ve örnek belge istememizin sebebi;
verilen çözümün gerçek belgeye uyarlanması aşamasında, "olmadı"/"ya şöyle olursa" gibi yeni sorunların önüne geçmek.

Örnek belge;
-- yapısının gerçek belgeyle birebir aynı olması (sayfa yapısı, veri başlangıç satırı/sütunu, veri türü gibi)
-- içeriğindeki verilerin gerçek belgedeki verileri temsil edebilecek nitelikte olması
gerekir.

Destek isteyen olarak sizin yapacağınız tek şey; gerçek belgenizin, özel bilgi içermeyen küçük boyutlu bir kopyası şeklinde bir örnek belge yüklemek.

Elbette mecbur değilsiniz, tercih sizin.
.
 
Ömer BARAN' Alıntı:
Görünen o ki; rastgele metinler yazıp örnek belge olarak eklemişsiniz.
Örnek belgedeki metinler aranacak olanlar mı yoksa arama alanı mı?

Böyle yazmamızın ve örnek belge istememizin sebebi;
verilen çözümün gerçek belgeye uyarlanması aşamasında, "olmadı"/"ya şöyle olursa" gibi yeni sorunların önüne geçmek.

Örnek belge;
-- yapısının gerçek belgeyle birebir aynı olması (sayfa yapısı, veri başlangıç satırı/sütunu, veri türü gibi)
-- içeriğindeki verilerin gerçek belgedeki verileri temsil edebilecek nitelikte olması
gerekir.

Destek isteyen olarak sizin yapacağınız tek şey; gerçek belgenizin, özel bilgi içermeyen küçük boyutlu bir kopyası şeklinde bir örnek belge yüklemek.

Elbette mecbur değilsiniz, tercih sizin.
.
Genişletmek için tıkla ...

Örnek : http://www.dosya.tc/server13/tt5t7q/ornek.xlsx.html
Aratılacaklar : http://s7.dosya.tc/server6/mxr8zh/aratilacaklar.txt.html

ana dosyada aratılacak dediklerimin hepsini aratıp seçtirip sildirmem lazım hocam , lazım olan işlem budur
 
Merhaba.

-- Son cevabınıza eklediğiniz txt uzantılı belge içeriğini kopyalayıp, örnek isimli belgede Sayfa2 A sütununa yapıştırın,
-- örnek isimli belgenizde, alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılacak VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın.
-- F5 tuşuna basarak veya Sayfa1'e ekleyeceğiniz bir düğme/şekil/metin kutusu ile bu kod'u ilişkilendirip
(nesneye sağ tıklayıp MAKRO ATA'yı seçerek),
bu nesneye fareyle tıklayarak kod'u çalıştırın.

Kod Sayfa1'de silme işlemini yapacak, Sayfa2'de ise silinen bu verinin satırında B sütununa silindi yazacaktır.
.
Kod: 
[B][COLOR="Blue"]Sub BUL_SIL()[/COLOR][/B]
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
s2alan = "A1:A" & s2.Cells(Rows.Count, 1).End(3).Row
s1son = s1.Cells(Rows.Count, 1).End(3).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
s2.Columns("A:A").Replace What:="https", Replacement:="http", LookAt:=xlPart, SearchOrder:=xlByRows
s2.Columns("A:A").Replace What:="http", Replacement:="https", LookAt:=xlPart, SearchOrder:=xlByRows
        
For sat = s1son To 1 Step -1
    If WorksheetFunction.CountIf(s2.Range(s2alan), s1.Cells(sat, 1)) > 0 Then
        s2.Cells(WorksheetFunction.Match(s1.Cells(sat, 1), s2.Range(s2alan), 0), 2) = "[COLOR="Red"]silindi[/COLOR]"
        s1.Cells(sat, 1).[COLOR="red"]Delete[/COLOR] Shift:=xlUp
        silinen = silinen + 1
    End If
Next
s2.Columns("A:A").Replace What:="https", Replacement:="http", _
                        LookAt:=xlPart, SearchOrder:=xlByRows
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox silinen & " adet satır silindi.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="Blue"]End Sub[/COLOR][/B]
 
Ömer BARAN' Alıntı:
Merhaba.

-- Son cevabınıza eklediğiniz txt uzantılı belge içeriğini kopyalayıp, örnek isimli belgede Sayfa2 A sütununa yapıştırın,
-- örnek isimli belgenizde, alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılacak VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın.
-- F5 tuşuna basarak veya Sayfa1'e ekleyeceğiniz bir düğme/şekil/metin kutusu ile bu kod'u ilişkilendirip
(nesneye sağ tıklayıp MAKRO ATA'yı seçerek),
bu nesneye fareyle tıklayarak kod'u çalıştırın.

Kod Sayfa1'de silme işlemini yapacak, Sayfa2'de ise silinen bu verinin satırında B sütununa silindi yazacaktır.
.
Kod: 
[B][COLOR="Blue"]Sub BUL_SIL()[/COLOR][/B]
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
s2alan = "A1:A" & s2.Cells(Rows.Count, 1).End(3).Row
s1son = s1.Cells(Rows.Count, 1).End(3).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
s2.Columns("A:A").Replace What:="https", Replacement:="http", LookAt:=xlPart, SearchOrder:=xlByRows
s2.Columns("A:A").Replace What:="http", Replacement:="https", LookAt:=xlPart, SearchOrder:=xlByRows
        
For sat = s1son To 1 Step -1
    If WorksheetFunction.CountIf(s2.Range(s2alan), s1.Cells(sat, 1)) > 0 Then
        s2.Cells(WorksheetFunction.Match(s1.Cells(sat, 1), s2.Range(s2alan), 0), 2) = "[COLOR="Red"]silindi[/COLOR]"
        s1.Cells(sat, 1).[COLOR="red"]Delete[/COLOR] Shift:=xlUp
        silinen = silinen + 1
    End If
Next
s2.Columns("A:A").Replace What:="https", Replacement:="http", _
                        LookAt:=xlPart, SearchOrder:=xlByRows
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox silinen & " adet satır silindi.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="Blue"]End Sub[/COLOR][/B]
Genişletmek için tıkla ...

hocam bu kodu denedim çalıştı fakat şöyle bi sorun var bu url karşılarında hesap bilgileri yer alıyor yani silme işlemi yaptığında aynı yerinde kalması lazım bu kod ile hepsini sıra ile üste taşıyor
 
Venriğim kod'daki s1.Cells(sat, 1).Delete Shift:=xlUp
satırını s1.Cells(sat, 1).ClearContents şeklinde değiştirerek deneyin.
.
 
Eyvallah, kolay gelsin.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst