veri tarama yaptığımda excel kilitlenliniyor

[cengizank]

22 sütundan oluşan 500 küsür kayıt var

her satırda iki adet sayıyı kontrol ediyor

örneğin 1 ile 28 sayısı'na denk geldiğinde

toplam taramada kaç tane 1 ile 28 aynı satırda sonucu ikinci sayfaya yazıyor

Baştan sona tarama yaptığımda kilitlenme yapıyor

her tarama işlemninde sonra mesaj yazdırdığımda ekran kilitlenmiyor

bu olay ekranın aşağı ve yukarı inip, çıkmasında kaynaklanan sorunmu tespit edemedim

yazdığım kod aşağıda eğer yardımcı olursanız sevinirim


----------------------------------- kod -----------------------------------

Sub denemeler()

Dim ilk_seksen, ikinci_seksen, toplamkayit


ilkhucre = 1
sonhucre = 2
ilksayi = 1
ikincisayi = 2
satir = 2
toplamkayit = 0
ilkrakam = 1
ikincirakam = 2
ilk_seksen = 0
ikinci_seksen = 0
kontrol = 0
j = 1
Dim i
Range("c2").select
For ilk_seksen = 1 To 79
kontrol = ilk_seksen + 1
If kontrol = 81 Then
Exit Sub 'çık
End If

For ikinci_seksen = kontrol To 80


For toplamkayit = 2 To 506





Range("C" & toplamkayit & ":" & "X" & toplamkayit).Select
If Not Selection.Find(What:=ilk_seksen, LookIn:=xlValues, After:=ActiveCell, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False) Is Nothing Then
If Not Selection.Find(What:=ikinci_seksen, After:=ActiveCell, LookAt:=xlWhole, SearchOrder:=xlByRows, LookIn:=xlValues, MatchCase:=False) Is Nothing Then

i = 1 + i

End If
End If

Next toplamkayit
Range("c2").Select
MsgBox ("bulundu " & " " & ilk_seksen & "---" & ikinci_seksen & " " & i & " adet bulundu")

j = ikinci_seksen
k = ilk_seksen

Sheets("Sayfa2").Cells(k + 1, j).Value = i

i = 0
Next ikinci_seksen
Next ilk_seksen

End Sub