COLUMNWIDTH

[verluc]

Before to copy and paste a sheet in another sheet,I want that the columnwidth in the second sheet is 10
How to do this with a code in my macro?
Many thanks.

[gareth]

Hello Friend

This code will set your width of the columns to 15 characters,hope it helps you.

Sub width()

Dim Col As Range
Set Col = Range(ActiveCell.Offset(0, 1), ActiveCell.End(xlDown).Offset(0, 1))
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-1])>15,LEFT(RC[-1],15),RC[-1])"
Selection.AutoFill Destination:=Col, Type:=xlFillDefault
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

have a nice day

[verluc]

On 2002-04-26 03:49, gareth wrote:
Hello Friend

This code will set your width of the columns to 15 characters,hope it helps you.

Sub width()

Dim Col As Range
Set Col = Range(ActiveCell.Offset(0, 1), ActiveCell.End(xlDown).Offset(0, 1))
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-1])>15,LEFT(RC[-1],15),RC[-1])"
Selection.AutoFill Destination:=Col, Type:=xlFillDefault
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

have a nice day

Hello,

This is a piece of my macro:

Cells.Clear
ColumnsWitdth = 10
ActiveWindow.DisplayHeadings = False
kopi.Copy
Range("A6").Select
ActiveSheet.Paste

The line "ColumnsWitdth = 10" doesn't work.
Is this not possible with one code in place of your whole macro above?
Many thanks.

[Tom Schreiner]

Hi
This will set the width of every column on your active sheet to ten...

ActiveSheet.Cells.ColumnWidth = 10

Tom

[verluc]

On 2002-04-26 04:20, TsTom wrote:
Hi
This will set the width of every column on your active sheet to ten...

ActiveSheet.Cells.ColumnWidth = 10

Tom

Thank you Tom.It works like I want with your help.

[gareth]

Sorry my friend

I did not know you only wanted a string and not a code ?