Sayfa ismi değişken

[kelkitli]

Selamlar,

Sub bul()
Set S1 = Sheets("1")(Sayfa adı)
Set S2 = Sheets("İZİNLİSTESİ")
For i = 2 To Range("a65536").End(3).Row
'etopla formülünü altta bir değişkene atadım u6:u36 aralığında e1 deki değeri arıyor x sütunundaki karşılıklarını topluyor.
S2.Cells(i, "e").Value = WorksheetFunction.SumIf(S1.Range("U6:U36"), S2.Range("E1"), S1.Range("X6:X36"))
Next i
End Sub

A sütununda Yaka no yazılı. Aynı zamanda her yaka no isminde sayfa var.
A sütunundaki her değer ilgili sayfada aranıp aynı satıra sonuç E sütununa yazılacak.
Saygılar.