Copy column data

[Sylvia]

Hi,

I want to write a macro by whic I will mention the number of character
in one column then it should select only those number of characters fo
the entire row.

eg. if I mention number of characters as 6 for 'column a', (I wil
mention this in a seperate column. Macro should read this value fro
that column) then it should copy only 6 characters of EACH cell i
'column a'

Do we anything kind of format etc for this thing?

Thanks,
Sylvi

 

[Tim Williams]

Where should the values be copied to?

Tim

 

[Sylvia]

In the new worksheet

 

[Tim Williams]

Sub Tester()
Dim s As Worksheet
Dim s2 As Worksheet
Dim r As Long, x

Set s = ActiveSheet
Set s2 = ThisWorkbook.Sheets("Sheet2")

r = 1
x = Application.InputBox("Enter number of characters", _
, , , , , , 1)

Do While s.Cells(r, 1).Value <> ""
s2.Cells(r, 1).Value = Left(s.Cells(r, 1).Value, x)
r = r + 1
Loop
End Sub

Tim