Olá!
Alguém poderia me ajudar a construir uma macro no CALC que me permitisse mover um determinada linha para uma planilha dependendo do conteúdo de uma célula? Por exemplo: Em uma planilha principal que está contida em A1:T5000. Além dela tenho mais 7 planilhas como o mesmo numero de linhas e colunas que a principal.
Preciso que, por exemplo, se em T2 eu colocar “FEITO” toda a linha seja movida para a planilha2 após os dados que já estão lá. e a linha em que estava a linha movida seja apagada.
E, se eu colocar outra palavra como “AGUARDAR” a linha vá para a planilha2. seguindo o mesmo processo anterior.
e assim sucessivamente para todas as planilhas.
Além disso, gostaria que essa macro fosse ativada com um botão clicável dentro da planilha.
Consegui uma algo parecido no excel, mas depois de muitas tentivas e procura pela internet não encontrei nada que funcione no calc.
Desde já agradeço.
Ola @Francys, segue um exemplo:
Na coluna T após digitar o status ( FEITO. AGUARDAR, Etc ), estando na linha digitada,
acione a macro no menu [ MACROS ].
Pode ser melhorada…
Complemento: Vide OBS. no arquivo. O acionamento das Macros estão no menu [ MOVER ].
Complemento 2: Vide OBS. no arquivo.
Arquivo corrigido com o menu [ MOVER ]
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha 
a esquerda da resposta, para finalizar a pergunta.
Muito obridado por responderem minha questão. A ideia da planilha que vc postou acima vem de acordo com o que estou tentado fazer. Porém, as linhas estao sendo coladas na mesma planilha e nao consegui adaptar o código (leiguisse pura aqui) para transferir as linhas para as demais panilhas.
Vou colar o link de uma planilha que simula a que estou trabalhando.
O modelo foi só um exemplo. O que quer é cada Status, vá para uma planilha. Por exemplo FEITO vai para a Planilha2. AGUARDAR vai para a Planilha3, etc.
É isso, se SIM quais os outros Status, e quais Planilha devem ir (nomes) ?
Gilberto. Eu subi o modelo da planilha. O que preciso é justamente isso que vc falou.
No modelo eu coloquei exatamente como gostaria que ficasse.
A planilha principal vai alimentar seis outras planilhas. eu coloquei dentro de cada planilha qual alimenta qual. Se ficar confuso eu explico aqui em comentário. Se vc puder me ajuda nisso ficarei muito grato.
@Francys, qual a condição para ir para as planilhas?
ACO_FAN
DES_PRINCIPAL
PRE_CAD
Equipe1
Equipe2
Equipe3
No seu arquivo tem apenas os nomes das planilhas que serão preenchidas em cascata, mas não as condições para verificar em qual planilha será colada as informações.
Em relação a “linha ser apagada”. Seria para deletar a linha ou limpar as informações?
E como vc quer que seja disparada essa macro? Após digitar a condição?
@Conras, quero o seguinte:
- Se na 1ª planfor selecionado
“ACO_FRAN” linha vai p/ a 2ª Planilha
“ESPERA” vai p/ 3ª
“DESLIGAR” vai p/ 4ª
“EQUIPE1” vai p/ 5ª
“EQUIPE2” vai p/ 6ª
“EQUIPE3” vai p/ 7ª - 2ª planilha :
“ESPERA” vai p/ 3ª
“DESLIGAR” vai p/ 4ª
“EQUIPE1” vai p/ 5ª
“EQUIPE2” vai p/ 6ª
“EQUIPE3” vai p/ 7ª
“DESLIGAR” na 5ª plan linha vai p/ Arquivado1
“DESLIGAR” na 6ª plan linha vai p/ Arquivado2
“DESLIGAR” na 7ª plan linha vai p/ Arquivado3
Espero ter conseguido explicar
@Gilberto, esse é o caminho. Estaria certinho se não fosse alguns detalhes.
Os dados nas planilhas são expostos em bloco. por exemplo, a Empresa1 pode ter vários funcionários.
e quando ou uso a macro para mover apenas move uma linha por vez, e as demais linhas sobem. o que pode acontecer é que, por um momento de desatenção, algum funcionário fique na empresa errada quando a linha for apagada.
Tenho uma macro vba que consegui a alguns dias, mas incompativel com o calc. gostaria de ver?
Ok, a pergunta inicial era mover linha, vou rever as macros. Poste a macro VBA, talvez seja útil.
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets(“AI_LIGIA”).UsedRange.Rows.Count
J = Worksheets(“DESL_AI”).UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets(“DESL_AI”).UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets(“AI_LIGIA”).Range(“U1:U” & I)
On Error Re
Esta é a vba que eu falei.
Acho que não tenha me expressado direito. Gostaria de mover linha, mas com a possibilidade de mover mais de uma de uma vez só. E a linhas podem estar em qualquer posição dentro de A1:T5000. Consegui passar minha ideia claramente?
Acho que a Macro VBA ficou truncada, o comentário tem limite.
Edite sua pergunta e inclua a Macro lá.
Valeu @Gilberto Schiavinatto! Ficou melhor do que eu imaginava. Muito obrigado. Só tenho 3 dúvidas: Eu poderei adicionar outras planilhas ao processo livremente? Em caso de necessidade, poderei renomear alguma planilha? E, posso atribuir um botão por planilha a essa macro (por exemplo, na planilha principal colocar um botão “mover para ACO_FAN” e outros botões, um para cada uma das outras planilhas)? Desculpe minha “leiguisse” extrema.
- Pode adicionar outras planilhas, criando as macros necessárias conforme o padrão.
- Pode renomear desde que altere a/as macro/s correspondente.
- Pode atribuir botões ou figuras, aconselho ficarem acima do cabeçalho, pois ao mover os dados linhas são deletadas.
Obs.: Se fizer todos os comandos por botões/figuras, veja exemplo: do Escritório Aberto (https://wiki.documentfoundation.org/PT-BR/Projetos/EA) https://wiki.documentfoundation.org/images/3/39/ModeloArquivoCalc1.ods
Sobre as Macros repare que a “MoverLinha” é um padrão para todas, pois todas são de formatação idêntica.
As menores, exemplo:
Sub EnviarParaACOFAN
Call MoverLinha "**ACO_FAN.A1**"
End Sub
Chama a padrão (Call) e indicam uma referencia.
Caso queira meu contado direto: gilberto@schiavinatto.com ou gilbertoschiavinatto@yahoo.com.br
@Francys, o arquivo foi atualizado, contém o Menu [ MOVER ] que menciono. Cometi um erro e ficou gravado em meu LibreOffice.
Valeu @Gilberto Schiavinatto. Eu ousei um pouco e me aventurei a mexer um pouco na planillha com a macro. E consegui atribuir os comandos para mover as linhas a botões. Ficou prático, mas o menu mover que vc colocou, além de pratico, é seguro.