Soru "Yanıt Vermiyor" Sorunu Hakkında

[yesimgurol]

Merhabalar,
Çalışma sayfamda kullanmış olduğum aşağıda yer alan kodlar ile sorunsuz çalışmaktaydım. Lakin bugün çoklu veri girdiğimde excel yanıt vermiyor:-(
Aşağıda bulunan kodlar ile yaklaşık 150 satır veri girdiğimde çalışıyor. Fakat 200 satır ve üzeri veri olduğunda yanıt vermiyor:-(
Yeni başka bir excel sayfası açıp orada da denediğimde yine aynı sorunu yapıyor. Bu sorunu nasıl aşabilirim acaba:-(

Sub ikizSil()
Application.ScreenUpdating = False
Sayfa1.Range("F2:G" & Sayfa1.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    For aranacaksatir = 2 To Sayfa1.Range("A" & Rows.Count).End(xlUp).Row
    veria = Sayfa1.Cells(aranacaksatir, "A").Value
    verib = Sayfa1.Cells(aranacaksatir, "B").Value
    verie = Sayfa1.Cells(aranacaksatir, "E").Value
    
        For i = 2 To Sayfa1.Range("A" & Rows.Count).End(xlUp).Row
            If veria = Sayfa1.Cells(i, "A").Value And verib = Sayfa1.Cells(i, "B").Value Then
                If Sayfa1.Cells(i, "F").Value = "" Then
                Sayfa1.Cells(i, "F").Value = verie
                Else
                Sayfa1.Cells(i, "G").Value = verie
                End If
            End If
            Sayfa1.Cells(i, "H").Value = (Sayfa1.Cells(i, "F").Value + Sayfa1.Cells(i, "G").Value) / 2
            Sayfa1.Cells(i, "I").Value = Sayfa1.Cells(i, "H").Value * 10
        Next i
    Next aranacaksatir

Sayfa1.Range("A2:J" & Sayfa1.Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=Array(1, 2)
Application.ScreenUpdating = True
Sayfa1.Columns(5).EntireColumn.Delete

End Sub

 

[ÖmerFaruk]

Dosyanızı paylaşıp, yapmak istediğinizi kısa ve öz açıklarsanız çözüm için daha faydalı olacaktır.