# Thread: Alphabetic Series... Thanks:  2 Post #4951533 (1)Post #4951469 (1) Likes:  1 Post #4951697 (1)

1. ## Alphabetic Series...

hello all..

how to make this below code it works :

Code:
`=char(code(e11)+1)`
a cross post
https://www.excelforum.com/excel-for...erval-row.html

any helps is greatly appreciated.

m.susanto

2. ## Re: Alpabetic Series...

I wasn't able to download your spreadsheet from that other forum because I am not a member there. It does seem that you want to start with a letter then increment.
If the starting letter is different each time, then how many letters do you want to go down, until it reaches z or a certain number or what?

For this example, I am going to start in e11 and increment until it gets to z or Z if the starting letter was capital.
Code:
```Sub test()
Dim x As Long, y As Long, startloop As Long, r As Long
startloop = Asc(Range("E11"))
If startloop > 90 Then y = 122 Else y = 90
r = 11
For x = startloop To y
Cells(r, "E") = Chr(x)
r = r + 1
Next
End Sub```

3. ## Re: Alpabetic Series...

As a formula, your formula is correct, but you do need to start with a letter in E11:

Excel 2010
E
11J
12K
13L
14M

Sheet1

Worksheet Formulas
CellFormula
E12=CHAR(CODE(E11)+1)
E13=CHAR(CODE(E12)+1)
E14=CHAR(CODE(E13)+1)

4. ## Re: Alpabetic Series...

hi Scott Huish, thank you!! Worked it.

## User Tag List

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•