Hata kontrolu

[excellcan]

Forumda emeği geçen herkese merhaba. Aşağıdaki kodlarda hata kontrolu yapmaya çalıştım ama beceremedim. Sorun şu : A-L aralığında bazı verileri sildirip yeniden sıralama yapıyorum. Sonra da A sütununda yeniden numaralandırma yapmak istiyorum. Ama 2.satır dahil aşağıya doğru veri olmadığında AutoFill Destination hata veriyor. Başka bir yöntem mi denemeliyim
yoksa buraya bir hata kontrolu yapılabilir mi ?

On Error GoTo hata
.Range("A2:L" & son).Sort Key1:=syf2.Range("A2"), Order1:=xlAscending
.Range("A2") = 1
.Range("A2").AutoFill Destination:=.Range("A2:A" & .Range("A65536").End(3).Row), Type:=xlFillSeries 
hata:
.Range("A2").ClearContents
Exit Sub

 

[Emir Hüseyin Çoban]

. . .

Daha hızlı cevap almak için örnek dosya ekleyiniz.

. . .

 

[excellcan]

.Range("A2:L" & son).Sort Key1:=syf2.Range("A2"), Order1:=xlAscending
If syf2.Cells(2, 1) <> "" Then
.Range("A2") = 1
.Range("A2").AutoFill Destination:=.Range("A2:A" & .Range("A65536").End(3).Row), Type:=xlFillSeries 'sıralama kodu
Else
Exit Sub
End If
biçiminde çözdüm.