Çoklu Verİ Bulma Ve Aktarma

[finansalhaber]

Sevgili Üstadlar,

Bir konuda yardım isteyeceğim. Ekli dosyadaki, sayfa1 de D sütünundaki 50 veriyi
A sütunundan bulup bulduğu hücreleri sayfa 2 de a sütununa nasıl aktarırım. Ayrıca D sütünunda olup A sütununda olmayan yani arayıp bulmadığının da sayfa 2 ye yine kopyalayıp yanına yok yazmasını nasıl sağlayabilirim. Şimdiden çok teşekkür ederim. Bugün tamamlamam gerek Acil yardım, lütfen

 

[veyselemre]

Sub Bul()
    Application.ScreenUpdating = False
    Set s1 = Sheets("sayfa1")
    Set s2 = Sheets("sayfa2")
    s1.Select
    s2.[a:c].ClearContents
    Set a = Range("a1", [A65536].End(3))
    For x = 1 To [D65536].End(3).Row
        Set Bul = a.Find(Cells(x, 4))
        sat = sat + 1
        If Not Bul Is Nothing Then
            s2.Cells(sat, 1) = Bul
        Else
            s2.Cells(sat, 1) = Cells(x, 4)
            s2.Cells(sat, 2) = "Y O K"
        End If
    Next x
    s2.Select
End Sub

Yada hepsini bulmak için,

Sub HepsiniBul()
    Application.ScreenUpdating = False
    Set s1 = Sheets("sayfa1")
    Set s2 = Sheets("sayfa2")
    s1.Select
    s2.[a:c].ClearContents
    Set a = Range("a1", [A65536].End(3))
    For x = 1 To [D65536].End(3).Row
        Set c = a.Find(Cells(x, 4))
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                sat = sat + 1
                s2.Cells(sat, 1) = c.Value
                Set c = a.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        Else
            sat = sat + 1
            s2.Cells(sat, 1) = Cells(x, 4)
            s2.Cells(sat, 2) = "Y O K"
        End If
    Next x
    Set c = Nothing
    s2.Select
End Sub

 

[finansalhaber]

üstad çok saol emeğine sağlık.

 

[finansalhaber]

Sayın Veyselemre Tekrar merhaba,

az önceki kod ile ilgili bir sorunum var. kısaca anlatayım. D sütununa 3545401
yazdığım zaman A sütununda "3545400 asasasasas" ve "3545406 tytytytyty 354540105" var ise sayfa 2 ye her ikisini de kopyalıyor. Ancak benim sadece 3545401 ile başlayan hücreyi koplayıp sayfa 2 ye yazmam lazım A sütunun a sadece ilk 7 rakamına göre arama yapabiilir miyyiz? ekte anlattığım durumuda gönderiyorum. çok çok teşekkürler

 

[veyselemre]

Set c = a.Find(Cells(x, 4))

satırını

Set c = a.Find(Cells(x, 4) & "*", LookAt:=xlWhole)

ile değiştirin deneyin.

 

[finansalhaber]

tekrar çok teşekkrüler