Özet Rapor

[magnet2014]

Arkadaşlar aşağıdaki kod sorunsuz çalışıyordu ama hata vermeye başladı neden olabilir?

Sub Dugme3_eksibutce()
Dim i As Long, sonsat As Long, sat As Long, k As Integer
Dim myarr()
sat = 6
Sheets("ÖZET RAPOR").Select
myarr = Array("", "Ch1-1 transfer", "Ch1-1 tr. c.over", "Ch1-2", "Ch1-2 c.over")
For k = 1 To 4
    sonsat = Sheets(myarr(k)).Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To sonsat
       [COLOR="Red"] If Sheets(myarr(k)).Cells(i, "A").Value = 1 And Sheets(myarr(k)).Cells(i, "N").Value < -1 Then[/COLOR]
            Sheets(myarr(k)).Range("A" & i & ":Q" & i).Copy
            Range("A" & sat).PasteSpecial xlPasteValuesAndNumberFormats
            sat = sat + 1
        End If
    Next i
    sat = sat + 1
    Application.CutCopyMode = False
Next k
MsgBox "ISLEM TAMAM"
End Sub

 

[Murat OSMA]

Dosya ile birlikte bakmak lazım.
Etkileyen bir nokta vardır.​

 

[magnet2014]

Dosya ile birlikte bakmak lazım.
Etkileyen bir nokta vardır.​

Dosya çok büyük ve şirket bilgilerini içerdiği için paylaşamıyorum. Sizin kodda gördüğünüz hataya sebep olabilecek bir durum var mı? Kırmızı ile işrateli kısımda hata veriyor

 

[Murat OSMA]

Kodlar çalışıyordu şimdi çalışmıyor hata veriyor dediğinizde sorunun kodlar dışında bir nedenden oluştuğunu söyleyebilirim.
Net yanıt verilebilmesi için örnek dosyanızı içinde 5-10 satır veri ile eklerseniz bakıp çözüm sunulabilir.​

 

[Korhan Ayhan]

Sayfa isimlerinizi kontrol ediniz.

Kod içinde tanımlanmış sayfa adları ile aynı olması gerekir.