Excel ÇaliŞma Kİtabinin Alt Sayfalarinda Verİ Aratma

[nzr1980]

SLM
BU SİTEDEN BİR ARKDAŞTAN YARDIM ALDIM . AŞLAĞIDAKİ KODU YAZDI FAKAT EXCELDE ARAMA YAPARKEN SÜTUN İÇİNDE ARAMAYAPIYOR TÜM SAYFADA ARAMA YAPTIRABİLMEK İÇİN KODU DÜZELTEBİLECEK ARKADAŞLARIN YARIMININI RİCA EDİYORUM.

Sub SORGULA()
Set S1 = Sheets("Sorgulama")
S1.[A265536].ClearContents
SATIR = 2
SAY = 0
For X = 2 To S1.[H65536].End(3).Row
For Y = 1 To Sheets.Count - 1
If WorksheetFunction.CountIf(Sheets(Y).[C:C], S1.Cells(X, 8)) > 0 Then
SAY = SAY + 1
For Z = 2 To Sheets(Y).[A65536].End(3).Row
If Sheets(Y).Cells(Z, 3) = S1.Cells(X, 8) Then
S1.Cells(SATIR, 1) = Sheets(Y).Cells(Z, 3)
S1.Cells(SATIR, 2) = Sheets(Y).Cells(Z, 4)
S1.Cells(SATIR, 3) = Sheets(Y).Cells(Z, 5)
S1.Cells(SATIR, 5) = Sheets(Y).Name
S1.Cells(SATIR, 4) = Sheets(Y).Cells(Z, 6)

SATIR = SATIR + 1
End If
Next
End If
Next
Next
If SAY = 0 Then GoTo SON
MsgBox "VERGİ NUMARASI SORGULAMA İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
Exit Sub
SON: MsgBox "SORGULADIĞINIZ VERGİ NUMARASI KAYITLARDA BULUNAMAMIŞTIR.", vbExclamation
End Sub