mükkerrer kod donma sorunu

[dangerboys35]

merhaba,

ekteki tabloda mükerrer kayıtları toplayan bir command butonum var.

fakat butona bastığımda excel donuyo topluyo fakat saatlerce beklemek gerekiyo.

bu sorunu neden yapar çözemedim yardımcı olursanız sevinirim.

 

[Husgvarna]

merhaba,

ekteki tabloda mükerrer kayıtları toplayan bir command butonum var.

fakat butona bastığımda excel donuyo topluyo fakat saatlerce beklemek gerekiyo.

bu sorunu neden yapar çözemedim yardımcı olursanız sevinirim.

Aşağıdaki gibi denediniz mi?

Private Sub CommandButton1_Click()
Application.Calculation = xlManual
Application.ScreenUpdating = False
a = Cells(5000, 1).End(xlUp).Row
For i = 2 To a
If Cells(i, 1) = "" Then Exit Sub
For c = i + 1 To a
If Cells(i, 5) = Cells(c, 5) Then
Cells(i, 7) = Cells(i, 7) + Cells(c, 7)
Cells(i, 8) = Cells(i, 8) + Cells(c, 8)
End If
If Cells(i, 5) = Cells(c, 5) Then
Rows(c).Delete
c = c - 1
End If: Next
a = Cells(5000, 1).End(xlUp).Row
Next
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

 

[dangerboys35]

denedim olmadı.
atık sayfasında G sütunundaki 9 haneli mükerrer olan mal numaraları ürünlerin I ve J sütunundaki verileri toplayarak vermesini diğer aynı olanları silmesini istiyorum sadece I ve J sütununu toplıcak.
rtc sayfasında da F sütununda aynı olan ürün numarası ile H ve I sütununu toplamasını istiyorum.

 

[Husgvarna]

denedim olmadı.
atık sayfasında G sütunundaki 9 haneli mükerrer olan mal numaraları ürünlerin I ve J sütunundaki verileri toplayarak vermesini diğer aynı olanları silmesini istiyorum sadece I ve J sütununu toplıcak.
rtc sayfasında da F sütununda aynı olan ürün numarası ile H ve I sütununu toplamasını istiyorum.

Eki inceleyin.

 

[dangerboys35]

teşekkürler desteğiniz için