No final da macro que faz o filtro, antes de END SUB, coloque apenas isto: DLin = Sheets("Fiscal").Range("AV3").End(xlD...

Carregue o arquivo na nuvem (OneDrive, GoogleDrive etc) e compartilhe o link.

Dim Lg As Single Dim Ht As Single Dim Fini As Boolean Private Sub btn_calcular_Click() Dim quantidade, sv1, sv2 As Long Dim strEmpresa, s...

https://www.youtube.com/results?search_query=vba+remover+duplicatas Private Sub ComboBox1_Enter() End Sub Private Sub Use...

https://www.hardware.com.br/comunidade/vba-teclas/1072103/

https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra

............

O código a seguir serve para tirar os espaços das células da planilha. Pode ser que executar essa macro antes de exportar, resolva. Option Explicit ...

Sub Macro4() Dim DLin As Long DLin = Sheets("Fiscal").Range("AV3").End(xlDown).Row Sheets("Contábil x...

Private Sub UserForm_Initialize() Dim I As Long Dim J As Long Dim ANTERIOR As String Dim POSTERIOR As String If ComboBox1�...

UltimaLinha = Sheets("inscricoes-1").Cells(Cells.Rows.Count, 1).End(xlUp).Row '<<<<<<<<<...

Sub SomaDaColunaAV() Dim ul As Double Dim i As Long ul = 0 'da linha 3 até a ultima linha preenchida For i = 3 To Planilha1&#...