Width & Merge Cells

Solved/Closed
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 - Aug 1, 2010 at 01:17 PM
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 - Aug 2, 2010 at 02:20 PM
Hello,
I Have 1 WorkSheet In Which There Are Too Many Sub Sheets.

I Want The Width & Merge Cells Of Sheet1 In To All Sheets. But I Dont Need The Data Of Sheet1.

Need Macro Code..........


1 response

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 09:04 AM
Dude, again what you want ? do you have sample book. that you can upload to some share site
0
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 09:49 AM
https://authentification.site/files/23630062/Test.xls

this is the link dude

without do anything first you run the macro & you will know that what i want
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 10:10 AM
Again do the "for each ... in Sheets" routine. See the comment about skipping the sheet.

Dim Sheet As Variant
    
    For Each Sheet In Sheets
    
        ' if the sheet that you are processing is the one that you dont want to
        ' process then skip it
        If Sheet.Name = "Sheet2" Then GoTo Next_Sheet
        
        Sheet.Select
        
        Columns("A:A").ColumnWidth = 6.14
        Columns("B:B").ColumnWidth = 8.43
        Columns("C:C").ColumnWidth = 8.43
        Columns("D:D").ColumnWidth = 8.43
        Columns("E:E").ColumnWidth = 8.43
        Columns("F:F").ColumnWidth = 8.43
        Columns("G:G").ColumnWidth = 10
        Columns("H:H").ColumnWidth = 10.29
        Columns("I:I").ColumnWidth = 11.57
        Columns("J:J").ColumnWidth = 3.71
        
        Range("A1:J1").Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        
        Selection.Merge
        With Selection.Font
            .Bold = True
            .Name = "Arial"
            .Size = 17
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
        
Next_Sheet:
    Next
0
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 11:59 AM
I Dont Get It Dude

Can You Do It To My Sended File ? & Send Me
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 12:10 PM
I am presuming that you were talking about macro10 and that you wanted to replicate the formatting instruction in that macro for all sheets that are in your workbook (except for some that you would identify, as i have done in the code (sheet2))

https://authentification.site/files/23632090/Test.xls
0
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 12:22 PM
Jani Jab Run Karte Hain To Yeh Sheets To Bana Daita Hai Aur Data Copy Bhi Kar daita Hai But

Main Chahta Hoon K As It Is Copy Ho Baki Sheets Main. Means Jaab Run Kiye Bagair Sheet1 Main Jo Hai Na Wohi As It Is With Same Margins Aur Jo Jo Cell Merge Hain Wo Merge Bhi Macro Run Karne Pay Baki Sheets Main Jaye......

Hope You Got It Clear Now
0