Makro İle Arama Yapmak

[Filose]

Açık olan 2 adet excel dosyaları arasında arama yapmak.

Kitap1 dosyasında A1'deki veriyi (veya bizim belirleyeceğimiz kelimeyi) Kitap2 dosyasının A150 aralığında bulsun ve Kitap1 dosyasında A10 hücresine yazsın.

Saygılar.

 

[Murat OSMA]

Kitap1'in A1 hücresindeki veriyi, Kitap2'nin A1: D50 aralığında bulduktan sonra yine aynı veriyi mi Kitap1'in A10 hücresine yazacak ?
Kitap2'den alacağı veri nedir ?
Örnek dosya eklerseniz; çözüme daha hızlı ulaşabilirsiniz.

 

[Murat OSMA]

Şu kodları Açık dosyadaki ilgili sayfanın kod kısmına yazıp, A1 hücresine de Kapalı dosyadaki belirtilen aralıkta olan bir veri girip deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    Application.ScreenUpdating = False
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Workbooks.Open (ThisWorkbook.Path & "\Kapalı.xls")
    For Each evn In ActiveSheet.Range("A1:D50")
        If evn.Value = Target.Value Then
            [A10] = [A1] & " - " & evn.Address(0, 0) & " hücresinde bulundu."
        End If
    Next evn
    Windows("Kapalı.xls").Close
    Application.ScreenUpdating = True
    Set evn = Nothing
End Sub

A1 hücresine yazılan veri, belirtilen aralıkta var ise, bulunan hücrenin adresini A10 hücresine yazar.
Kodlar, yapmak istediğiniz işleme göre uyarlanabilir.

 

[Filose]

Murat Bey ilginiz için teşekkür ederim.
Açık olan 2 adet excel dosyaları arasında arama yapmak istiyorum.
Kitap1 dosyasında A1'deki veriyi (veya bizim belirleyeceğimiz kelimeyi) Kitap2 dosyasının
A1150 aralığında bulsun ve Kitap1 dosyasında A10 hücresine yazsın.

Kısaca Kitap2 dosyasında veriyi A1150 aralığında DÜŞEYARA da olduğu gibi alması yeterli olacak.
Aranan bilgiyi bulduğunda bilginin satırında bulunan 2. veya 3. sütünündan çeksin gibi.

Saygılar.

 

[Filose]

Üstad,
Makro ile; 1. açık olan dosyadan (Mizan) Örn: "ALICILAR" hücresini bulup 2,3 veya 4 sütün sonra bulunan hücrenin bilgisini alıp yine açık olan 2. dosyanın A10 hücresine yazsın.

Teşekkür ederim.