Codigo VBA ignorar célula em branco
Enviado: 25 Abr 2021 às 11:52
Ola galera tudo bem? precisava de mais uma ajuda nesse código ele estava funcionando tudo bem ate eu inserir a linha de vencimento agora quando ele busca na planilha e a celula esta em branco ela retorna com erro e precisava fazer ele ignorar somente essa parte quando tiver em branco mais continuar buscando o resto da linha
Código: Selecionar todos
Att, Obrigado desde jaSub relatorio()
Plan7.Range("A15:h50").ClearContents
ultimalinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
lin = 15
For i = 2 To ultimalinha
If Planilha1.Cells(i, 7) = Range("E6") Then
Plan7.Cells(lin, 1) = Planilha1.Cells(i, 1) 'Movimento
Plan7.Cells(lin, 2) = Planilha1.Cells(i, 2) 'Tipo
Plan7.Cells(lin, 3) = Planilha1.Cells(i, 3) 'Status
Plan7.Cells(lin, 4) = DateValue(Format(Planilha1.Cells(i, 4), "mm/dd/yyyy")) 'Data
Plan7.Cells(lin, 5) = DateValue(Format(Planilha1.Cells(i, 5), "mm/dd/yyyy")) 'Vencimento
Plan7.Cells(lin, 6) = Planilha1.Cells(i, 9) 'Valor
Plan7.Cells(lin, 7) = Planilha1.Cells(i, 8) 'Descrição
Plan7.Cells(lin, 8) = Planilha1.Cells(i, 14) 'Resolvido
lin = lin + 1
End If
Next
End Sub