Bom dia!!

Use a Pesquisa do fórum e veja em Bibliotecas.

Leia também: http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf

Att

Estou fazendo assim, ja fiz as janelas mas ainda falta inserir os valores no range
alguem pode me ajudar? Este range será a quantidade de células pra baixo do valor de varCelulas

Sub InsereMat()
'

' InsereMat Macro
'
' Atalho do teclado: Ctrl+r
'
Dim varMaticula As Integer
Dim varCelulas As Integer

varMaticula = InputBox("Qual a matrícula?")
varCelulas = InputBox("Quantas celulas serão Usadas?")

End Sub

Boa tarde!!

Leu o a apostila que lhe mandei???

Poste seu arquivo compactado!!
Cara em nossa base de dados Pesquisa e em Biblioteca tem muita coisa que pode te ajudar!!
Att

Consegui

Sub InsereMat()
'
' InsereMat Macro
'
' Atalho do teclado: Ctrl+r
'
Dim varMat As Integer
Dim varCel As Integer
Dim varLoop As Integer
varLoop = 0

varMat = InputBox("Qual a matrícula?")
varCel = InputBox("Quantas celulas serão Usadas?")

Do While varCel > varLoop

ActiveCell = varMat
ActiveCell.Offset(1, 0).Range("A1").Select
varLoop = varLoop + 1
Loop

End Sub

Obrigado!
Alexandrevba obrigado pela apostila

considere isto:

Sub planilhando()
Dim mat As Integer
Dim qtd As Integer
mat = InputBox("numero da matricula")
qtd = InputBox("quantidade de celulas")
Do Until qtd = 0
ActiveCell.Value = (mat)
ActiveCell.Offset(1, 0).Select
qtd = qtd - 1
Loop
End Sub

Acabei fazendo mesmo você tendo a resposta por não ver a marcação de [Resolvido]. Se possível insira ela o quanto antes.

Bom dia!!

Lembre se de marcar sua postagem como resolvida!!
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att