Object defined error alıyorum

[spasmex97]

While b > 0
 
            For j = 1 To (satir - 1)
             i = Sheets("sayfa3").Cells(1, 3)
              Set xrange2 = Sheets("sayfa4").Rows(i)
      
                If Sheets("sayfa4").Cells(i, j) > 0 And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(xrange2) Then
                    If (i = listesatir(i) And j = listesutun(i)) Or (i = listesutun(i) And j = listesatir(i)) Then
                        a = a + 1
                        Sheets("sayfa5").Cells(a, 1) = i
                        Sheets("sayfa5").Cells(a, 2) = j
                        Sheets("sayfa4").Cells(i, j).ClearContents
                        b = b - 1
                        
                    
                    Else
                        
                        a = a + 1
                        Sheets("sayfa5").Cells(a, 1) = i
                        Sheets("sayfa5").Cells(a, 2) = j
                        Sheets("sayfa4").Cells(i, j).ClearContents
                        Sheets("sayfa4").Cells(j, i).ClearContents
                        b = b - 2
                        
                    
                    End If
                
                      Sheets("sayfa3").Cells(1, 3) = j
                End If
                
                
                
            Next j
       Wend

kodun Set xrange2 = Sheets("sayfa4").Rows(i) kısmında hata alıyorum

 

[ÖmerFaruk]

Sheets("sayfa3").Cells(1, 3) buradaki değer bir doğal sayı mıdır?
Xrange2 değişkenini RANGE olarak tanımladınız mı?

 

[spasmex97]

Sheets("sayfa3").Cells(1, 3) buradaki değer bir doğal sayı mıdır?
Xrange2 değişkenini RANGE olarak tanımladınız mı?

tanımladım ve evet doğal sayı

 

[ÖmerFaruk]

Kodları da içeren ve hata veren örnek dosyanızı yükleyebilirsen bakalım.

 

[spasmex97]

CPPmakro.xlsm dosyasını indir - download

CPPmakro.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[ÖmerFaruk]

Sheets("sayfa3").Cells(1, 3) buradaki değer bir doğal sayı mıdır?
Xrange2 değişkenini RANGE olarak tanımladınız mı?

#2 nolu mesajımda sormuştum. Siz hiç kontrol etmeden cevap yazıyorsunuz.
Sayfa3.Cells(1,3) yani C1 hücreniz boş.
i değişkeniniz mecbur bir doğal sayı olmak zorunda.

 

[spasmex97]

sanırım kaydetmede bir hata olmuş normalde benim dosyamda o hücre dolu