Generate numbers between two numbers without duplicates?

[Mamud]

hello

How can I make this ?

If I have a group of numbers such as 10,15,18,20,28,29,30

first: How can I generate unique numbers between the min and the max value (between 10 and 30) without duplicate any value
second: If the min value is 10, how can I generate the numbers from Zero to that value (10), I meant How can I generate (1,2,3,4,5,6,.......9)



Thanks

[111StepsAhead]

Sub makeNumbers()
    Dim Lnum As Long
    Dim Unum As Long
    Dim x As Long

    Lnum = 10
    Unum = 20
    
    For x = Lnum To Unum
        Worksheets("Sheet1").Range("A" & x -Lnum + 1).Value = x
    Next x
End Sub

From what I understand you want to get the values between two other values. The above code outputs the numbers between 10 and 20 to the worksheet "Sheet1" starting in cell "A1". Is that what you need?

[Mamud]

thx 111StepsAhead for rapid reply

I'm going to try your code .....

The purpose of what I need from that code, These random numbers are a result of filtration process for some code format and
I need these filtered numbers to tell me suggestions for my new code, these suggestion are based on the numbers between the filtered numbers without duplicates
and also the numbers between the smallest value (zero) and min number in filtered list

[Mamud]

111StepsAhead, about ur code

there are more of duplicates numbers generated, also there's no generation for the range (from zero to the Min value (10))

[111StepsAhead]

Hmmmm.

So what you really need is the numbers from 0 to the max value?

And my code doesn't generate random numbers. It might be quicker for both of us if you upload an example workbook with what you start with and what you need to have at the end.

[Mamud]

hello 111StepsAhead

there's no use from uploading any files, but If u want, I can make one filled by numbers

What about an example;

If i had these filtered numbers (10,15,18,20,28,29,30), I need the numbers between the Value (Zero) and The Max Value (30) with no duplicates

[111StepsAhead]

Ok, so you need every number from 0 to the minimum and the unique numbers in your list between the min and max that you choose? Or do you need to figure out the min and max automatically?

Also, where are you getting the numbers from? What range in the workbook that you are using are they in?

[jindon]

try

Sub test()
    Dim myMin As Long, myMax As Long
    myMin = CLng(Application.InputBox("Enter min", Type:=1))
    myMax = CLng(Application.InputBox("Enter max", Type:=1))
    MsgBox Join$(Application.Transpose(Evaluate("if(row(a1:a" & _
        myMin + 1 & "),row(a1:a" & myMin + 1 & ")-1)")), vbLf), _
        , "0 to " & myMin
    MsgBox Join$(Application.Transpose(Evaluate("if(row(a" & _
        myMin & ":a" & myMax & "),row(a" & myMin & ":a" & _
        myMax & "))")), vbLf), , myMin & " to " & myMax
    MsgBox Join$(Application.Transpose(Evaluate("if(row(a1:a" & _
        myMax + 1 & "),row(a1:a" & myMax + 1 & ")-1)")), vbLf), _
        , "0 to " & myMax
End Sub

[Mamud]

yes 111StepsAhead, the min and max values are automatically chosen and the numbers are result of a filtration process

[watersev]

hi Mamud, option, please check attachment, press "Run"

[Mamud]

hello watersev,

Working like magic, but can I add the Value "Zero" as a constant value, your code taking it in consideration

[watersev]

please check attachment