bu kodların anlamını bilen varmı acaba?

[ttahir]

Merhaba arkadaşlar;Aşağıdaki kodun satır olarak anlamlarını yazabilirmisiniz bana acaba.Ben bu kodu bu siteden aldım ve kendime uyarlamaya çalışıyorum.Amacım yazılan isimlere göre otomatik sayfa oluşturmak.yardımcı olursanız çok sevinirim.şimdiden teşekkürler.




Option Explicit

Sub DAGIT()
Dim i, E, xr, sira As Long, Sayfa As String, S1 As Worksheet
Set S1 = Sheets("ÖDEMELER")
Application.ScreenUpdating = False
For i = 4 To S1.[A65536].End(3).Row
Sayfa = S1.Cells(i, "A")
If Not Sayfakontrol(Sayfa) Then

Sheets("ÖRNEK").Select
Sheets("ÖRNEK").Copy After:=Worksheets(Worksheets.Count)
Sheets("ÖRNEK (2)").Select
Sheets("ÖRNEK (2)").Name = Sayfa
End If

sira = Sheets(Sayfa).[F65536].End(3).Row + 1

xr = Sheets(Sayfa).Range("E" & Rows.Count).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Sheets(Sayfa).Range("E2:E" & xr), S1.Range("E" & i)) > 0 Then
GoTo atla
Else
Sheets(Sayfa).Range("A" & sira & ":F" & sira).Value = S1.Range("A" & i & ":F" & i).Value

Sheets(Sayfa).Range("A:E").EntireColumn.AutoFit
End If
atla:
Next i
Set S1 = Nothing
Application.ScreenUpdating = True
End Sub
Function Sayfakontrol(SAYFAADI As String) As Boolean
On Error Resume Next
Sayfakontrol = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function

 

[uzmanamele]

Merhaba

Bu şekilde satır satır açıklama isterseniz, kodları yazan arkadaşın bile bunu yapacağını sanmıyorum.
Örnek dosya ile sorun, kodun revize edileceği yeri belirtin.

 

[ttahir]

Çok özür dilerim ya.Bilmemek böyle birşey sanırım.Dosya ve açıklaması ektedir.Teşekkürler.

 

[ttahir]

sayın uzmanamele yardımcı olabilecekmisiniz acaba.yada yardımcı olabilecek kimse yokmu acaba