Başka sayfalardan veri bul sayfa adını yaz

[hayri tekin]

Merhaba,ekli dosyamdaki sayfalar isimli sayfamda yazılı olan veriyi diğer sayfalarda aratıp hangi sayfada ise o sayfanın ismini yanına yazmasını istiyorum.
İlginiz için şimdiden teşekkürler.

 

[Muhammet Okumuş]

Merhaba

Sub bul()
For i = 2 To Sheets.Count
If WorksheetFunction.CountIf(Sheets(i).Range("A:A"), Cells(1, 3)) > 0 Then Cells(1, 4) = Sheets(i).Name
Next
End Sub

kodu deneyiniz.

 

[hayri tekin]

Sn.muokumus
ilginize çok teşekkür ediyorum.Yalnız bu makronun otomatik çalışmasını rica etsem.

 

[Muhammet Okumuş]

Bunu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
Range("D1") = ""
For i = 2 To Sheets.Count
If WorksheetFunction.CountIf(Sheets(i).Range("A:A"), Cells(1, 3)) > 0 Then Cells(1, 4) = Sheets(i).Name
Next
End Sub

 

[hayri tekin]

Sn.muokumus
Dışarıdaydım, yeni geldim.Denedim, tam istediğim gibi.Ellerine sağlık,teşekkürler.
Esen kalın