Kod açıklaması yardım

[Erdinç FIRTINA]

Değerli üyeler,
Yayınlanmış olan makro kodlarını kendi dosyama uyarlamak istiyorum. Eğer kodların açıklamasını yaparsanız dosyama uyarlayabileceğimi düşünüyorum. Yardımı olan herkese şimdiden teşekkürler!!!!


Sub AKTAR_ALT_TOPLAM_AL()
Sheets("TOPLAM").Select
[B5:F65536].RemoveSubtotal
[B5:F65536].Clear
For X = 1 To Sheets.Count - 1
SATIR = Sheets(X).[A65536].End(3).Row
If SATIR <> 4 Then
SON_SATIR = [B65536].End(3).Row + 1
Sheets(X).Range("A5:E" & SATIR).Copy Range("B" & SON_SATIR)
End If: Next
Range("B4:F" & [B65536].End(3).Row).Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(3, 5), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Skorpiyon]

Sayın sefkatim,

Anlayabildiğim kadarıyla anlatmaya çalışayım. Yanlış olduğum noktalar var ise arkadaşlar düzeltsinler.

Sub AKTAR_ALT_TOPLAM_AL()
Sheets("TOPLAM").Select 'Toplam sayfasını seç
[B5:F65536].RemoveSubtotal 'B5 ile F65536 arasındaki tüm alttoplamları kaldır
[B5:F65536].Clear 've temizle
For X = 1 To Sheets.Count - 1 'Mevcut sayfa sayısının 1 eksiği kadar say
SATIR = Sheets(X).[A65536].End(3).Row 'Satır diye bir değişken tanımlanıyor ve değişkene seçilen sayfanın en alt satırı gösteriliyor
If SATIR <> 4 Then 'Eğer seçilen sayfanın en alt satırındaki değer 4'e eşit değilse
SON_SATIR = [B65536].End(3).Row + 1 'SonSatır değişkeni tanımlanıyor
Sheets(X).Range("A5:E" & SATIR).Copy Range("B" & SON_SATIR) 'O an seçili olan sayfa için A5:E arası ile en son satır arası kopyalatılıyor
End If: Next' Eğer satır eşit değil 4 döngüsü bitiriliyor ve next döngüsü bitiriliyor.
Range("B4:F" & [B65536].End(3).Row).Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(3, 5), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'Bu satırı anlamakta zorluk çekiyorum ama anladığım kadarıyla,
'Aktif sayfada B4:F ile son satır arasında alt toplam aldırılıyor.
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation 'İşlem tamam
End Sub

gibi.

Bizim bilgimiz bu kadar. Eğer kodu yazan arkadaşı biliyorsanız kendisine sormanız doğru yanıt almanızda daha etkili olacaktır diye düşünüyorum.

Saygılarımla...

 

[Erdinç FIRTINA]

Say&#305;n Sertkaya,
&#199;ok &#231;ok te&#351;ekk&#252;rler!!!