Gerar valores até o valor da célula X

[dinhuu]

Ola pessoal boa tarde, sou novo ainda no VBA. 

Bom, eu queria um código para que quando aparecer o valor aleatório na célula x, ele gere valores impares até o valor daquela célula X. Por exemplo.

Valor da célula X= 304 (valor aleatório)

Gerar uma coluna inteira, do A1=5 

ATE                                  A289= 300. com os valores espaçados a cada 8 linhas entre eles.

Ou seja: A1= 5

pula 8 linhas

             A9=10

e etc...

Comecei com algo, porem quando eu digito valores aleatórios pares ele gera valores até o final da coluna.

Vou agradeçer muito se der para ajudarem.

Private Sub BtExecuta_Click()
Dim w As Worksheet
Dim ln As Long
Dim col As Integer
Dim varray() As Long
Set w = Plan6
ln = 5
col = 1
Do Until ln = Plan6.Cells(1, 3).Value
    w.Cells(ln, col).Value = ln
    ln = ln + 5
    
Loop

End Sub

Edited September 22, 2019 at 05:56 PM by dinhuu

[Ruimrc]

Não percebi muito bem qual é o objectivo, mas se o problema é o número ser par, basta guardar o valor numa variável e verificar antes se é par ou ímpar.

Podes usar a função "Mod" para isso, um exemplo em baixo

Se for par, subtrais 1 à variável e assim terás sempre números ímpares

 

Private Sub ParImpar()

Dim a As Integer
Dim b As Integer

    Randomize
    a = Int((100 * Rnd) + 1)
    b = a Mod 2
    
    If b = 0 Then
        MsgBox "O número " & a & " é par"
		a = a - 1
    Else
        MsgBox "O número " & a & " é impar"
    End If

End Sub