I have two sheets A and B . I need to copy the columns ( A through an
unknown number of columns ) from sheet A into sheet B starting from
Row 52 . Issue I have is
--> Find the last row of the column (since its variable with each
column )
--> A simpler way to do this .
Here is what I have so far
Dim temp As String
temp = "Some file name of sheet A"
temp 1 = "Some file name of sheet B"
Workbooks.Open fileName:=temp
ThisWorkbook.Activate
i = 1
j = 1
`finding last cell to which I need to select in sheet A
LRow = fileName.Cells(Rows.Count, j).End(xlUp).Row
' While loop to go thru each cell in colum 1 of sheet A and copy
it to column of sheet B starting from cell (A,52)
Do Until i < 6000
Worksheets("temp1's name").Cells(i + 51, j).Value = temp.Cells(i,
j).Value
i = i + 1
Loop
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
