Extrair apenas linhas preechidas no excel

[Leonardo R Vargas]

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

 

[Leonardo R Vargas]

Alguém????

 

[Visitante]

Experimente substituir esta linha

If Plan1.Range("i" & i) = 1 > "" Then

 

por esta

If Plan1.Range("i" & i) >  1 Then

 

[Leonardo R Vargas]

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.

[Visitante]

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.

[Leonardo R Vargas]

Em seguida  posto a planilha.ok, obrigado. 

 

[Leonardo R Vargas]

https://1drv.ms/x/s!AjincuL9NY2iiQWO4rQvWHoKVz3q

 

[Leonardo R Vargas]

consegui, falta apenas definir que ele não apague as linhas que tem dados, que as linhhas que forem puxadas fique entre a21 e q49