- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
çalıştırdığım makro aşagıda. parolalı sayfa koruması yaptıktan sonra run time error 1004 range sınıfının sort yöntemi başarısız hatası alıyorum. sayfa koruması olmadığı zaman normal çalışıyor.
Sub liste()
Dim hcr As Range, sat As Long
Sheets("Sayfa1").Select
sat = 6
Application.ScreenUpdating = False
Range("H6:M65536").ClearContents
For Each hcr In Range("A7:A" & Cells(65536, "A").End(xlUp).Row)
If hcr.Value >= Range("G3").Value And _
hcr.Value <= Range("H3").Value Then
For k = 0 To 5
Cells(sat, k + 8).Value = hcr.Offset(0, k).Value
Next k
sat = sat + 1
End If
Next
Range("H6:M65536").Sort Range("H6")
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub
Sub liste()
Dim hcr As Range, sat As Long
Sheets("Sayfa1").Select
sat = 6
Application.ScreenUpdating = False
Range("H6:M65536").ClearContents
For Each hcr In Range("A7:A" & Cells(65536, "A").End(xlUp).Row)
If hcr.Value >= Range("G3").Value And _
hcr.Value <= Range("H3").Value Then
For k = 0 To 5
Cells(sat, k + 8).Value = hcr.Offset(0, k).Value
Next k
sat = sat + 1
End If
Next
Range("H6:M65536").Sort Range("H6")
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub