Excel - Uma macro para executar cálculos e salvar dados em outra planilha

Questão

Eu tenho uma série de clientes de números de conta na coluna A. Essa lista é de tamanho variável.

Minha necessidade é:

  • Eu dividi a lista em páginas de 40 contagens.
  • Eu pego 40 contas na coluna A
  • Eu copio e mantenho uma nova folha 1.
  • Eu estou seguindo o 40 e eu colo-os em uma folha 2. E etc ... até o último da lista. Você poderia me ajudar, porque os livros de VBA, por enquanto, são chineses para mim? Obrigado!

Solução

Um exemplo de como deveria ser:

 Sub exploding () Dim sh Como planilha, numf Como longa, linha como longa Definir sh = ActiveSheet Application.ScreenUpdating = Falso numf = 1: = 1 Para lig lig sh = 1 Para. [A65536]. Planilhas final (xlUp) .Adicione após: = Planilhas (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Redimensionar (40, 1). Valor = lig lig + numf 39 + 1 = numf lig sh. Ativar em seguida Application.ScreenUpdating = True End Sub 

Você seleciona a planilha em questão antes de executar a macro.

  • Se ele tem um nome determinado substitua:
  • Definir sh = ActiveSheet
    • por:
  • Definir sh = planilhas ("name_ofthe_sheet)
Artigo Anterior Próximo Artigo

Principais Dicas