copia ed accoda verticalment

[Barakkino]

ciao
é possibile con una macro copiare un gruppo di celle (es. Foglio1.A10:Z200 o meglio da A10:fino a colonna Z tutte le righe con dati ) ed incollarle accodandole in un altro foglio (es. Foglio2.dalla prima riga colonna A vuota)

grazie

[gioh66]

Magari posta un file d'esempio con il risultato voluto.

[Barakkino]

Magari posta un file d'esempio con il risultato voluto.

ciao
ecco il file

grazie della tua attenzione

[patel]

prova questa

Codice: Seleziona tutto

sub copia
Dim Doc As Object, Sheet As Object, range As Object, CellAddress
Dim I As Integer, ActiveCell as object, RIGA as integer, colA as integer
Doc = ThisComponent
Sheet = Doc.Sheets(0) 
Sheet1 = Doc.Sheets(1)
Do While Sheet.getCellByPosition(0, LastRow).String <> ""
  LastRow = LastRow  + 1
Loop
c = Sheet1.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 2
Range =Sheet.getCellRangeByPosition(0, 1,  25, LastRow - 1).getRangeAddress()
CellAddress  = Sheet1.getCellRangeByName("A" & LastRow1 ).getCellAddress()  
Sheet.copyRange(CellAddress, Range)
Sheet.getCellRangeByPosition(0, 1,  25, LastRow).clearcontents(31)
End Sub

[Barakkino]

Grazie Patel
Funziona alla perfezione, Ho aggiunto anche il cancellare alcune celle ed il cursore posizionarsi in A1.
Ho riscontrato però un problema (che per mio errore non ho detto) alcune colonne sono protette e con formule.
Se tolgo la protezione per errore possono essere modificate e con la macro venire cancellate.
E' possibile cancellare solo alcune colonne?
Grazie

Codice: Seleziona tutto

 sub copia
'sub eliminaContenuti
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$AB$14"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$AB$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$AB$16"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Flags"
args6(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$AB$17"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args8())


Dim Doc As Object, Sheet As Object, range As Object, CellAddress
Dim I As Integer, ActiveCell as object, RIGA as integer, colA as integer
Doc = ThisComponent
Sheet = Doc.Sheets(0) 
Sheet1 = Doc.Sheets(1)
Do While Sheet.getCellByPosition(0, LastRow).String <> ""
  LastRow = LastRow  + 1
Loop
c = Sheet1.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 2
Range =Sheet.getCellRangeByPosition(0, 1,  25, LastRow - 1).getRangeAddress()
CellAddress  = Sheet1.getCellRangeByName("A" & LastRow1 ).getCellAddress()  
Sheet.copyRange(CellAddress, Range)
Sheet.getCellRangeByPosition(0, 1,  25, LastRow).clearcontents(31)

'rem ---------------------------------------------------------------------
'dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())


End Sub

[patel]

per cancellare la colonna C

Codice: Seleziona tutto

Sheet.getCellRangeByPosition(2, 1,  2, LastRow).clearcontents(31)

[Barakkino]

La macro, con le modifiche (grazie Patel), funziona perfettamente.
Ho riscontrato un problema: se la prima cella da copiare è vuota si blocca
Grazie dell'aiuto.

[patel]

allega un file di esempio con i dati e l'ultimo codice, oppure lancia la macro con F8, step by step e controlla dove si blocca