Boa tarde, Galera!
Estou com uma duvida em como fazer a numeração de linhas, exemplo:
Preciso numerar a coluna A1 de 1 a 100.000, tem como fazer de maneira automática?
Agradeço a atenção!
Selecione o intervalo 1 a 100.000 e acione Editar - Preencher - Series… e escolha Linear, sem indicar o valor final.
Muito Obrigado Olivier, salvou minha vida!! Vou ter que fazer de 100.000 até 1.000.000 para fazer alguns testes aqui e sua dica foi de enorme ajuda!!
Valeu Oliver. Muito obrigado por esta dica tão boa. Um grande abraço!!
Para quem quiser uma macro para enumerar a partir de uma célula até a ÚLTIMA LINHA USADA e adicionar em um botão, segue abaixo uma que pode ajudar:
SUB ENUMERAR
dim primeiraCelula as string, oColuna as string, nomePlanilha as string
dim iniciarNumero as integer
dim oCel as object, oCel2 as string
Dim oCurs As object
Dim LastRow&
primeiraCelula = "A7" 'nome da primeira celula'
oColuna = "A" 'nome da coluna para enumerar'
nomePlanilha = "ALFA" 'nome da planilha a enumerar'
iniciarNumero = 1 'numero para iniciar a enumeracao'
oCel2 = "B7" 'selecionar celula apos a enumeracao'
oCurs = ThisComponent.Sheets.GetByName(nomePlanilha).createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1
oCel = ThisComponent.Sheets.getByName(nomePlanilha).getCellRangeByName(primeiraCelula)
oCel.setValue(iniciarNumero)
rem define variables
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = primeiraCelula
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "EndCell"
args3(0).Value = "" & oColuna & "" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:AutoFill", "", 0, args3())
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = oCel2
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
end sub
Preencher apenas o dados iniciais (primeiraCelula, oColuna, nomePlanilha, iniciarNumero, oCel2)
Segue código para preenchimento de valores em células utilizando o laço “For”:
Fiz algumas alterações para implementação da última linha.
Option Explicit
'**************************************************************
Sub PreencherCelula
Dim oDoc as Object
Dim oPlan As Object
Dim oCel As Object
Dim i As Long
Dim oCursor As Object
Dim LastRow As Integer
Dim FirstRow As Integer
oDoc = ThisComponent
oPlan = oDoc.getSheets().getByIndex ( 0 )
oCursor = oPlan.createCursor()
oCursor.gotoEndOfUsedArea(False)
FirstRow = 1
LastRow = oCursor.getRangeAddress().EndRow
For i = 0 To LastRow
oCel = oPlan.getCellByPosition ( 0 , FirstRow - 1 + i )
oCel.setString( i + 1 )
Next i
MsgBox "Foram incluídos " & i & " Itens" , 64 , "Título"
End Sub
'**************************************************************
Link para o arquivo: Planilha