 | 1 | Versão inicial |
Olá Conrado,
Tenho esse modelo.
Voce pode adaptar com uma condicional e ou loop.
Espero que ajude.
Sub COPIARLINHAS
Dim oDoc As Object, oPlan As Object
Dim oCopyRange as Object
Dim oPasteRange as Object
oDoc = ThisComponent
oPlanOrigem = oDoc.Sheets.getByName("PLAN1") ' DEFINO A PLANILHA DE ORIGEM
oPlanDestino = oDoc.Sheets.getByName("PLAN2") ' DEFINO A PLANILHA DESTINO
LinhaOrigem = 1
LinhaDestino = 1
' INTERVALO A SER COPIADO
oCopyRange = oPlanOrigem.getCellRangeByPosition(0, LinhaOrigem - 1, 18, LinhaOrigem - 1).getRangeAddress()
' POSIÇÃO A SER COLADA
oPasteRange = oPlanDestino.getCellByPosition(0, LinhaDestino).getCellAddress()
oPlanDestino.CopyRange(oPasteRange, oCopyRange)
End Sub
Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.