Ir ao conteúdo
  • Cadastre-se

Erro em tempo de execução '424': o objeto é obrigatório


Posts recomendados

Sub Extrair_dados()
    Plan2.Range("A2:M100").ClearContents
    ultimaCelula = Plan1.Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row
    lin = 2
    For i = 9 To ultimaCelula
If Plan1.Cells(i, 5) = "D" Then
Plan2.Cells(lin, 1) = Plan1.Cells(i, 1)
Plan2.Cells(lin, 2) = Plan1.Cells(i, 2)
Plan2.Cells(lin, 3) = Plan1.Cells(i, 3)
Plan2.Cells(lin, 4) = Plan1.Cells(i, 4)
Plan2.Cells(lin, 5) = Plan1.Cells(i, 5)
Plan2.Cells(lin, 6) = Plan1.Cells(i, 6)
Plan2.Cells(lin, 7) = Plan1.Cells(i, 7)
Plan2.Cells(lin, 8) = Plan1.Cells(i, 8)
Plan2.Cells(lin, 9) = Plan1.Cells(i, 9)
Plan2.Cells(lin, 10) = Plan1.Cells(i, 10)
Plan2.Cells(lin, 11) = Plan1.Cells(i, 11)
Plan2.Cells(lin, 12) = Plan1.Cells(i, 12)
Plan2.Cells(lin, 13) = Plan1.Cells(i, 13)
lin = lin + 1
End If
Next
   
End Sub
 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...