Rapor sorunu

[yavuz829]

Merhaba arkadaşlar aşağıdaki kodlar ile sayfalardan rapor aliyorum. Aldığım verilerin toplamını son satırda gösteriyor. Ancak rakamları topladığı zaman çok ilgisiz rakamlar veriyor. Rakamları çok, çok yüksek gösteriyor. Bu konuda yardımlarınızı bekliyorum.

Private Sub CommandButton8_Click()
Application.ScreenUpdating = False
Set Sİ = Sheets("liste")
Sİ.[A3:F1000].ClearContents
For Z = 2 To Sheets.Count
Sİ.Cells(SAT + 1, 1) = Sheets(Z).[A1].Value
Sİ.Cells(SAT + 1, 2) = Sheets(Z).[G3].Value
Sİ.Cells(SAT + 1, 3) = Sheets(Z).[G4].Value
Sİ.Cells(SAT + 1, 4) = Sheets(Z).[I3].Value
Sİ.Cells(SAT + 1, 5) = Sheets(Z).[I4].Value
Sİ.Cells(SAT + 1, 6) = Sheets(Z).[K3].Value
SAT = SAT + 1
Next
son = Cells(65536, "f").End(xlUp).Row + 1
Cells(son, "f") = WorksheetFunction.Sum(Range("f3:ı65536"))
Cells(son, "e") = WorksheetFunction.Sum(Range("e3:h65536"))
Cells(son, "d") = WorksheetFunction.Sum(Range("d3:h65536"))
Cells(son, "c") = WorksheetFunction.Sum(Range("c3:g65536"))
Cells(son, "b") = WorksheetFunction.Sum(Range("b3:f65536"))
Application.ScreenUpdating = True
MsgBox "AKTARMA İŞLEMİ TAMAMLANMIŞTIR." & vbCrLf & vbCrLf
End Sub

 

[asi_kral]

Merhaba
Dosya ekler misiniz_?

 

[yavuz829]

Hocam dosyayı ekledim.

 

[asi_kral]

Hocam dosyayı ekledim.

Dosyanızı açtım açar açmaz karşıma bir tane userform geldi kapat dedim dosya kapandı. Bir de bunu pasif duruma getirmek için mi uğraşayım şimdi. Bununla uğraşmaktansa başka bir soru ile ilgilenirim daha iyi.

 

[yavuz829]

Hocam X ile userformu kapatabilirsiniz.