Thanks sir it's working macro as my expecting
Thanks with
Mothilal.J
On Thu, Jul 12, 2012 at 10:31 PM, Paul Schreiner <schreiner_p...@att.net>wrote:
> Are you wanting to do this manually?
> or with a macro?
>
> To do it manually,
> 1. Select the sheets you want updated.
> 2. Select Sheet1
> 3. Right-click on the first column to change
> 4. Select Column Width from the menu
> 5. Hit "OK" (or change the ## and hit OK)
> Repeat steps 3-5 for all columns...
>
> --------------------------
> If you want to use a macro:
>
> This macro will change ALL sheets to be the same column width as the sheet
> named "Sheet1".
>
> ---------------------------------------------------------------------------------------------------------------------
> Option Explicit
> Sub Match_ColumnWidth()
> Dim Col, ColFirst, ColLast
> ColFirst = 1
> ColLast = 30
> ActiveWorkbook.Sheets.Select
> Sheets("Sheet1").Activate
> Application.ScreenUpdating = False
> For Col = ColFirst To ColLast
> Cells(1, Col).EntireColumn.Select
> Selection.ColumnWidth = Selection.ColumnWidth
> Next Col
> Application.ScreenUpdating = True
> Range("A1").Select
> End Sub
>
> ---------------------------------------------------------------------------------------------------------------------
> If you want only SPECIFIC sheets changed (not all sheets in the workbook)
> then change the following macro to include only those sheets you want to
> update:
>
> ---------------------------------------------------------------------------------------------------------------------
> Sub Match_ColumnWidth2()
> Dim Col, ColFirst, ColLast
> ColFirst = 1
> ColLast = 30
> Sheets(Array("Sheet1", _
> "Sheet2", _
> "Sheet3", _
> "Sheet4", _
> "Sheet5", _
> "Sheet6", _
> "Sheet7", _
> "Sheet8", _
> "Sheet9" _
> )).Select
> Sheets("Sheet1").Activate
> Application.ScreenUpdating = False
> For Col = ColFirst To ColLast
> Cells(1, Col).EntireColumn.Select
> Selection.ColumnWidth = Selection.ColumnWidth
> Next Col
> Application.ScreenUpdating = True
> Range("A1").Select
> End Sub
>
>
> *Paul*
>
> -----------------------------------------
> *“Do all the good you can,
> By all the means you can,
> In all the ways you can,
> In all the places you can,
> At all the times you can,
> To all the people you can,
> As long as ever you can.” - John Wesley
> *-----------------------------------------
>
>
> ------------------------------
> *From:* Prince Dubey <prince141...@gmail.com>
> *To:* excel-macros@googlegroups.com
> *Sent:* Thu, July 12, 2012 12:11:20 PM
> *Subject:* $$Excel-Macros$$ Re: column width - Reg
>
> Hi Mothi,
>
> Please attach your workbook, your question is not clear.
>
> regards
> prince
>
> On Thursday, 12 July 2012 20:48:49 UTC+5:30, mothi wrote:
>>
>> Dear any one
>>
>> I am using sheet1 worksheet column a to n , Column width is differents
>> based on datas. same data format different places up 20 sheets.
>> i want align sheet 2 to 20 column width based on sheet1.
>>
>> Thanks with
>>
>>
>> --
>>
>> *J.Mothilal : **Universal Computer Systems : # 16, Brindavan Complex
>> :Otteri, Vellore-2*
>>
>>
>> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
>
--
*J.Mothilal : **Universal Computer Systems : # 16, Brindavan Complex
:Otteri, Vellore-2*
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
