Soru Xls kodunun xlsm'de çalışmaması

[Gold_Savt]

Merhaba Arkadaşlar;
Aşağıda vermiş olduğum kod .xls uzantılı excelde çalışıyor ancak .xlsm uzantılı excelde çalışmıyor.
IV255. sütuna kadar çalışıyor ondan sonraki sütunlarda çalışmıyor.
Bu sorunu çözmem gerekiyor. Nasıl bir yol izlemem gerekir acaba?

Private Sub CommandButton1_Click()
Dim S1 As Worksheet, i As Byte, t1, s As Integer, j As Byte, sut As Byte, deg As String
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa1")
  For i = 6 To 30
     t1 = Application.Sum(S1.Range(S1.Cells(i, "KA"), S1.Cells(i, "KE"))) 
        deg = UCase(Replace(Replace(S1.Cells(i, "E"), "ı", "I"), "i", "İ"))
           If t1 > 0 Then
            s = Cells(Rows.Count, "C").End(xlUp).Row + 1
            sut = 2
            For j = 287 To 291
                If S1.Cells(i, j) > 0 Then
                    Cells(s, sut) = S1.Cells(i, j)
                End If
                    sut = sut + 1
            Next j
        End If
     Next i
 End Sub

 

[muratboz06]

Dim S1 As Worksheet, i As Byte, t1, s As Integer, j As Byte, sut As Byte, deg As String satırını
Dim S1 As Worksheet, i As Integer, t1, s As Integer, j As Integer, sut As Integer, deg As String olarak değiştirip deneyiniz.

Byte 0-255 arası değer alabilir.

 

[Gold_Savt]

Sayın Murat Boz; Çok teşekkür ediyorum. Google'da aramadığım yer kalmamıştı. Önce araştırma yapmadan buraya ikide bir sormayayım diyorum. Çaresiz kalınca buraya soruyorum. Şimdiye kadar da hep çare oldunuz. Teşekkürler.