VBA - Ler coluna A, com matriculas e buscar demais celulas para outra planilha

Question

Olá pessoal,

Vez por outra desenrolo umas coisas em VB, mas dessa vez to apanhando e gostaria da ajuda dos experts... no exemplo de planilha abaixo tenho a seguinte situação qual não consigo resolver... preciso gerar um modelo de holerite em pdf com email automatico (essa parte tiro facil), o que não estou conseguindo é extrair as informacoes abaixo de forma corrreta: preciso ler a coluna A e enquanto a matricula (398 por exemplo)  se repetir, pegar cada informacao das colunas e levar para meu layout de impressão... preciso de um exemplo de repetição que realize essa leitura, e que faça o proximo registro até o final da planilha...

penso da seguinte forma: posiciono a coluna A2 e jogoa matricula numa variavel que se repete até a variavel mudar... vou juntando os dados da linha em cada posicao do layout de saida (range.planX.posicao) linha a linha até que apareça nova matricula... ai um novo loop para os registros dessa nova matricula...

a quem se dispor a ajudar, obrigado, aos demais abraço!



Answer 1

Sub teste()

Dim lin As Long




While Sheets(1).Cells(lin, 1) <> ""
'Aqui começa a ler a primeira matricula
matricula = Sheets(1).Cells(lin, 1)

While Sheets(1).Cells(lin, 1) = matricula

'coloque aqui o quer que faça se a matricula for igual

lin = lin + 1
Wend

lin = lin + 1

Wend


End Sub

---

Anderson Diniz