List alpha numeric numbers between two references

[sedwardson]

I found this by Snakehips and it was VERY helpful ! I tried to modify it but found that it only works with numeric entries and not alpha numeric entries.

Rich (BB code):

Sub Fill()    [A4] = [A1].Value
    ato = [B1].Value
    [B4] = [A2].Value
    bto = [B2].Value
    [C4] = [A3].Value
    cto = [B3].Value
    [A4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=ato
    [B4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=bto
[C4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=cto
End Sub

The code I wrote (but failed to get to work) was:

Sub Fill()    
    [B3] = [B4].Value
    bto = [C3].Value
    [B4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=bto
End Sub

This works with numbers but not for the range I have which is: 531PZ228173 - 531PZ228222

Can anyone help with how I might get the range to work with this cell entry. Thanks.
P.S. Sorry if I've missed some detail out or you require more from me. This is my first post ! Please bear with me

 

[sedwardson]

have you tried the code on post #17

I'm trying it but nothing appears to be happening. I'm trying to understand the code to see if I have to enter any details myself to make it work? Do I need to give it a starting cell? or both a starting number and ending number? Sorry to be a pain .

 

[Legacy 143009]

Try to understand the example:

WeTransfer - Send Large Files & Share Photos Online - Up to 2GB Free

WeTransfer is the simplest way to send your files around the world

we.tl

I am not posting the code because it is exactly the same as in post#17.

 

[sedwardson]

Thanks for the spreadsheet ! Makes total sense now ! I've run it with ALL of my ranges and upon first inspection it all looks good ! Thank you for your help and patience !

 

[Legacy 143009]

Glad it did help Thanks for the feedback

 

[Legacy 143009]

Please modify this line like this to make sure it is incrementing:

.AutoFill Destination:=.Resize(r + 1), Type:=xlFillSeries

 

[sedwardson]

Please modify this line like this to make sure it is incrementing:

.AutoFill Destination:=.Resize(r + 1), Type:=xlFillSeries

Done.....Thanks again