how is your sheet data.??? it contain a single column or multiple columns ??
On Wednesday, May 6, 2015 at 11:11:10 PM UTC+5:30, Chethan wrote:
Hi,
I need some help in modify the Macro. Current it combine multiple sheet in
one column. I need to copy each sheet to one column,
Like
Yes. it is single column A:A
On Thu, May 7, 2015 at 12:20 PM, Mandeep Baluja rockerna...@gmail.com
wrote:
how is your sheet data.??? it contain a single column or multiple columns
??
On Wednesday, May 6, 2015 at 11:11:10 PM UTC+5:30, Chethan wrote:
Hi,
I need some help in modify the
r u looking for this ??
Sub Combine()
Dim J As Integer
Dim rey As Range
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = Combined
Sheets(1).Activate
For J = 2 To Sheets.Count
Sheets(J).Activate
Range(A:A).Copy
Sheets(Combined).Select
If Range(XFD1).End(xlToLeft) = Then
Thank Pankaj
It work perfect. Yes i was looking for something like these
On Thu, May 7, 2015 at 7:28 PM, Pankaj Sharma pankaj123...@gmail.com
wrote:
r u looking for this ??
Sub Combine()
Dim J As Integer
Dim rey As Range
On Error Resume Next
Sheets(1).Select
Worksheets.Add