Hei eg prøver å sortere ei liste med datoer slik at manglende datoer blir automatisk satt inn.
Kolonne A har datoene frå start til slutt.
Kolonne B har noen av doatoene, men har behov for at nye celler blir satt inn over med dato.
Kolonne C har prisverdi for den datoen.
Det er kun kolonne B og C som skal manipuleres. Oppdages det at celle B3 ikkje er lik celle A3 så må det settes inn ei ny celle på B3 og C3 (tidligere celler dyttes ned).
Dette er det eg har så langt:
Takker for alle svar!
Dette har tatt meg 2 timer
Kolonne A har datoene frå start til slutt.
Kolonne B har noen av doatoene, men har behov for at nye celler blir satt inn over med dato.
Kolonne C har prisverdi for den datoen.
Det er kun kolonne B og C som skal manipuleres. Oppdages det at celle B3 ikkje er lik celle A3 så må det settes inn ei ny celle på B3 og C3 (tidligere celler dyttes ned).
Dette er det eg har så langt:
Kode
REM ***** BASIC ***** Sub Main Dim Doc As Object Dim Sheet As Object Dim Cell As Object Dim i As Integer Doc = ThisComponent Sheet = Doc.Sheets(0) i = 0 Do 'Velg cellen Ai Cell = Sheet.getCellByPosition(i, 0) 'Er cellen tom så stoppes loopen If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then Exit Do End If 'Er cellen lik så gjer vi ingenting, men ellers så dytter vi inn celler med ny dato If Cell.Value = Sheet.getCellByPosition(i, 1).Value Then Else 'Dytt inn celle Sheet.Cell(i, 1).Select 'ERROR Selection.Insert Shift:=xlDown Sheet.Cell(i, 2).Select 'ERROR Selection.Insert Shift:=xlDown End If 'Øk i med 1 i = i+1 Loop While 1 = 1 End Sub
Dette har tatt meg 2 timer