Makro kodu hata veriyor

[yildirimm]

merhaba arkadaşlar asaşıdaki kod sorunsuz çalışıyordu ama neden hata verior

Sub aaa()
For a = 1 To Sheets.Count
If Sheets(a).Name = "Anasayfa" Then GoTo 10
syf = Sheets(a).Name
Sheets(syf).Select
son = Cells(65536, 1).End(xlUp).Row

For i = son To 5 Step -1

If WorksheetFunction.CountIf(Range("b5:b" & i), Cells(i, 2)) = 1 Then

isim = Cells(i, 2).Value
deger = Cells(i, 3).Value
toplam = Evaluate("SUMPRODUCT((" & syf & "!b5:b55000=""" & isim & """)*(" & syf & "!I5:I55000))")
Cells(i, 11) = toplam - deger
Cells(i, 12) = toplam / deger
If Cells(i, "I") > 0 Then Cells(i, "L") = IIf(IsNumeric(Cells(i, "C")), Cells(i, "C"), 0) / Cells(i, "I") * 100
End If
Next
10 Next
End Sub


Sheets(syf).Select
burda hata veriyor select yöntemi başarısız diyor neden olabilir acaba?

 

[İdris SERDAR]

Sheets(syf).Select

yerine

syf.Select

olarak deneyin.

.

 

[yildirimm]

sayın yurttas ilgiize tşkler ama olmadı

 

[İdris SERDAR]

sayın yurttas ilgiize tşkler ama olmadı

Kodunuzda herhangi bir değişiklik yapmadan bende çalışıyor.

Bilgisayarı kapatıp, yeni baştan çalıştırın. Bakalım ne olacak.

 

[yildirimm]

SAYIN yauttaş oldu tşkler