verileri sayfalarda aratıp bulunan sayfanın ismini yazdır

[ahm11]

a sutununda bulunan sayıları sayfa2,sayfa3 ve sayfa4 de artıp bulunan sayfanın adını ve yanındaki hücrenin değerini yazdıracak bir koda ihtiyacım var aranan bir sayfada olabileceği gibi birden fazla sayfada da olabilir.yardımcı olabilirseneniz memnun olurum.

 

[Levent Menteşoğlu]

Aşağıdaki kodun olduğu ekteki dosyayı inceleyin.

[vb:1:60aa0c0c7a]Sub ara()
[c2:iv65536].ClearContents
On Error Resume Next
Set s1 = Sheets("aranan")
For a = 2 To s1.[a65536].End(xlUp).Row
s1.Cells(a, 3) = s1.Cells(a, 1).Value
For b = 2 To Sheets.Count
sat = Sheets(b).Cells.Find(s1.Cells(a, 1).Value).Row
sut = Sheets(b).Cells.Find(s1.Cells(a, 1).Value).Column
If sat <> 0 Then
c = s1.Cells(a, 256).End(xlToLeft).Column + 1
If c = 2 Then c = 4
s1.Cells(a, c) = Sheets(b).Name
s1.Cells(a, c + 1) = Sheets(b).Cells(sat, sut + 1).Value
End If
sat = 0
sut = 0
Next: Next
End Sub
[/vb:1:60aa0c0c7a]

 

[Mahmut Bayram]

Sayın leventm, in affına sığınarak, ufak bir düzeltme.
[c2:iv65536].ClearContents bu satır ben de hata verdi. Bunun yerine
[vb:1:2bc55f8f28][C2:IV65536].ClearContents[/vb:1:2bc55f8f28] yaptım düzeldi.

 

[ahm11]

sayın leventm;
çok teşekkür ederim,kodlar tam istediğim gibi olmuş