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
