Excel como executado esse vba no excel?

[Cícero Emericiano]

boa tarde fórum, gostaria de fazer um macro com um botão com o seguinte comando

na célula a1 seria minha célula de entrada

por ex: 5

queria fazer um botão que ao apertar, na célula b1 a a b5 iria me gerar números 1

segue ex:

5     1

       1

       1

       1

       1

 

como essa célula a1 é de entrada, se eu modificar a célula a1 para 3 ficaria:

3     1

       1

       1

 

obs: esses números 1 pode ser qualquer um, quero apenas q me gere numeros

como faco esse comando no vba?

agradeço qualquer ajuda

[CasaDoHardware]

Ve se isso ajuda

 

 

Sub Preencher()

Dim Total As Long
Dim Linha As Long
Dim Valor As Long

Total = Range("A1").Value
Linha = 1
Valor = InputBox("Digite o Valor")
Range("B1:B" & Rows.Count).ClearContents

For a = 1 To Total

Cells(Linha, 2).Value = Valor

Linha = Linha + 1
Next

End Sub

 

 

 

 

 

 

 

[Patropi]

Boa noite@Cícero Emericiano

 

Seja bem-vindo ao fórum!

 

Baixe a planilha e veja se é isto que você deseja.

 

Não se esqueça de clicar em Curtir.

 

[]s

29_11_17_Colar o numero 1 na coluna B conforme célula A1-Patropi.zip

[Cícero Emericiano]

@casadohardware @patropi muito obrigado pela ajuda, era exatamente isso que queria, mas estou com um problema, em vez de ser a a1 o dado inicial, quero q seja a b12 e os dados de saida comecem na k12, entrei na macro, mudei para essas celular mas nao executou, o que faco ?

adicionado 3 minutos depois

conseguir, estava esquecendo de mudar a coluna, muito obrigado pela ajuda!!