Run Time Error '6' Overflow hatası?

[udentr2002]

Merhaba arkadaşlar aşağıdaki kod çalışırken

Private Sub CommandButton12_Click()
Dim s1 As Worksheet, sat1 As Long, sat2 As Long, i As Long, k As Range, adr As String
Dim toplam As Double
Sheets("Sarf").Select
Application.ScreenUpdating = False
Range("A3:L65536").ClearContents
Set s1 = Sheets("Rapor")
sat1 = s1.Cells(65536, "B").End(xlUp).Row
sat2 = 3
For i = 3 To sat1
    If WorksheetFunction.CountIf(s1.Range("B3:B" & i), s1.Cells(i, "B").Value) = 1 Then
        Set k = s1.Range("B3:B" & sat1).Find(s1.Cells(i, "B").Value, , xlValues, xlWhole)
        toplam = 0
        If Not k Is Nothing Then
            adr = k.Address
            Do
                Range("A" & sat2 & ":L" & sat2).Value = s1.Range("A" & k.Row & ":L" & k.Row).Value
                sat2 = sat2 + 1
                toplam = toplam + s1.Cells(k.Row, "I").Value
                Set k = s1.Range("B3:B" & sat1).FindNext(k)
            Loop While Not k Is Nothing And k.Address <> adr
            Cells(sat2, "H").Value = "TOPLAM"
            Cells(sat2, "I").Value = toplam
            sat2 = sat2 + 2
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & "İbrahim Ö", vbOKOnly + vbInformation, "N"


End Sub

kodlarının çalışması sırasında Run time error 6 overflow hatası verip aşağıdaki kodu sarı renkte işaretliyor.

Range("A" & sat2 & ":L" & sat2).Value = s1.Range("A" & k.Row & ":L" & k.Row).Value

bunun sebebi ne olabilir vede nasıl düzeltebilrim?

 

[ReBiwAr]

arkaplanda başka excel çalışıyor mu arkadaşım ?

 

[udentr2002]

Hayır üstad sadece ilgili dosya açıkken çalıştırdım yine aynı hatayı verdi

 

[ReBiwAr]

tam emin değilim araştırıyorum ancak sanırım şu Dim toplam As Double problem yaratıyor. Kırmızı ile işaretlediğim tanımlamanın geçtiği satırlarda bir hata var

Örnek dosya ekler misiniz?

 

[ReBiwAr]

toplamın yaptığı sonuç çok büyük galiba kontrol edin lütfen...

 

[udentr2002]

Hocam ilgin ve alakan için çok teşekkür ederim.
Dosyanın kendisi çok büyük vede şirket amaçlı çok özel bilgiler içermekte.

Bundan dolayı dosyanın kendisini ekleyemiyorum.

Kodların açıklması şöyle,

Rapor sayfasında tarihlere göre ayrılmış veriler var bu verilerde B stünunda isimler vardır mesala A hammaddesi B hammaddesi ,,, gibi
button 12 'ye tıkladığımızda rapor sayfasındaki verileri B stünunda yazan isimlerin olduğu satırları aynı olanları alt alta yazıp H stununa da TOPLAM yazıp I stununada bu verilerin sayısal toplamını yazan kodlardır. Dosyanın bütün kodları sorunsuz çalışmakta sadece o yazdığım kodlarda sorun çıkmaktadır. Ayrıca sarf yazan sayfaya bazı verileri dediğim şekilde yazıyor ama belli bir yerden sonrasını yazmıyor. Tekrar bakabilrseniz çok sevinirim.

 

[ReBiwAr]

oky dosyayı eklemeyin ancak örnek bir dosya hazırlamanız mümkün mü?

Ayrıca benim iddiam şu; I sütununa yazılan ve bunu sağlayan toplam tanımlaması toplama yapamıyor. Bazı değerler çok büyük sanırım (Dim toplam As Double toplama yapamıyor)

saygılar

 

[ReBiwAr]

üzgünüm gün sonu geldi size yardımcı olamayabilirim,

İyi Çalışmalar ve bol şanslar

 

[ReBiwAr]

sorununuzu çözebildiniz mi?

 

[udentr2002]

Hocam ekte örneği yolluyorum. Dosyanın çalışma mantığı şöyle,

Formu açınız rapor sekmesinde mesala 01.03.2010 ila 31.03.2010 tarih aralığını giriniz bu aralığı girdikten sonra rapor al butonuna tıkladığınızda o tarih aralığında yapılan giriş çıkışları Stok Takip sayfasından süzüp Rapor sayfasına yazdırıyor. Bu raya kadar bir şey yok. rapor butonuna tıkladıktan sonra Sarf için döküm al butonuna tıkladığımızda rapor sayfasına aldığı verilerden isimleri aynı olan hammaddeleri alt alta gelecek şekilde yazıp H stünuna Toplam yazıp I stununa da alt alta sıraladığı verilerin toplamını alıyor. işte bu sırada hata veriyor sanırım. Bu sorunu giderebilmek için kodlarda nasıl değişiklik yapabilirim.

Şimdiden ilgilenen tü arkadaşlarıma çok teşekkür ederim.

 

[ReBiwAr]

Dosyanız ekte

Sorunun kaynağı rapor sayfasındaki BATCH NO sütunu. Çünkü bu sütunda bazı değerler (ben bir tane gördüm.) excelin tanıyamayacağı ###### hatasına düşmekte. Bu nedenle de hesaplama sırasında hatalar oluşmakta. Örneğin Mart 19 a kadar hatalı bir batch no olmadığından 01 - 19 mart arası sorun oluşturmamakta.

Çözüm:
Rapor sayfasındaki BATCH NO sütununun hücre biçimlendirmesini Genel olarak ayarladım. O zaman excel bütün batch noları tanıdı.(##### hatası yok) Sarf için döküm al dedim. Sorun düzeldi.

Bilginize sunar, iyi çalışmalar dilerim.

 

[udentr2002]

Hocam ellerinize sağlık yordum sizi hakkınızı helal edin.

 

[ReBiwAr]

Ne demek helal olsun sizde helal edin

Bilgi paylaştıkça büyür...