EXCELer: Sequência de números

2004-10-24

Sequência de números

6:18 da tarde |

Publicada por JRod - PORTUGAL |

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