Página 1 de 1
Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 29 Mai 2020 às 15:09
por Alexmanza
Estou com 95% da planilha pronta, ao rodar a macro gostaria de quebrar o relatório em 07 pessoas por vez que é o máximo que vou conseguir copiar, e não vou me perder pois os grupos estão separadas entre 07 pessoas que pelas minhas contas daria 14 linhas, gostaria de realizar a quebra somente ontem contém informações. A planilha em abexo vai dar 3 quebras, na terceira quebra passa 2 pessoas. Conseguindo fazer isso ai eu terminarei e a planilha vai ficar 100%.
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 29 Mai 2020 às 18:51
por Alexmanza
Eu cheguei até aqui, mas a macro quebra sozinha e não estou conseguindo identificar como fazer ela entrar em loop e descer de 14 em 14.
Sub teste_7()
linha = 1
linha_fim = Range("A1").End(xlDown).Row
While linha <= linha_fim
Cells(linha, 1) = 1
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
linha = linha + 14
Wend
End Sub
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 29 Mai 2020 às 19:23
por osvaldomp
Antes de sugerir alguma solução.
Na Planilha1 você deixou linhas vazias entre os dados.
É sabido que linhas vazias entre os dados dificultam a aplicação de fórmulas e de macros.
Ainda, o Excel não foi concebido para lay outs desse tipo.
Curiosidade: existe alguma razão para isso? Qual a necessidade ou a conveniência ou a utilidade ?
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 30 Mai 2020 às 08:24
por Alexmanza
Não sabia que não pode ter espaçamento nas linhas, estou aprendendo os conceitos por conta própria. A necessidade e de automatizar um trabalho que hoje é realizado manualmente essa planilha já existe no excel mas ela não é automatizada, cada padrão de coluna e linha em branco com tamanho diferente e necessário na hora da colagem no sistema financeiro que eu trabalho ou e isso ou e digitar cada informação manualmente. Agradeço a sua dica, sobre a macro, essa divisão de grupo e a última coisa que falta.
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 30 Mai 2020 às 11:26
por osvaldomp
Alexmanza escreveu: ... cada padrão de coluna e linha em branco com tamanho diferente e necessário na hora da colagem no sistema financeiro ...
Veja se a solução do arquivo anexado lhe atende.
Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 02 Jun 2020 às 11:25
por Alexmanza
Bom dia!
Oswaldo me perdoe eu vi hoje a sua resposta, inseri a versão final da planilha, na parte final eu fiz os comandos manualmente pulando na vdd de 15 em 15. Essa planilha que eu preciso para colar no sistema financeiro que eu trabalho, mas como as pessoas vão aumentando no decorrer do ano provavelmente vou ter que ir incluindo os comandos manualmente, estou lutando com a sistemática de repetição mas me falta conhecimento técnico dos comandos já tentei adaptar os esquemas da minha macro mesmo, já fiz de tudo, ai acabei colocando a mão. Só queria pegar o fio da meada é na parte final da macro que queria fazer o loop. Agradeço a sua ajuda. Esou enviando a versão final da planilha, estou tentando entender onde estou errando na construção do loop, friso que nessa macro na parte final foi realizada normalmente a inserção das linhas da forma que eu precisava, só não consegui criar a repetição.
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 02 Jun 2020 às 11:47
por osvaldomp
Eu postei uma solução para o arquivo que você disponibilizou, com base nos critérios que eu entendi, no entanto, com base na sua resposta acima me parece que você ignorou totalmente e a sua ideia é que eu analise e arrume o código que você está tentando utilizar.
Desculpe, mas a minha sugestão é de aplicar o código que eu elaborei, eu não me proponho a analisar, testar, arrumar o seu código pois ele tem uma abordagem muito diferente do que eu comumente utilizo.
Resumindo, se você quiser continuar com a minha ajuda, então teste o arquivo que postei e informe se precisa de algum ajuste ou alguma modificação.
Re: Quebrar grupos de linhas de 14 em 14 linhas em loop
Enviado: 02 Jun 2020 às 11:52
por Alexmanza
Agradeço a sua ajuda! obrigado!