Sayfaları Birleştirme Makrosunun Kod Satırlarını Açıklama

umit1907 · 18 Kas 2019

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

Ömer BARAN · 18 Kas 2019

Merhaba.

Önce bir bilgi:
Forumda makro kodları/formülleri eklemek için, mesaj yazma alanının hemen üstündeki ÜÇ NOKTA-AŞAĞI OK simgesine tıklayıp,
uygun seçeneği işaretlediğinizde karşınıza çıkacak tür işaretlerinin arasına yani [ CODE ] bu araya [ /CODE ] kodları yapıştırırsanız,
aşağıda benim verdiğim kodlar gibi bir görünüm elde edilir ve kullanış açısından daha iyi olur.

Sorunuza gelince;
ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin ve MODULE'de mevcut kodların yerine,
herbir satıra açıklama eklenmiş aşağıdaki halini yapıştırın.
VBA ekranına yapıştırdığınızda; işleyişe bir engeli olmayan açıklama kısımları farklı renkte görünür.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (19 satır). Giriş Yap

umit1907 · 18 Kas 2019

Ömer BARAN' Alıntı:
Merhaba.

Önce bir bilgi:
Forumda makro kodları/formülleri eklemek için, mesaj yazma alanının hemen üstündeki ÜÇ NOKTA-AŞAĞI OK simgesine tıklayıp,
uygun seçeneği işaretlediğinizde karşınıza çıkacak tür işaretlerinin arasına yani [ CODE ] bu araya [ /CODE ] kodları yapıştırırsanız,
aşağıda benim verdiğim kodlar gibi bir görünüm elde edilir ve kullanış açısından daha iyi olur.

Sorunuza gelince;
ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin ve MODULE'de mevcut kodların yerine,
herbir satıra açıklama eklenmiş aşağıdaki halini yapıştırın.
VBA ekranına yapıştırdığınızda; işleyişe bir engeli olmayan açıklama kısımları farklı renkte görünür.
[Gizlenmiş içerik]

Eline Sağlık Ömer abi bir dahaki konu açılışında dediklerinize dikkat edeceğim.

Sayfaları Birleştirme Makrosunun Kod Satırlarını Açıklama

umit1907

Ekli dosyalar

Ömer BARAN

umit1907

Benzer konular Benzer kaynaklar Benzer dosyalar