[Risolto] Numerazione righe

[epico]

Salve, mi servirebbe una macro che sostituisca la funzione in cella I2 (che si replica fino a I1000)
SE(A2="";"";RIF.RIGA(A1))
Incrementa di 1 ogni riga della colonna I se la riga corrispondente nella colonna A contiene un dato (stringa)

Grazie

[patel]

allega un esempio e spiega perché una macro invece di trascinare la formula

[epico]

spiega perché una macro invece di trascinare la formula

è solo a scopo didattico per provare a capire le macro, il foglio è già funzionante con le funzioni

[patel]

vuoi una macro che inserisca le formule od una che inserisca i numeri fino all'ultima cella piena ?

[epico]

Che inserisca i numeri fino all'ultima cella piena

Grazie

[patel]

Codice: Seleziona tutto

Sub Main
Sheet = ThisComponent.Sheets.getByName("Dati")
  Col = Sheet.getColumns().getByIndex(0)   ' colonna A
  RangeVuoto = Col.queryEmptyCells.RangeAddresses
  LastRow = RangeVuoto(0).StartRow 
for r = 2 to Lastrow
 Sheet.getCellRangeByName("I" & r).value = r-1
next

End Sub