Bu formülün neresinde hata var? (derse göre gruplandırma)

[faruk588]

Daha önce Evren Gizlen kullanıcı isimli arkadaşın verdiği kodu uyarlamak istedim ama bir hata oldu bu formülde hata nerede acep arkadaşlar?

Sub Aktar()
Dim i As Long, sut As String, sat1 As Long, sat2 As Long
Sheets("TASIMA PROGRAMI").Select
Range("AA2:AD655536").ClearContents
Application.ScreenUpdating = False
sat1 = Cells(65536, "W").End(xlUp).Row
For i = 2 To sat1
If Cells(i, "Z").Value = "T.M" Then sut = "AA"
If Cells(i, "Z").Value = "FEN" Then sut = "AB"
If Cells(i, "Z").Value = "MAT" Then sut = "AC"
If Cells(i, "Z").Value = "SERBEST" Then sut = "AD"
sat2 = Cells(655536, sut).End(xlUp).Row + 2
Cells(sat2, sut).Value = Cells(i, "W").Value & " " & Cells(i, "X").Value
sat2 = sat2 + 1
Next i
Application.ScreenUpdating = True
MsgBox "Gruplama tamamlanmıştır." & vbLf & _
"www..com", vbOKOnly + vbInformation, "OK"
End Sub

 

[İsmailCen]

'Range("AA2:AD655536").ClearContents' bu satırı, 'Range("AA2:AD65536").ClearContents'! olarak düzeltin.

 

[mustafaine1]

sat2 = Cells(655536, sut).End(xlUp).Row + 2 satirindada ayni sorun var..

 

[faruk588]

Tam isabet arkadaşlar. Teşekkür ediyorum. :bravo: