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

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

Em seguida posto a planilha.ok, obrigado.

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.

Alguém????

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