Apenas para finalizar o tópico, com a ajuda do Messias.
Segue abaixo o macro:
Sub extrairnovo()
Dim i As Integer, j As Byte
Dim ultimalinha
j = 12
Plan3.[a12].ClearContents
Plan3.[h12].ClearContents
With Plan8
For i = 2 To .Range("a" & Rows.Count).End(xlUp).Row
If .Range("b" & i) = Plan3.Range("c6") Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("i" & i)
Plan3.Range("f" & j) = .Range("j" & i)
Plan3.Range("h" & j) = .Range("k" & i)
j = j + 1
End If
'A PARTIR DAQUI EU PRECISAVA DE ALGUMA INFORMAÇÃO DIZENDO CASO A COLUNA P
'ESTIVER EM BRANCO NAO FAÇA MAIS NADA, PULE PARA PROXIMA LINHA.
ultimalinha = Sheets("Dados1").Range("A1000000").End(xlUp).Row
'
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("P" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("p" & i) '
Plan3.Range("f" & j) = .Range("q" & i)
Plan3.Range("h" & j) = .Range("r" & i)
j = j + 1
End If
End If
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("W" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("w" & i)
Plan3.Range("f" & j) = .Range("x" & i)
Plan3.Range("h" & j) = .Range("y" & i)
j = j + 1
End If
End If
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("AD" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("ad" & i)
Plan3.Range("f" & j) = .Range("ae" & i)
Plan3.Range("h" & j) = .Range("af" & i)
j = j + 1
End If
End If
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("AK" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("ak" & i)
Plan3.Range("f" & j) = .Range("al" & i)
Plan3.Range("h" & j) = .Range("am" & i)
j = j + 1
End If
End If
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("AR" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("ar" & i)
Plan3.Range("f" & j) = .Range("as" & i)
Plan3.Range("h" & j) = .Range("at" & i)
j = j + 1
End If
End If
If .Range("b" & i) = Plan3.Range("c6") Then
If Sheets("Dados1").Range("AY" & ultimalinha).Value <> "" Then
Plan3.Range("a" & j) = .Range("a" & i)
Plan3.Range("b" & j) = .Range("f" & i)
Plan3.Range("C" & j) = .Range("g" & i)
Plan3.Range("D" & j) = .Range("h" & i)
Plan3.Range("e" & j) = .Range("ay" & i)
Plan3.Range("f" & j) = .Range("az" & i)
Plan3.Range("h" & j) = .Range("ba" & i)
j = j + 1
End If
End If
Next i
End With
End Sub
Agradecido pela atenção e o retorno.
Postado : 21/09/2015 12:27 am