Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro stopped working after upgrade to 2007 | Excel Discussion (Misc queries) | |||
Excel upgrade | Excel Discussion (Misc queries) | |||
2007 Upgrade wont run macro | Excel Discussion (Misc queries) | |||
New Macro error after Office Upgrade | Excel Discussion (Misc queries) | |||
Excel upgrade | Setting up and Configuration of Excel |