Runtime error '438' sorunu

[darcy]

Merhaba arkadaşlar
bu forumu bir süredir takip ediyorum. Sayenizde aşağıdaki basit makroyu yazabilecek kadar bişeyler öğrendim.
Yazdığım kodun özet hali aşağıda. Ancak kodu çalıştırınca kırmızı satırda
Run-Time error '438
Object doesnt support this property ot method hatası alıyorum.

Dim a As Integer
a=6
Dim sut As Integer
sut=11
Dim i As Integer
   For i = 3 To 451
      If Sheets("BFList").Cells(i, sut) <> 0 Then                             'Eğer miktar 0 değilse;
      [COLOR="Red"][SIZE="3"]Sheets("metraj_icmali").Cells(a, 3) = Sheets("BFList").cels(i, 2)[/SIZE][/COLOR]       'poz numarasını yaz
      Sheets("metraj_icmali").Cells(a, 4) = Sheets("BFList").cels(i, 3)       'poz adını yaz
      Sheets("metraj_icmali").Cells(a, 9) = Sheets("BFList").cels(i, 4)       'pozun birimini yaz
      Sheets("metraj_icmali").Cells(a, 12) = Sheets("BFList").cels(i, sut)    'miktarı yaz
      a = a + 1                                                               'metraj icmalinde bir alt satıra geç
      End If
      Next i

yardımcı olursanız sevinirim.
Ekli dosyayı görüntüle hata1.xls

 

[leumruk]

Merhaba
Satırın sonundaki Cels ifadesini Cells olarak değiştirin. tek L kullanmışsınız.

 

[darcy]

teşekkürler dostum.