Boa tarde! Freefile: Retorna um inteiro que representa o próximo número de arquivo disponível para uso pela instrução Open. FreeFile [(rangenumber...

Segue nova versão do código: Sub AplicarCodBaixa()Dim UltLinha As LongDim i As LongDim CodBaixa As LongUltLinha = Cells(Cells.Rows.Count, 1).End(xlU...

Bom dia! Veja se, agora, atende: Sub AplicarCodBaixa()Dim UltLinha As LongDim i As LongDim CodBaixa As LongUltLinha = Cells(Cells.Rows.Count, 1).E...

Boa tarde! Veja se este código atende: Sub AplicarCodBaixa()Dim UltLinha As LongDim i As LongUltLinha = Cells(Cells.Rows.Count, 1).End(xlUp).RowFo...

Boa tarde! Adaptei o seu código para exportar para um arquivo xml: Sub ExportarXML()Dim Arquivo As StringDim y As LongDim x As LongDim i As LongAr...