Sem ver/entender o layout de seu projeto fica dificil qualquer sugestão (pelo menos para mim) De uma lida/olhada no tópico http://www.planil...

Segue uma possibilidade, utilizando Sql e salvando dados em nova sheet; nos testes rapidos em meu velho note rodou em menos de 1 minuto Execute a roti...

Disponibilize seu modelo/exemplo em algum site de compartilhamento tipo Sendspace/Mega/dropbox/google drive.. e informe o link de download aqui no fór...

Uma possibilidade: Sub Gera_Codigo() Dim ws As Worksheet Dim Cont As String Dim Linha As Integer Set ws = ThisWorkbook.Worksheets("Clien...

Qual a possibilidade de na "geração" do relatório omitir essas linhas. Aparentemente a "demora"(18000 linhas não é muito;) deve-se...

Experimente: Sub Inserir_plan_mes() Dim i As Integer Dim MesAno As String 'Month retorna um numero de 1 a 12 que representa o mes da data requerida i ...

Não entendi a demanda, mas vamos por parte Sua rotina, se entendi, pode ser escrita +/- assim: Sub Parcelamento() Dim linha, contador ' ' Parcelamento...

Temporariamente o forum não está "aceitando" upload de arquivos/modelos, pedimos que sejam disponibilizados/"upados" em algum site...

Aparentemente a unica "incoerencia" está na forma de obter o valor de qtd: A sintaxe para uso de Cells é : Cells(numerodalinha, numerodacolu...

Não entendi o que espera,mas para utilizar uma variavel em uma seleção/definição de range a sintaxe deve ser algo +/- assim: Range("A" &...

Experimente: Altere o trecho da rotina conforme abaixo 'wb.SaveAs sWbkFullName, xlWorkbookDefault Columns("A:A").Sel...

Talvez, eu não entendi direito; tambem não aprofundei testes para saber/ver se a hora incorporada afeta a conversão/importação A inversão de dia/mes a...

Fica dificil qualquer ajuda sem o seu arquivo (pelo menos o .csv); visto que; em teoria; a proposta deveria ajustar a consversão. Bem como a imagem di...

Sugestão: Abra o arquivo ou copie alguns registros da coluna em outra planilha; ative o gravador de macros. depois selecione texto para colunas, assin...

Experimente/teste: Private Sub TextB_DataF_fc_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextB_DataI_fc.Value = Empty Then MsgBox &q...