VBA CODE REQUIRED

[ShoaibAli]

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

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

 

[Fluff]

Can you please explain, in words, what you need to do.

 

[ShoaibAli]

Hi Fluff,

First attached picture has data and second picture has result. I want proper VBA code i have made a code but it is not proper.

 

[Fluff]

I am not going to try & guess what you want.
Please describe in words what you need.

 

[ShoaibAli]

First attached picture has Data on which i have to apply VBA CODE.

I would like to have Column B,C,D,E,F,H,AH all other columns would be deleted

Column(AH) would be adjust as first Column(A)
Column(H) would be adjust as Column(D)
Column(B,C,D) would be adjust as Column(E) with combine name formula as can seen in VBA COde
Column(F) would be adjust as Column(F)

and have to add "AGE" from DOB and DATE, which would adjust in Column(G)

Sex will be add in last column =if(Male="Male","M","F")

 

[Fluff]

and have to add "AGE" from DOB and DATE, which would adjust in Column(G)

How are you calculating the age?

 

[Snakehips]

My best guess give or take the age calc....

Sub MyVBACODE2()
Application.ScreenUpdating = False
Dim i As Integer
Range("G:G,I:AG,AI:AZ").EntireColumn.Delete
Columns("A:A").Insert Shift:=xlToRight
LastRow = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 5).Value = Trim(Cells(i, 5) & ", " & Cells(i, 3) & " " & Cells(i, 4))
Next i

Range("I:I").Cut Range("A:A")
Range("B:C").ClearContents
Range("H:H").Cut Range("D:D")
Range("F:F").Cut Range("J:J")
Range("F:F").EntireColumn.Delete
'***
'Range("G2:G" & LastRow).FormulaR1C1 = "=????"
'***
Range("G1") = "Age"
Columns("A:I").EntireColumn.AutoFit
Range("H:H").EntireColumn.Delete
Application.ScreenUpdating = True
End Sub

Hope that helps.

 

[Fluff]

Please supply the cross post link to the other site where you have asked this question.

 

[ShoaibAli]

Link is in my first comment.

 

[ShoaibAli]

Snakehips

thanks for updating the Code but it is not calculating the age which will be done by calculating the Column(F) and Column(D).

and "Male" , "Female" should be show as "M" , "F".