Blog Archive

About Me

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

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2004-10-24
Um pequeno procedimento que podemos adicionar a um botão de comando para criarmos uma sequência numérica, como, por exemplo, 1,2,3,4,5,6,7, etc.:

Sub Sequencia()


Dim x, y, z, a, b

x = InputBox(Prompt:="Digite a célula")

y = InputBox(Prompt:="Digite a 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


End Sub