sayfalarda veri ara yaz

[ramo-62]

selam arkadaşlar
gönderdiğim tabloda ARA butonuna basınca örnekte istediğim gibi sonuç ve sonuçlara nasıl alabilirim.

Teşekkürler.

 

[AS3434]

Sayın ramo-62

Dosyanız ekte.

Sub ara()
Application.ScreenUpdating = False
Set s1 = Sheets("ARA")
arama = s1.[c1]
[c2:e4500].ClearContents
For i = 2 To 49
   Worksheets(i).Select
   For x = 1 To [b65536].End(3).Row
     If Cells(x, 2) = arama Then
     son = s1.[c65536].End(3).Row + 1
     s1.Cells(son, 3) = Worksheets(i).Name
     s1.Cells(son, 4) = Cells(x, 3)
     s1.Cells(son, 5) = Cells(x, 4)
     End If
Next: Next
s1.Select
Application.ScreenUpdating = True
End Sub

 

[ramo-62]

eşya arama

Teşekkürler AS3434
Harikasın.