Makronun açılımı

[unur]

Günaydın Arkadaşlar;
Öncelikle Geçmiş bayramınız Mübarek olsun ve yeni yılınız sağlık mutluluk getirsin.
Bir bordro çalışması var elimde burada bir butona alttaki makroyu yüklemişler.Bordoryu kullanıyorum ancak bu makronun ne işe yaradığını bir türlü çözemedim.Tek anladığım Personel girişindeki bilgileri kopayalayıp sayfa1' ekopyalıyor ancak devamındaki kodların açıklamasında ne işe yaradığı konusunda yardımcı olursanız sevinirim.Teşekkürler



Range("A15:J763").Select
Sheets("Sayfa1").Visible = True
Sheets("PERSONEL GİRİŞİ").Select
Selection.Copy
Sheets("Sayfa1").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:J").Select
Range("J1").Activate
Application.CutCopyMode = False
Selection.Sort Key1:=Range("J1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:J").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Selection.End(xlToRight).Select
Range("A1:I749").Select
Selection.Copy
Sheets("PERSONEL GİRİŞİ").Select
Range("A15").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C15").Select
Sheets("Sayfa1").Select
Columns("A:K").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWindow.SelectedSheets.Visible = False
Range("I14").Select

 

[alpi]

Range("A15:J763").Select
A15:J763 aralığı seçiliyor
Sheets("Sayfa1").Visible = True
Gizli olan Sayfa1 Görünür hale getiriliyor
Sheets("PERSONEL GİRİŞİ").Select
PERSONEL GİRİŞİ adlı sayfa seçiliyor
Selection.Copy
seçili alan (A15:J763) kopyalanıyor
Sheets("Sayfa1").Select
Sayfa1 seçiliyor
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Seçili alan Sayfa1 e yapıştırılıyor.
Columns("A:J").Select
A:J kolonları ve arasındakiler seçiliyor
Range("J1").Activate
J1 hücresi seçiliyor
Application.CutCopyMode = False
Kopyalanan alan belirteçleri kaldırılıyor
Selection.Sort Key1:=Range("J1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Seçili alan J sutünu baz alınarak sıralama yapılıyor
Columns("A:J").Select
A:J kolonları ve arasındakiler seçiliyor
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Seçili alan A sutünu baz alınarak sıralama yapılıyor
Range("A1").Select
A1 hücresi seçiliyor
Selection.End(xlToRight).Select
A1 hücresinin sağındaki en son dolu hücre seçiliyor
Range("A1:I749").Select
A1:I749 Alanı seçiliyor
Selection.Copy
Seçili alan kopyalanıyor
Sheets("PERSONEL GİRİŞİ").Select
PERSONEL GİRİŞİ sayfası seçiliyor
Range("A15").Select
A15 seçiliyor
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Kopyalanan alan A15 hücresine yapıştırılıyor
Range("C15").Select
C15 seçiliyor
Sheets("Sayfa1").Select
Sayfa1 seçiliyor
Columns("A:K").Select
A:K kolonları ve arasındakiler seçiliyor
Application.CutCopyMode = False
Kopyalanan alan belirteçleri kaldırılıyor
Selection.Delete Shift:=xlToLeft
Seçili alan siliniyor
Range("A1").Select
A1 seçiliyor
ActiveWindow.SelectedSheets.Visible = False
Seçili sayfa gizleniyor
Range("I14").Select
I14 hücresi seçiliyor.

 

[Levent Menteşoğlu]

Sn alpi

Açıklamalarınızı farklı bir renkte düzeltirseniz bence daha iyi olur, bu şekilde oldukça karışmış.

 

[unur]

Teşekkürler Alpi;
Elinize sağlık