Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Just in case anyone was interested. I did manage to solve my issue via a
macro. All the data I wanted to code is in column A, and is a ll $ values. Therefore I can multiple by 100 to get an integer value to apply mode code too. __________ Sub Code() Application.ScreenUpdating = False Cells(1, 1).Select Do While Not IsEmpty(ActiveCell) CellNum = ActiveCell.Value CellLength = Len(CellNum) CellVal = Empty If IsNumeric(CellNum) Then CellNum = CellNum * 100 Else Application.ScreenUpdating = True Err = MsgBox(" Non numeric value in cell?", vbOKCancel) If Err = vbCancel Then End End If Application.ScreenUpdating = False For i = 1 To CellLength If Mid(CellNum, i, 1) = 1 Then CellVal = CellVal & "A" If Mid(CellNum, i, 1) = 2 Then CellVal = CellVal & "B" If Mid(CellNum, i, 1) = 3 Then CellVal = CellVal & "C" If Mid(CellNum, i, 1) = 4 Then CellVal = CellVal & "D" If Mid(CellNum, i, 1) = 5 Then CellVal = CellVal & "E" If Mid(CellNum, i, 1) = 6 Then CellVal = CellVal & "F" If Mid(CellNum, i, 1) = 7 Then CellVal = CellVal & "G" If Mid(CellNum, i, 1) = 8 Then CellVal = CellVal & "H" If Mid(CellNum, i, 1) = 9 Then CellVal = CellVal & "I" If Mid(CellNum, i, 1) = 0 Then CellVal = CellVal & "Z" Next ActiveCell.Offset(0, 1).Value = CellVal ActiveCell.Offset(1, 0).Select Loop Application.ScreenUpdating = True End Sub ________________________ BC "Brad" wrote in message news:... Hi Harold, That was my first instinct. However I'm pretty green when it comes to Vlookup's so some help would be appreciated. Initially my table on sheet 2 looked like... colA | colB 1 | A 2 | B 3 | C 4 | D 5 | E 6 | F 7 | G 8 | H 9 | I 0 | Z How do I then do a Vlookup to produce the desired result? Bearing in mind, the numbers I want to code in column A (coded letters in column B) on sheet 1 are not necessarily uniform, or logical. Cell A1 could have "97.95", "129.77" or another equally random combination. TIA for any help. BC "Harald Staff" wrote in message ... Hi BC Put all corresponding logic in a table and a VLOOKUP formula in Cell B1. See Help on VLOOKUP. HTH. Best wishes Harald "Brad" skrev i melding ... H alli, I'm trying to devise a way to do the following... Cell A1 has "12.34" in it. I would like B1 to show "ABCD" Cell A2 has "123.45" in it. I would like B2 to show "ABCDE" Cell A3 has "12.50" in it. I would like B3 to show "ABEZ" Any thoughts on how to achieve this either through VBA or a cell formula? TIA. BC |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
adding an autoshape to vba code | Excel Discussion (Misc queries) | |||
adding a code to a cell? | Excel Programming | |||
Adding a folder with code | Excel Programming | |||
Adding space to VBA code | Excel Programming | |||
Adding code to worksheets | Excel Programming |