• DİKKAT

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

Bir Sayfadaki verilerin diğer sayfalarda aranması

Katılım
16 Eylül 2006
Mesajlar
41
Excel Vers. ve Dili
office 2003
Selam,
Sayfa1 de "D" sütununda bulunan verilerin, çalışma kitabının diğer sayfalarında aratıp "G" sütununa sayfa adını nasıl yazdırabilirim. Eğer birden falza sayfada veri bulmuşsa aralarına boşluk koyarak yine G sütununa yazdırmak istiyorum. Veri yoksa boş geçilebilir.

Yardımcı olabileceklere şimdiden teşekkürler.
 
Son düzenleme:
Merhaba,
Belki sizin istediğinizi tam olarak karşılamıyor ama aşağıdaki dosya size fikir verebilir.
 

Ekli dosyalar

Merhaba,
Belki sizin istediğinizi tam olarak karşılamıyor ama aşağıdaki dosya size fikir verebilir.


Teşekkür ederim.
Güzel bir çalışma bunu başka bir yerde kullanacağım.

Mevcut işimi görmüyor.
Amacım 1.sayfadaki "D" Sütununun tümünü aratmak.
Bu dosyada tek tek girmem gerekiyor.
 
Merhaba,

Örnek dosya ekleseydiniz kodları yazacak arkadaşlara dosya hazırlama zahmetinden kurtarmış olurdunuz.

Aşağıdaki kodları kullanabilirsiniz. Aşağıdaki koyu kırmızı olarak yazdığım sayfa adını siz kendi çalışmanıza göre adlandırınız. Bu sayfa D sütunu okunan sayfadır.

Kod:
Sub Ara()
Dim s1 As Worksheet
Dim i As Long
Dim SayfaNo As Integer
Dim c As Range
Set s1 = Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]")
s1.Select
Application.ScreenUpdating = False
Range("G2:G65536").ClearContents
For i = 2 To [D65536].End(3).Row
    For SayfaNo = 1 To Sheets.Count
        If Sheets(SayfaNo).Name <> s1.Name Then
            Set c = Worksheets(SayfaNo).UsedRange.Find(Cells(i, "D"), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                If Len(Cells(i, "G")) = 0 Then
                    Cells(i, "G") = Sheets(SayfaNo).Name
                Else
                    Cells(i, "G") = Cells(i, "G") & " - " & Sheets(SayfaNo).Name
                End If
            End If
        End If
    Next SayfaNo
Next i
Application.ScreenUpdating = True
MsgBox "Arama Tamamlandı...", vbInformation, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub
 

Ekli dosyalar

Dosya uzun olduğu için ekleyemedim.
Çok teşekkür ediyorum.
Eklemiş olduğunuz dosya tam olarak yapmak istediğimdi.
 
Necdet bey,
karşılaştırma hücre olarak yapılıyor.
eğer arananı içeren şeklinde olsaydı nasıl yapabiliriz.

Örnek ; AHMET kelimesini hücre olarak arıyor. AHMETCİK olarak bir sonuç varsa onuda yazmasını istersek nasıl yapabiliriz.
 
Merhaba,

kodlardaki LookAt:=xlWhole lafını çıkartınız.
 
Geri
Üst