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)