Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 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