Kullanıcı
- Katılım
- 7 Tem 2017
- Mesajlar
- 69
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhabalar,
ekteki dosyada kullanılan makro kodlarının açıklaması nı nasıl öğrenebilirim. Hangi kodlar neyi ifade ediyor şeklinde.
Sub birleştirr()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("birleştir").Range("b2:p65536").ClearContents
Sheets("birleştir").Range("b2:p65536").Borders.LineStyle = xlNone
Set s1 = ThisWorkbook.Worksheets("birleştir")
For i = 2 To s1.Range("A65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
For k = 2 To s2.Range("A65536").End(xlUp).Row
sonsatir = s1.Range("b65536").End(xlUp).Row + 1
For z = 1 To 10
s1.Cells(sonsatir, z + 1) = s2.Cells(k, z)
s1.Cells(sonsatir, z + 1).Borders.LineStyle = xlContinuous
Next z
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
ekteki dosyada kullanılan makro kodlarının açıklaması nı nasıl öğrenebilirim. Hangi kodlar neyi ifade ediyor şeklinde.
Sub birleştirr()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("birleştir").Range("b2:p65536").ClearContents
Sheets("birleştir").Range("b2:p65536").Borders.LineStyle = xlNone
Set s1 = ThisWorkbook.Worksheets("birleştir")
For i = 2 To s1.Range("A65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
For k = 2 To s2.Range("A65536").End(xlUp).Row
sonsatir = s1.Range("b65536").End(xlUp).Row + 1
For z = 1 To 10
s1.Cells(sonsatir, z + 1) = s2.Cells(k, z)
s1.Cells(sonsatir, z + 1).Borders.LineStyle = xlContinuous
Next z
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
