CasaDoHardware

Se disponibilizar um modelo do arquivo fica mais fácil

@Patropi justamente por isso que nao entendi.

Entendi o que você precisa, mas nao consegui entender seu pensamento.

O ideal seria você disponibilizar seu arquivo e o codigo para que se possa testar.

Veja o caminho que dei. Se você quiser separado vai precisar fazer outros formularios. ADMINISTRAÇÃO_DE_CARTÕES.xls

Desculpe amigo mas a planilha que você postou nao tem nenhum userform. Eu abri o editor de VBA.

Sua planilha nao tem nenhum formulario.

Experimente ver este video

então calcule o numero de meses entre as datas e multiplique por 22

@Wilken Perez Filho então eu disse a planilha nao a imagem dela

Para unificar os dados a melhor maneira é usar power query. rápido e eficiente.

É uma macro simples mas fica mais fácil se tiver um modelo da planilha.

Auto filtro nao resolve?

Pesquise a função diatrabalhototal. Ela conta a quantidade de dias uteis entre duas datas desconsiderando sábado, domingo e se você quiser exclui feriados tambem.

Como nao acontece nada? Classifique a coluna manualmente em ordem decrescente depois use o codigo.

Experimente este codigo Sub Classificar() Dim Sh As Worksheet Set Sh = Sheets("Clientes") With Sh.Sort .SortFields.Clear .SortFields.Add Key:=Range("B1:B2000"), Order:=xlAscending .Header = xlYes .Apply End With End Sub

Essas 50 são arquivos diferentes? Estão na mesma pasta? você pode fazer com power query.

Congelar Paineis

Uma planilha de exemplo faz milagres!!

Se é na vazia tente o que o Patropi propos ou isso Range("C "& Rows.Count).end(xlup).offset(1,0).select

O que esta acontecendo neste exemplo é que o arquivo contem vinculos com outro arquivo O nome desse arquivo que solicita para abrir, nao tem nada relacionado ao codigo, é 2018 Contr Geral Veic 1.xlsx Qto ao problema de deletar a linha errada troque no codigo esta parte do codigo .Rows(LinhaTotal - 1) Por esta .Rows(LinhaTotal - 2) O codigo vai sempre atuar 2 linhas acima da ultima linha de dados.

Eu parei aqui!!

Troque isto: Columns("C:C").Select Por isso: Range("C "& Rows.Count).end(xlup).select

Seria melhor disponibilizar uma planilha ao invés da imagem. Mas pode tentar com somarproduto.

As celulas mescladas nos titulos aparentemente sao a causa disso. Realmente nao sei se ha como resolver.