Sayfaları Birleştir Makrosu, Kod Satırlarının Anlamı - İşlevi

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.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)

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ı Karşılaştırıp Olan ve Olmayanı Sayma arslanbey 6 Ara 2019 Makrolar ile İlgili Sorular
	Çalışma Sayfalarını ListBox Nesnesinde Listeleme cakarem 6 Haz 2024 Makrolar ile İlgili Sorular
	Gizli sayfaları PDF dönüştürme cakarem 5 Ara 2019 Makrolar ile İlgili Sorular
	Userform - Sayfaları Göster / Gizle zcn43 23 Ara 2020 Makrolar ile İlgili Sorular
	KodRevize İCMAL ve AY Sayfaları Açılsın YasarPiskin 23 Nis 2021 Makrolar ile İlgili Sorular

Sayfaları Birleştir Makrosu, Kod Satırlarının Anlamı - İşlevi

Kısa Açıklama