Search

A carregar...

Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-03-23


Para preencher uma sequência numérica,

seq4

programaticamente, podem utilizar-se formulários:







O Código:

Sub Sequencia()
'
'
    Dim x, y, z, a, b

    On Error GoTo Sai
    x = InputBox(Prompt:="Digite a 1ª célula")
    y = InputBox(Prompt:="Digite a última célula")
    a = InputBox(Prompt:="Digite o primeiro nº")
    b = "" & x & ""
    z = "" & x & ":" & y & ""
    Range(b).Select
    Range(b) = a
    Selection.AutoFill Destination:=Range(z), Type:=xlFillSeries
    Range(z).Select
    Selection.Font.Bold = True
    Range(b).Select
Sai:
End Sub



Código para o Botão de Comando:

Private Sub CommandButton1_Click()
    Run "Sequencia"
End Sub