cara vc é demais! Eu tinha postado essa dúvida em outro fórum também e obtive o seguinte código, é bem parecido com sua lógica... Option Explicit ...

@karc28 Perfeito, esse link resolveu o segundo loop, o de apagar as linhas onde não tiver valor algum no campo de descrição.... Mas o primeiro loop,...

Consegui! Obrigado pela ajuda. ficou assim kkkkk valeu! CONTALINHA = 1 'Esta variavel irá servir para pular de linha VerificaCel = Cells(CONTALI...

Obrigado pela resposta rápida Klarc28, essa solução apagou a linha que contém a data, mas as outras linhas antes dela não foram apagadas... Minha ide...

Amigos, vi um código na internet que está me ajudando, agora minha dúvida é como depois que sair do Loop, apagar da linha que possui a palavra "...

Esse código até funciona, mas eu tenho que rodar ele 2x pra ele não deixar nenhuma linha com a coluna C sem valor... Se você rodar ele 1x, ele deixa ...

Amigos, tentei fazer o seguinte... Sub teste() Application.ScreenUpdating = False Dim UltimaLinha As Long UltimaLinha =...

Prezados, boa noite, Segue o anexo de um exemplo...

Oi Prudencio, boa noite! Então, não entendi sua lógica... Quando tentei fazer pelo gravador, ficou assim: ActiveSheet.Range("V1").AutoFil...