Bu makro kodunun anlamı nedir? ne is yapar?

[fosaloglu]

Arkadaşlar bu makro kodu tam olarak ne iş yapar ?


Sub protus()
'
' protus Makro
' Makro xxxxxx tarafından 01.02.2006 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+b
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:F").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.NumberFormat = "0"
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Cut
Columns("E:E").Select
ActiveSheet.Paste
Columns("C:C").ColumnWidth = 25.29
Columns("D: D").ColumnWidth = 20
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"","",RC[-1])"
Selection.Copy
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("D: D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B: D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 46.71
Range("B1").Select
Selection.End(xlDown).Select
Range("A6367").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6366").Select
Selection.End(xlUp).Select
End Sub

 

[fosaloglu]

hala cevap gelmedi???

karışık bir makro mu ?

 

[zafer]

Merhaba

A sütunularındaki metinleri yanındaki sütunlara ayırıyor.
Veri menüsündeki Metni sütunlara ayır'ın makro hali.


Makronuzu F8 tuşuna basarak çalıştırın(adım adım ilerler)
her kod satırında F8 tuşuna bastıktan sonra sayfanıza dönerek ne işlemi yaptığına bakın.