how do i turn column letters to numbers and vice versa
------------------
take y values from column and take x values from row
I have 'resolved' values in column A1:A10
I have 'received' values in row B11:K11
I need to fill out a table using the tables axis values stored in the column and row above.
Such as:
For i = 1 to 10 Step 1 Resolved = Range("A" & i).Value For j = B to K Step 1 Received = Range(j & 11).Value Range(j & i).Value = 2*(Resolved+Received)/3 Next j Next i
That will convert column number to a letterPublic Function ColumnLetter(AnyCell As Range) As String ColumnLetter = Left(AnyCell.Address(False, False), 1 - CInt(AnyCell.Column > 26)) End Function Dim Col as string Col = ColumnLetter(Cells(Y, X)) 'Called from a sub
Elegant Simplicity............. Not Always
No need to - use Cells which will accept either a letter or number for the column:
For j = 2 to 11 Step 1 Received = Cells(11, j).Value
Everyone who confuses correlation and causation ends up dead.
literal answer to the title of your thread
Letter to numberNumber to letterLettr = "EQ" Nmbr = Columns(Lettr).Column MsgBox NmbrNmbr = 218 Lettr = Split(Columns(Nmbr).Address, "$")(2) MsgBox Lettr
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks