hi
i have 2 file please fine attached
i want to get the info from file 1 and transfer it to file 2 and make it looks like it is in file 2 can some one please help
here is file 1
Book1.zip
what i want is to get the info from the column fund ownership column
and put it into book 2 and make it look like this
Book3.zip
here is the code i have done for far but it wont work right
Code:
Sub FUND_OWNERSHIP()
Dim i As Long, LR As Long
Application.ScreenUpdating = False
On Error Resume Next
Set ms = Workbooks("UBS_FND_OngoingCharge_Calc.xlsx").Sheets("Allocation")
With Worksheets("Allocation")
LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
For i = 1 To LR
If IsDate(.Cells(i, 1)) Then
.Cells(i, 1).Copy
ms.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
If Len(.Cells(i, "AD")) And .Cells(i, "AD") = "FUND OWNERSHIP %" Then
.Cells(i, "AD").Offset(1).Resize(4).Copy
ms.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
End If
Next i
End With
Application.CutCopyMode = 0
Columns(1).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = True
End Sub
can any help very stuck and need this done