ShoaibAli
Banned - Rules violations
- Joined
- Jan 15, 2020
- Messages
- 121
- Office Version
- 365
- 2019
- 2016
- 2013
- 2011
- 2010
- 2007
- Platform
- Windows
Dear Experts,
Here is the Attached file and i have create some Code to do this which is incomplete Please made required changes and update the code according to requirements.
Sheet 1 has Data and Sheet2 has result
Here is the Attached file and i have create some Code to do this which is incomplete Please made required changes and update the code according to requirements.
Sheet 1 has Data and Sheet2 has result
VBA Code:
Sub MyVBACODE()
Dim i As Integer
Range("A:A,G:G,I:AG,AI:AZ").EntireColumn.Delete
Columns("A:A").Insert Shift:=xlToRight
For i = 2 To 10000
Cells(i, 1).Value = Cells(i, 4) & ", " & Cells(i, 2) & " " & Cells(i, 3)
Next i
Range("B:D").EntireColumn.Delete
Columns("A:G").Insert Shift:=xlToRight
Range("L:L").Cut Range("A:A")
Range("K:K").Cut Range("D:D")
Range("H:H").Cut Range("E:E")
Range("J:J").Cut Range("F:F")
Range("i:I").Cut Range("G:G")
worksheet.range("
End Sub
Macros to VBA - OzGrid Free Excel/VBA Help Forum
Dear Experts i'm using below Macros to run my sheet according to requirements but i need to squeeze (Short) this code like VBA. Please Help (Code, 185 lines)
www.ozgrid.com