Página 1 de 1

ULTIMA CELULA VAZIA DE UMA COLUNA - PREENCHIMENTO INTERRUPTO

Enviado: 27 Jul 2018 às 11:03
por RafaelVasconcelos
Amigos, boa tarde!
Tenho em uma planilha uma coluna com várias linhas preenchidas e outras vazias.
Preciso de um código VBA que busque para mim a última célula preenchida e me informe o intervalo com células preenchidas, considerando as células vazias que estão entre as preenchidas. Ou seja, o código deve informar, por exemplo: "B11:500" é o intervalo de linhas preenchidas (que entre elas tem vazias também), logo, a partir da linha "B500" não há mas nenhuma célula preenchida.
Se por ventura tivesse alguma dado na linha "B525 e todas as outras, "B501 a B524", estivessem vazias, o código teria que mostrar o intervalo de linhas preenchidas: "B11:B525".

Desde já agradeço o apoio de todos.

Re: ULTIMA CELULA VAZIA DE UMA COLUNA - PREENCHIMENTO INTERR

Enviado: 27 Jul 2018 às 11:16
por osvaldomp
Experimente:
Código: Selecionar todos
Sub BuscaIntervaloPreenchido()
 Dim ir As Long, fr As Long
  ir = IIf([B1] <> "", 1, [B1].End(4).Row)
  fr = Cells(Rows.Count, 2).End(3).Row
  MsgBox "intervalo preenchido B" & ir & ":B" & fr
End Sub

ULTIMA CELULA VAZIA DE UMA COLUNA - PREENCHIMENTO INTERRUPTO

Enviado: 27 Jul 2018 às 12:55
por RafaelVasconcelos
Osvaldo, muito obrigado!
Amigo, vê se você me daria mais uma ajuda nesse mesmo código.

Temos aqui a seguinte necessidade: copiar os dados da aba "LIVRO" (que inicia na linha "B11") para a aba "ANALITICO", contudo a aba "LIVRO" está em constante alimentação. Por isso precisamos de um código que busque a última linha preenchida, conforme mencionei acima, em seguida, selecione o intervalo, copie todos os dados e cole na aba "ANALITICO", a partir da célula A2.

Re: ULTIMA CELULA VAZIA DE UMA COLUNA - PREENCHIMENTO INTERR

Enviado: 27 Jul 2018 às 13:13
por osvaldomp
Experimente:
Código: Selecionar todos
Sub ReplicaDados()
 Sheets("ANALITICO").[A:A] = ""
 Sheets("LIVRO").Range("B11:B" & Sheets("LIVRO").Cells(Rows.Count, 2).End(3).Row).Copy Sheets("ANALITICO").[A2]
End Sub