Nel mio foglio "FoglioOriginale" ho la necessità, partendo dalla Colonna AW e fino alla Colonna BD, di riempire le righe "vuote" con gli stessi valori presenti nella riga superiore (vedi file allegato righe evidenziate in giallo).
Come posso modificare la Macro qui sotto da CopiaABC (le prime 3 colonne) che parti ed inizi con l'esecuzione della macro dalla colonna AW-AX-AY-AZ-...-BD anzichè dalla Colonna A come nel codice originale che ho postato qui sotto.
Codice: Seleziona tutto
REM ***** BASIC *****
Sub Main
End Sub
Sub CopiaABC
Doc=ThisComponent
Foglio = Doc.Sheets.getByName("FileOriginale")
Cursore = Foglio.createCursor
Cursore.gotoEndOfUsedArea(false)
UltimaRiga = Cursore.RangeAddress.EndRow
For Riga = 1 to UltimaRiga
VerificaA = Foglio.GetCellByPosition(0,Riga).String
If VerificaA = "" then
Foglio.getCellByPosition(0,Riga).CellBackColor = rgb (0,255,0) 'Sfondo VERDE
Foglio.GetCellByPosition(0,Riga).String = Foglio.GetCellByPosition(0,Riga-1).String
Foglio.getCellByPosition(1,Riga).CellBackColor = rgb (0,255,0) 'Sfondo VERDE
Foglio.GetCellByPosition(1,Riga).String = Foglio.GetCellByPosition(1,Riga-1).String
Foglio.getCellByPosition(2,Riga).CellBackColor = rgb (0,255,0) 'Sfondo VERDE
Foglio.getCellByPosition(2,Riga).HoriJustify = 0 ' 1=Sinistra 2=Centro 3=Destra 0=STANDARD(Numeri a Desrtra Stringhe a Sinistra)
Foglio.GetCellByPosition(2,Riga).Value = Foglio.GetCellByPosition(2,Riga-1).Value
End if
Next Riga
End sub
Grazie per l'aiuto