Excel Botão para gerar numero crescente

[fredkissfree]

Eu gostaria de fazer um botão (Inserir Alunos) onde quando a pessoa clicar ele vai escrever na minha planilha do A1 ate A10

Aluno 1

Aluno 2

...

Aluno 10

 

Alguém tem um exemplo?

[Lucas Scheunemann]

Dim Linha As Integer
    Linha = 1

    Do While Linha <= 10
        Cells(Linha, 1).Value = (Aluno Linha)
        Linha = Linha + 1
    Loop

 

[fredkissfree]

Isso não precisa estar em uma sub pra chamar com o botão?

[fredkissfree]

1 hora atrás, Lucas Scheunemann disse:

Dim Linha As Integer
    Linha = 1

    Do While Linha <= 10
        Cells(Linha, 1).Value = (Aluno Linha)
        Linha = Linha + 1
    Loop

Está dando erro de sintaxe Cells(Linha, 1).Value = (Aluno Linha)

 

[Lucas Scheunemann]

@fredkissfree Estou sem tempo para testar agora, devo ter cometido algum erro de sintaxe.

Indico este curso, totalmente gratuito, e muito bom. Pode escolher e assistir a aula sobre o assunto que está com dificuldade se nao quiser assistir todo ele.

 

link curso:

 

[CasaDoHardware]

Os videos do Trovato são muito bons, se nao aprender ai não aprende mais. 

 

Qto ao erro tente assim:

 

 

Cells(Linha, 1).Value = "Aluno" &Linha

 

E troque 

 

Do While Linha <= 10

 

por 

Do While Linha > 10

[Patropi]

Bom dia@fredkissfree

 

Experimente assim:

 

Sub InserirAluno()
Dim Linha As Integer
    Linha = 1

    Do While Linha <= 10
        Cells(Linha, 1).Value = "Aluno" & Linha
        Linha = Linha + 1
    Loop
End Sub

Se foi útil, clique em Curtir

 

[]s