Bom dia
Criei uma macro de copiar
(Ctrl+shift para baixo para o lado + ctrl+c)
esta funcionado como desejei ao clicar em uma célula a seleção e copia é a partir da célula selecionada
REM ***** BASIC *****
sub copiar
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 args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub
ao clicar na celula B7 e depois no botão copiar que esta com a macro
é feita uma seleção
desde b7 até i7
e para baixo até o final da planilha que esta com borda
seria possível editar a macro para copiar apenas onde tem informação ?
no caso da foto em anexo preciso copiar as informações das linhas b7 e b8 até i7 e i8
onde esta com 0 e em branco não copiar
no caso da linha b9 para baixo não copiar
Att,
Complemento
Gilberto obrigado agora sim funcionou perfeitamente tinha sim nas colunas B9 a b17 informações tinha um procv
Comentáro
Gilberto você é o melhor
Top Top
ficou maravilhosamente linda a macro agora usando o complemente 2 que vc fez
te amo cara
vlw kkk