Results 1 to 4 of 4

Thread: Alphabetic Series...

  1. #1
    Board Regular muhammad susanto's Avatar
    Join Date
    Jan 2013
    Location
    KPKNL Pekanbaru, Riau
    Posts
    1,494
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default 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
    Sembunyikan & rahasiakan amal kebaikan kita sebagaimana kita mahir dalam menyembunyikan aib-aib kita

    Play in Ms Excel 2007 & 2013 on Win 7 32 Bit

  2. #2
    MrExcel MVP
    Moderator
    Scott Huish's Avatar
    Join Date
    Mar 2004
    Location
    Oregon
    Posts
    19,751
    Post Thanks / Like
    Mentioned
    5 Post(s)
    Tagged
    4 Thread(s)

    Default 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
    Office 2010/365

  3. #3
    MrExcel MVP
    Moderator
    Scott Huish's Avatar
    Join Date
    Mar 2004
    Location
    Oregon
    Posts
    19,751
    Post Thanks / Like
    Mentioned
    5 Post(s)
    Tagged
    4 Thread(s)

    Default 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)

    Office 2010/365

  4. #4
    Board Regular muhammad susanto's Avatar
    Join Date
    Jan 2013
    Location
    KPKNL Pekanbaru, Riau
    Posts
    1,494
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Alpabetic Series...

    hi Scott Huish, thank you!! Worked it.
    Sembunyikan & rahasiakan amal kebaikan kita sebagaimana kita mahir dalam menyembunyikan aib-aib kita

    Play in Ms Excel 2007 & 2013 on Win 7 32 Bit

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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