Object not defined hatası alıyorum

[spasmex97]

For i = 1 To 10
    
        Set xRange = Sheets("sayfa4").Rows(i)
    
            For j = 1 To 10
    
                If (i = 1 And j = 10) Or (i = 2 And j = 9) Or (i = 7 And j = 8) Or (i = 10 And j = 1) Or (i = 9 And j = 2) Or (i = 8 And j = 7) And Sheets("sayfa4").Cells(i, j) > 0 And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(xRange) Then
                    a = a + 1
                    Sheets("sayfa4").Cells(i, j).ClearContents
                    
                    Sheets("sayfa4").Cells(15 + a, 1) = i
                    Sheets("sayfa4").Cells(15 + a, 2) = j
                ElseIf Sheets("sayfa4").Cells(i, j) > 0 And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(xRange) Then
                    
                    a = a + 1
                        Sheets("sayfa4").Cells(i, j).ClearContents
                        Sheets("sayfa4").Cells(j, i).ClearContents
                        Sheets("sayfa4").Cells(15 + a, 1) = i
                        Sheets("sayfa4").Cells(15 + a, 2) = j
                    
                  
                      
                End If
                
            Next j
            
    Next i

niye böyle bir hata alıyorum bilmiyorum if statement çok uzun duruyor ama öyle olması gerekiyor mecburen başka bir yol aklıma gelmedi çözmek için

 

[Korhan Ayhan]

Kod hangi satırda hata veriyor?

 

[spasmex97]

Kod hangi satırda hata veriyor?

elseden sonraki
Else
a= a+1
Sheets("sayfa4").Cells(i, j).ClearContents
satırında

 

[Korhan Ayhan]

Sadece tahmin;

Sheets("sayfa4").Cells(i, j).ClearContents

Bu hücre birleştirilmiş hücre olabilir mi?

Ya da döngüdeki "a" değişkeni için bir tanımlama var mı?

 

[spasmex97]

Sadece tahmin;

Sheets("sayfa4").Cells(i, j).ClearContents

Bu hücre birleştirilmiş hücre olabilir mi?

Ya da döngüdeki "a" değişkeni için bir tanımlama var mı?

tabi var fakat şuan kod için yeni bir yaklaşım gerçekleştirdim
2 farklı yeni bakış açısı şeklinde kodu tekrardan yazdım bu sefer başka bir hata alıyorum

 

[muratboz06]

For i=1 satırından önce On Error Resume Next ifadesini ekleyiniz. Sonucu gözlemleyiniz istediğiniz sonuçlar oluşuyorsa başka bir çözüme gerek kalmayabilir. Fakat örnek dosya paylaşırsanız farklı çözüm üretilebilir.

 

[spasmex97]

For i=1 satırından önce On Error Resume Next ifadesini ekleyiniz. Sonucu gözlemleyiniz istediğiniz sonuçlar oluşuyorsa başka bir çözüme gerek kalmayabilir. Fakat örnek dosya paylaşırsanız farklı çözüm üretilebilir.

dosya nasıl paylaşabilirim?

 

[Orion1]

On error resume next kullanmayınız.Bu iyi değildir.Onun yerine hatayı bulup düzeltiniz.
Hatalı çalışan bir program istemezsiniz sanırım.

 

[spasmex97]

On error resume next kullanmayınız.Bu iyi değildir.Onun yerine hatayı bulup düzeltiniz.
Hatalı çalışan bir program istemezsiniz sanırım.

doğru diyorsunuz hatayı tanımlayamıyorum o yüzden yardıma ihtiyacım var

 

[Korhan Ayhan]

Dosyanızı harici paylaşım sitelerine yükleyip linkini forumda paylaşabilirsiniz. Yada Altın Üyelik satın alarak forumdan daha verimli şekilde faydalanabilirsiniz.

 

[spasmex97]

https://s2.dosya.tc/server13/t8xea9/tabuarama.xlsx.html

 

[muratboz06]

Açıklama yok mu?

 

[spasmex97]

Açıklama yok mu?

açıklama olarak kodun yapmasını istediğim şey i. satırın minimum değerini bulup koordinat değerlerini çıktı olarak alıp belirli durumlar haricinde o i,j ve j,i koordinatını silmek
sıradaki satır numarasını ise j yapmak , bütün hücrelerdeki değerleri dolaşarak tüm ayrıtlardan gidilmiş olmasını sağlamak

 

[muratboz06]

Son olarak örnek veride ulaşmaya çalıştığınız sonucu da yazarak excel dosyasını tekrar paylaşır mısınız.

 

[spasmex97]

Kusura bakmayın derslerim olduğundan cevap veremedim
https://s2.dosya.tc/server13/3eoj3f/tabuarama.xlsm.html