Boa tarde,
Pessoal estou fazendo uma rotina para padronizar todo relatório retirado de um sistema, o código que fiz está funcionando, porém, no final ele da o erro 424, já depurei várias vezes, mas não entendo do pq dele no final na última ação a variável "Ultcel" fica como objeto inválido e acontece o erro, não entendo muito de vb, sou apenas mais um curioso fazendo as doideras da vida pra conseguir aprender, já pesquisei em tudo quanto eh canto, mas não esclarecem o erro.
Necessito desta solução, pois ainda irei continuar esse código com as questões de formatação, mas com esse erro ocorrendo no meio, não dá, pois o processo é abortado.
Private Sub CommandButton1_Click()
Dim UltCel As Range
Dim W As Worksheet
Dim Cod As Variant
Set W = Sheets("Plan1")
Set UltCel = W.Range("A1048576").End(xlUp)
W.Select
W.Range("a7").Select
W.Range("l6").Value = "Supervisor"
Do While ActiveCell.Row <= UltCel.Row
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "Representante:" Then
Cod = ActiveCell.Offset(0, 1).Value
ActiveCell.EntireRow.Delete
Exit Do
Else
If ActiveCell.Value = "NFE" Then
ActiveCell.Offset(0, 11).Value = Cod
ActiveCell.Offset(1, 0).Select
Exit Do
Else
ActiveCell.EntireRow.Delete
End If
End If
Loop
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
If ActiveCell.Row > UltCel.Row Then
Exit Do
End If
End If
Loop
End Sub
Postado : 09/06/2016 1:23 pm