Hi
1)
Date issues
This is what I see for the first part of Table 1 Output:
Attachment 422131
For the reasons i mentioned already you may have to experiment yourself with the formats within both Input and Output sheets. I have not yet been successful in controlling this fully.
_.....................................
2)

Originally Posted by
ripan81
..........
I require one more help in the macro.
If you can edit macro to meet table requirements as per " Revised Example Data- Table size.xlsx " that will be of great help. I tried but could not succeed......
These changes should meet this new requirement:
Const TLinc = 9: Const TLoutc = 2: Const TLinOffsetc = 26: Const TLoutOffsetc = 26 'Top left column of tables and column offsets
Dim lc As Long: Let lc = wsOut.Cells(12, Columns.Count).End(xlToLeft).Column 'The Range Object ( cell ) that is the last cell in the row of interest has the property .End ( argument Xl to left ) appleid to it. This returns a new range ( cell ) which is that of the first Range ( cell ) with something in it "looking back" the XL spreadsheet from the last cell. Then the .Column Property is applied to return a long number equal to the column number of that cell
Dim TN As Long, lTN As Long: Let lTN = Application.WorksheetFunction.RoundUp(lc / TLoutOffsetc, 0) 'Table number, Number of Tables RoundUp in case not all new columns are Full
_ ..........
3 )

Originally Posted by
ripan81
.....can help how to Paste screen shot of excel tables ? Somehow I could not figure out how to use it form Signature ?
See my reply in Post # 9 ___2)
_................
See how you get on and report back. Then I will see if I can help further
Alan
Bookmarks