macro oluşturmak

[onurozbay]

Arkadaşlar yine burada oluşturulan bir makroyu başka bir kitaba uygulama iştiyorum sadece mevcut macro düzenlenecek yardımcı olur iseniz cok mutlu olurum .
kitapta sayfa oluştur ve sil kısmı çalışıyor .Oluşan sayfalara veri girildiğinde analiz tuşuna bastığımda verileri g.toplama getirmesini istiyorum .

http://s6.dosya.tc/server6/r6twic/ILCELER_PERFORMANS.xls.html

 

[turist]

"analiz" isimli Makroyu aşağıdaki gibi deneyin.

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Set ss1 = ThisWorkbook.Worksheets("G_TOPLAM")
ss1.Range("d9:L69").ClearContents

For i = 6 To ss1.Range("p65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(ss1.Cells(i, "p").Value)
For z = 9 To 69
If s2.Cells(z, "b") = ss1.Cells(z, "b") Then

ss1.Cells(z, 4) = ss1.Cells(z, 4) + s2.Cells(z, 4)
ss1.Cells(z, 5) = ss1.Cells(z, 5) + s2.Cells(z, 5)
ss1.Cells(z, 6) = ss1.Cells(z, 6) + s2.Cells(z, 6)
ss1.Cells(z, 7) = ss1.Cells(z, 7) + s2.Cells(z, 7)
ss1.Cells(z, 8) = ss1.Cells(z, 8) + s2.Cells(z, 8)
ss1.Cells(z, 9) = ss1.Cells(z, 9) + s2.Cells(z, 9)
ss1.Cells(z, 10) = ss1.Cells(z, 10) + s2.Cells(z, 10)
ss1.Cells(z, 11) = ss1.Cells(z, 11) + s2.Cells(z, 11)
ss1.Cells(z, 12) = ss1.Cells(z, 12) + s2.Cells(z, 12)

End If
Next z
Next i
Application.ScreenUpdating = True
MsgBox "Ýþlem TAMAM.", vbInformation
End Sub

 

[onurozbay]

Elleriniz dert görmesin