Neste artigo, criaremos uma macro para inserir quebras de página, com base em uma determinada condição.
Os dados brutos consistem em dados do agente, que incluem o nome do agente, o nome do cliente, o número do telefone e a identificação do e-mail.
Queremos os dados de um determinado agente em páginas separadas durante a impressão. Portanto, queremos inserir uma quebra de página no final dos dados de cada agente.
Explicação lógica
Criamos a macro “InsertingPagebreak” para inserir uma quebra de página. Fazemos comparação de valores de 2 células consecutivas na primeira coluna para encontrar a última célula relacionada a um determinado agente e inserir uma quebra de página.
Explicação do código
ActiveSheet.ResetAllPageBreaks
O código acima é usado para remover qualquer quebra de página anterior inserida na folha.
If Cells (LngRow, LngCol) .Value Cells (LngRow - 1, LngCol) .Value Then
O código acima é usado para comparar células consecutivas na primeira coluna.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol)
O código acima é usado para inserir quebras de página antes das células especificadas.
Siga abaixo para o código
Sub InsertingPagebreak () 'Declarando variáveis Dim LngCol As Long Dim LngRow, MaxRow As Long' Limpar quebras de página existentes ActiveSheet.ResetAllPageBreaks LngCol = 1 'Obtendo o número da linha da última célula MaxRow = Range ("A11"). SpecialCells (xlCellTypeLastCell) .Row 'Loop por todas as linhas começando da décima terceira linha For LngRow = 13 To MaxRow' Comparando valores na célula de duas linhas consecutivas para a coluna especificada If Cells (LngRow, LngCol) .Value Cells (LngRow - 1, LngCol) .Value Then ' Inserindo quebra de página ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol) End If Next LngRow End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail