MAKRO KODLARININ AÇIKLAMASI

[Erdinç FIRTINA]

DEĞERLİ FORUM UYELERİ,

Siz değerli üyelerin düzenlemiş olduğu makro kodlardan yararlanarak işlem yaptım. Aşağıda yer alan kodların açıklamaları konusunda yardımlarınızı bekliyorum.
(????) işaretleri ile belirtilen satırların açıklamaları konusunda yardımlarınızı bekliyorum. Söz konusu satırların açıklamaları doğrultusunda yeniden düzenlemeler yapabilmek istiyorum.

Yardımlarınız için şimdiden çok teşekkür ediyorum.

Sub AKTAR_ALİ_2_HAFTALIK()
Dim S1 As Worksheet, (?????) S2 As Worksheet (?????)
Dim X As Byte, (?????) y As Long (?????)
Dim Satır As Long (?????)
Set S1 = Sheets("HAFTALIK") (HAFTALIK adlı sf TANIMLANDI)
Set S2 = Sheets("ALT ALTA") (ALT ALTA SF TANIMLANDI)
S1.Select ( HAFTALIK ADLI SF SEÇ)
Satır = 2 (????)
S2.[C2:I65536].ClearContents (ALT ALTA SAYFASINDA C2 İLE I65536 ARASINDAKİ VERİLERİ SİL)
For X = 2 To 129 (????)
For y = 7 To [a65536].End(3).Row (?????)
If Cells(y, X) <> "" Then (?????)
Cells(y, 1).Copy S2.Cells(Satır, 4) (?????)
Cells(6, X).Copy S2.Cells(Satır, 5) (?????)
Cells(4, X).Copy S2.Cells(Satır, 6) (?????)
Cells(3, X).Copy S2.Cells(Satır, 7) (?????)
Cells(y, X).Copy S2.Cells(Satır, 3) (?????)
If Left(UCase(Cells(y, X)), 4) = "GRUP" Then (?????)
S2.Cells(Satır, 8) = "GRUP" (?????)
Else (?????)
S2.Cells(Satır, 8) = "BİREYSEL" (?????)
End If (?????)
Satır = Satır + 1 (?????)
End If (?????)
Next (?????)
Next (?????)
With S2.Range("C1:H" & S2.[C65536].End(3).Row) (?????)
.Borders(xlDiagonalDown).LineStyle = xlNone (?????)
.Borders(xlDiagonalUp).LineStyle = xlNone (?????)
.Borders(xlEdgeLeft).LineStyle = xlContinuous (?????)
.Borders(xlEdgeTop).LineStyle = xlContinuous (?????)
.Borders(xlEdgeBottom).LineStyle = xlContinuous (?????)
.Borders(xlEdgeRight).LineStyle = xlContinuous (?????)
.Borders(xlInsideVertical).LineStyle = xlContinuous (?????)
.Borders(xlInsideHorizontal).LineStyle = xlContinuous (?????)
End With (?????)
With S2.Range("C1:H" & S2.[C65536].End(3).Row) (?????)
.Borders(xlDiagonalDown).LineStyle = xlNone (?????)
.Borders(xlDiagonalUp).LineStyle = xlNone (?????)
.Borders(xlEdgeLeft).LineStyle = xlContinuous (?????)
.Borders(xlEdgeLeft).Weight = xlMedium (?????)
.Borders(xlEdgeTop).LineStyle = xlContinuous (?????)
.Borders(xlEdgeTop).Weight = xlMedium (?????)
.Borders(xlEdgeBottom).LineStyle = xlContinuous (?????)
.Borders(xlEdgeBottom).Weight = xlMedium (?????)
.Borders(xlEdgeRight).LineStyle = xlContinuous (?????)
.Borders(xlEdgeRight).Weight = xlMedium (?????)
.Borders(xlInsideVertical).LineStyle = xlContinuous (?????)
.Borders(xlInsideHorizontal).LineStyle = xlContinuous (?????)
End With (?????)
Set S1 = Nothing (?????)
Set S2 = Nothing (?????)
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub