Macro1
Sub Dist1()
'
' Dist1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub
Macro2
Sub Dist2()
'
' Dist2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
if have any probs pl contact me
Zulfikar Ali
[email protected]
09899780221
×