Macro para mover linha de uma planilha para outra

Português do Brasil
, ,
#6

@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?

#7

@Francys, veja complemento na resposta acima.

#8

@Conras, quero o seguinte:

  1. 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. 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

#9

@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?

#10

Ok, a pergunta inicial era mover linha, vou rever as macros. Poste a macro VBA, talvez seja útil.

#11

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

#12

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?

#13

Acho que a Macro VBA ficou truncada, o comentário tem limite.

Edite sua pergunta e inclua a Macro lá.

#14

@Francys, veja complemento2 na resposta acima.

#15

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.

#16

@Francys,

  1. Pode adicionar outras planilhas, criando as macros necessárias conforme o padrão.
  2. Pode renomear desde que altere a/as macro/s correspondente.
  3. 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

#17

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

#18

@Gilberto Schiavinatto, Muito obrigado pela grande ajuda.

#19

@Francys, o arquivo foi atualizado, contém o Menu [ MOVER ] que menciono. Cometi um erro e ficou gravado em meu LibreOffice.

#20

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.

#21

@Francys, fiz um outro exemplo para te ajudar também. O exemplo do @Gilberto Schiavinatto também funciona. Este aqui seria um algo a mais para conhecimento.

Abraços.

Arquivo

#22

Olá. A planilha ficou boa. Com exceção de alguns detalhes que faltaram. Mas observei no código que vc e o @Gilberto Schiavinatto usaram linguagem diferente para fazer praticamente a mesma coisa.

#23

@Francys, Basicamente uso o gravador de Macro e depois dou uma “desengordurada”, retirando informações em duplicidade, pois muitos comandos alinhados as vezes invocam os “mesmos parâmetros”, então tornam-se desnecessários. O @Conras, é mais técnico, trabalha criando a rotina, para quem sabe é prático.

#24

@Francys, foi como eu falei, a minha foi mais para um aprendizado. Como aprendi algo novo com essa planilha do @Gilberto Schiavinatto. não sabia que dava para colocar menu puxando as macros =)

#25

@Conras e @Francys, da para Personalizar Menu e Barras de ferramentas, vide os dois artigos que foi publicado na LibreOffice Magazine 20 e 21.

Menu => https://www.schiavinatto.com/mundolibre/criando-menu-personalizado_lm20.html

Barra de ferramenta => https://www.schiavinatto.com/mundolibre/barra-de-ferramentas-personalizada_lm21.html

Se quiserem baixar as Revistas completas, estão aqui: Revista | LibreOffice - A melhor suite office livre

Impressum (Legal Info) | Datenschutzerklärung (Privacy Policy)   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.