PDA

View Full Version : [SOLVED] Need help Restructuring current macro to translate different type of data, please!!!



estatefinds
09-05-2016, 05:12 PM
The data I have now doesnt work in scatter chart so I need to translate the letter to a number.
I have attached a file.


The column B and Column C contain the key chart.

Column D contains the data that needs to be translated to a number.
The result would go into column E leaving column D intact.

Thank you!!!!

Paul_Hossler
09-05-2016, 07:25 PM
This seems easer



Option Explicit

Sub Translate()
Dim X As Variant, V As Variant
Dim rStart As Range, rEnd As Range, rCell As Range
Dim i As Long

Application.ScreenUpdating = False

Set rStart = Range("D38")
Set rEnd = rStart.End(xlDown)

For Each rCell In Range(rStart, rEnd).Cells
rCell.Offset(0, 1).Value = Asc(rCell.Value) - 64
Next
Application.ScreenUpdating = True

End Sub

estatefinds
09-06-2016, 03:16 PM
Thank you Very much!!!! much better!!:)