macro upgrade
 

i have this piece of code....

it gets the seeen columns of data from column A and pastes it into column K...
the length of data in column A changes , so this macro can do that ...

here it is ..

Sub select_data()

Sheets("sheet1").Select
Range("k1:k500").Select
Selection.ClearContents

Dim ulhc As String 'upper left hand corner
Dim lrhc As String 'lower right hand corner
Dim wdth As Integer 'true width in columns

ulhc = "$a$6"
wdth = 1



Application.Goto Range(ulhc) 'goto upper left hand corner
ActiveCell.Offset(0, wdth - 1).Select 'move to edge of data (column)
lrhc = Selection.End(xlDown).Address 'get address of lrhc

Range(ulhc & ":" & lrhc).Select
Selection.Copy


Sheets("sheet1").Select
Range("$k$1").Select
' Range("$ad$6").Select
'ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub


now what i want to do is this .....

to this macro i want to a piece of code that will take the data from column K
and add to that 0.01%

can some one help me with the code pls.....

sam

macro upgrade
 

Hi,

First of all, there is no need to select things to work
with them.

This is one way to do what you want:

Sub select_data()
Dim ulhc As String 'upper left hand corner
Dim wdth As Integer 'true width in columns
Dim oRange As Range
Dim ocell As Range
ulhc = "$a$6"
wdth = 1
Sheets("sheet1").Range("k1:k500").ClearContents
With ActiveSheet
.Range(.Range(ulhc), _
.Range(ulhc).Offset(0, wdth - 1).End(xlDown)).Copy
_
Destination:=Sheets("sheet1").Range("$k$1")
Application.CutCopyMode = False
End With

With Sheets("sheet1")
Set oRange = .Range(.Range("$k$1"), .Range
("$k$1").End(xlDown).Offset(, wdth - 1))
End With

For Each ocell In oRange.Cells
ocell = ocell * 1.01
Next
End Sub




Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
i have this piece of code....

it gets the seeen columns of data from column A and
pastes it into column K...
the length of data in column A changes , so this macro
can do that ...

here it is ..

Sub select_data()

Sheets("sheet1").Select
Range("k1:k500").Select
Selection.ClearContents

Dim ulhc As String 'upper left hand
corner
Dim lrhc As String 'lower right hand
corner
Dim wdth As Integer 'true width in columns

ulhc = "$a$6"
wdth = 1



Application.Goto Range(ulhc) 'goto upper
left hand corner
ActiveCell.Offset(0, wdth - 1).Select 'move to edge
of data (column)
lrhc = Selection.End(xlDown).Address 'get address
of lrhc

Range(ulhc & ":" & lrhc).Select
Selection.Copy


Sheets("sheet1").Select
Range("$k$1").Select
' Range("$ad$6").Select
'ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub


now what i want to do is this .....

to this macro i want to a piece of code that will take
the data from column K
and add to that 0.01%

can some one help me with the code pls.....

sam
.