Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
autoFill column equal to adjacent column
I have a macro that takes a 9 digit number from one cell and converts i into a zipcode + 4 number. If the number is in A1 I set focus on B1 and =left(a1,5), then in C1 put the dash, (-) in d1 =right(A1,4) then I concatentate the 3 cells i E1, and then autofill the columns down to the last row with the 9 digi number. My problem is that the incoming sheets can have rows fro 100 to 10,00 so in the Macro I have to set the autofill command to 10,005 to mak sure I fill the sheet far enough. Of course, when I have a sheet o 100, I have to go back and delete all the dashes that filled to ro 10,005. Is there a way to autofill the inserted columns to the same row as th original column with the 9 digits in it??? Thanks Pau -- Paul ----------------------------------------------------------------------- Paulg's Profile: http://www.excelforum.com/member.php...fo&userid=3607 View this thread: http://www.excelforum.com/showthread.php?threadid=56162 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
autoFill column equal to adjacent column
Paul,
Try this in your module... Option Explicit Dim cell As Range Sub stripzip() For Each cell In Range("A:A") If Len(cell) = 9 And IsNumeric(cell) Then Cells(cell.Row, 2) = Left(cell.Value, 5) 'Could Delete Cells(cell.Row, 3) = "-" 'Could Delete Cells(cell.Row, 4) = Right(cell.Value, 4) 'Could Delete Cells(cell.Row, 5) = Left(cell.Value, 5) & "-" & Right(cell.Value, 4) End If Next cell End Sub This will do exactly as you specified. IMHO you can cut out the intermediate steps (Marked with 'Could Delete) and save some run time. Mike "Paulg" wrote: I have a macro that takes a 9 digit number from one cell and converts it into a zipcode + 4 number. If the number is in A1 I set focus on B1 and =left(a1,5), then in C1 I put the dash, (-) in d1 =right(A1,4) then I concatentate the 3 cells in E1, and then autofill the columns down to the last row with the 9 digit number. My problem is that the incoming sheets can have rows fro 100 to 10,000 so in the Macro I have to set the autofill command to 10,005 to make sure I fill the sheet far enough. Of course, when I have a sheet of 100, I have to go back and delete all the dashes that filled to row 10,005. Is there a way to autofill the inserted columns to the same row as the original column with the 9 digits in it??? Thanks Paul -- Paulg ------------------------------------------------------------------------ Paulg's Profile: http://www.excelforum.com/member.php...o&userid=36077 View this thread: http://www.excelforum.com/showthread...hreadid=561623 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
autoFill column equal to adjacent column
Thanks much -- Paulg ------------------------------------------------------------------------ Paulg's Profile: http://www.excelforum.com/member.php...o&userid=36077 View this thread: http://www.excelforum.com/showthread...hreadid=561623 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
autoFill column equal to adjacent column
Hi Paul, In a new sheet assuming you take a list of numbers over and locate the in Column A: Sub zipa() Range("A1", Range("A1").End(xlDown)).Copy Range("C1") Range("C1", Range("C1").End(xlDown)).NumberFormat = "00000-0000" End Sub Art67 -- art67 ----------------------------------------------------------------------- art678's Profile: http://www.excelforum.com/member.php...fo&userid=3639 View this thread: http://www.excelforum.com/showthread.php?threadid=56162 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
autoFill column equal to adjacent column
Appreciate the help -- Paulg ------------------------------------------------------------------------ Paulg's Profile: http://www.excelforum.com/member.php...o&userid=36077 View this thread: http://www.excelforum.com/showthread...hreadid=561623 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
FInd common data in one column then add number in adjacent column | Excel Worksheet Functions | |||
summing values from adjacent column with refrence from adjacent column | Excel Discussion (Misc queries) | |||
Locking column entries to an adjacent linked column | Excel Discussion (Misc queries) | |||
To copy values in a column relevant to text in an adjacent column? | Excel Worksheet Functions | |||
SOS VBA Code Emergency: need to copy tell to empty cell direct below where values in adjacent cells in different column are equal to each other. | Excel Programming |