Soru Excel Makro 1004 Hatası

[ahmetcankocc]

Merhaba, herkese kolay gelsin. Bir excel üzerinden çalışıyordum ve bir sütunda tk sayısını saymasını istiyorum fakat 1004 hatası ile baş başa kalıyorum. Konu ile alâkalı bilginiz mevcut ise yardım ederseniz sevinirim. İyi çalışmalar.

Sub tip_transkript_kontrol()

Dim adisoyadi As String

adisoyadi = Cells(5, "I")
Dim birdonem As Integer
Dim ikidonem As Integer
Dim ucdonem As Integer
Dim dortdonem As Integer
Dim besdonem As Integer
Dim altidonem As Integer
Dim tksayisi As Integer
Dim tknottoplam As Integer
Dim sayac As Integer
tksayisi = 0
Dim i As Integer


MsgBox (adisoyadi & " Adlı kişinin transkripti kontrol ediliyor.")


    'For i = 0 To 400 'Dönemleri kontrol edeceğiz
        If Cells(i, "A") = "Dönem1" And birdonem <> 1 Then
            Do While Veri.FormatConditions(1).Interior.Color = 15 'arka planı gri olanlara bakacak
                sayac = i + 1
                   Do While Cells(sayac, "U" = "ANO / AGNO") ' TK Sayılarını bulacak
                        If (Cells(sayac, "U" = "TK")) Then
                            tksayisi = tksayisi + 1
                        End If
                        MsgBox (tksayisi)
                    Loop
              Loop
        End If
    'Next i


End Sub

8oz27iy.PNG

ff

www.hizliresim.com

 

[Korhan Ayhan]

"i" döngüsü kurmuşsunuz fakat pasif hale getirmişsiniz. "i" döngüsü 0 (sıfır) değeriyle başlıyor. Excelde sıfırıncı satır yoktur. Bu değişkeni kontrol edip düzeltmeniz gerekiyor.