Ir ao conteúdo
  • Cadastre-se
Leonardo R Vargas

Extrair apenas linhas preechidas no excel

Recommended Posts

bom dia preciso de ajuda, sou novo aqui. 

tenho esta macro, porém ela esta pegando as linhas em branco.

gostaria que ele obedecesse o seguinte comando plan1 na linha i a partir da celula 22, se mair que 1, fosse copiado as outras linhas para a plan3 como no macro, sem deixar linhas em branco no intervalo.

 

Sub sbx_extrair_dados_criterio_grupo()
Dim i As Integer, j As Byte
j = 21
X = Plan3.Cells(Rows.Count, "a").End(xlUp).Row + 1
Plan3.Range("a21:q49" & X).ClearContents
With Plan1
For i = 22 To .Range("I" & Rows.Count).End(xlUp).Row
If Plan1.Range("i" & i) = 1 > "" Then
Plan3.Range("a" & j) = .Range("i" & i)
Plan3.Range("h" & j) = .Range("d" & i)
Plan3.Range("g" & j) = .Range("j" & i)
j = j + 1
End If
Next i
End With
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite. Está dando o erro de execução. Não funcionou. Precisava também que ele colocasse tudo somente entre as células a 21 e q 49 da plan3 a quantidade de linha e o suficiente. Se precisar posso postar a planilha.

Compartilhar este post


Link para o post
Compartilhar em outros sites
2 minutos atrás, Leonardo R Vargas disse:

Se precisar posso postar a planilha.

 

Isso, disponibilize uma amostra do seu arquivo com o código instalado, com alguns dados na Plan1 e alguns resultados esperados na Plan3. A amostra deve ter estrutura exatamente igual à planilha original.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×