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

 

[Legacy 143009]

Something like this?

Sub test()
  Range("B4").AutoFill Destination:=Range("B4:B" & Range("C3").Value), Type:=xlFillSeries
End Sub

Where do you want to start copying? Where do you want to stop?

 

[sedwardson]

Something like this?

Sub test()
  Range("B4").AutoFill Destination:=Range("B4:B" & Range("C3").Value), Type:=xlFillSeries
End Sub

Where do you want to start copying? Where do you want to stop?

Hi Flashbond, I just need it to start at the first number 531PZ228173 and end at the last number 531PZ228222 (if you see, the last 3 digits increase and its those I want to list out sequentially) Thanks.

 

[Legacy 143009]

No, I mean from which cell to which cell address? Where will it start and where will it stop?

 

[sedwardson]

Hi Flashbond, I just need it to start at the first number 531PZ228173 and end at the last number 531PZ228222 (if you see, the last 3 digits increase and its those I want to list out sequentially) Thanks.

Apologies, if you meant which cells did I want to populate into with the output, it will be in B4 : B54

 

[Legacy 143009]

Assuming 531PZ228173 is in B4

Sub test()
  Range("B4").AutoFill Destination:=Range("B4:B54"), Type:=xlFillSeries
End Sub

 

[sedwardson]

Hmm.... I get the following:

Thanks for your help btw

 

[Legacy 143009]

I edited the code. Can you try again? No problem.

 

[sedwardson]

what did you edit in the code?

 

[sedwardson]

ok, got it !