Este fórum está sendo desativado

Boa noite Kevim2013
É utilizado para fazer referência ao próprio objeto.
Em vez de digitar: "userform1.textbox1" usa-se "me.textbox1"....os dois usos produzirão o mesmo entendimento pelo VBA.
At.
gfranco

Bom dia Luciano. Poste um modelo da planilha que dou uma olhada na estrutura pra vc.

Bom dia CVasconcellos.
O anexo procura uma planilha chamada "entrada" e faz a importação.
At.
gfranco

Já vi a senha....

Bom dia Amado.
Gostei da iniciativa, disponho-me a ajudar e acredito que mais utilizadores deste fórum também se disporão.
Baixei o anexo e vou começar a examiná-lo na quinta feira ( minha folga).
At.
gfranco.
Ah, o arquivo está com senha....

Boa noite TFSGRS
Segue o arquivo com uma breve explicação.

Boa tarde BBMurad.
Veja se o anexo se aproxima de seu objetivo...
At.
gfranco.

Bom dia BBMurad.
Segue em anexo uma sugestão de solução.
Construi uma simulação dos 31 dias do mês e uma última aba chamada consolidação, veja se o resultado se aproxima de seu objetivo.
At.
gfranco

Bom dia CVasconcellos.
Veja se o anexo atende seu objetivo.
At.
gfranco

Boa noite TFSGRS
Veja se o anexo se aproxima de seu objetivo.
At.
gfranco

Boa noite.
Acredito que se postares a planilha ficará mais fácil de algum participante tentar ajudar.
At.
gfranco

Boa noite CVasconcellos.
Veja se o anexo atende seu objetivo.
Lembrando que, já que os arquivos a serem importados são de sua propriedade, vc deverá mantê-los protegidos com a mesma senha.
O código está comentado no módulo(na verdade eu só adaptei o seu código já criado)
At.
gfranco

Se vc não fica mudando as configurações de impressão como eu fico, e só o range de impressão que vai mudar vc pode simpresmente escrever: sub impressão Range("A1:J1").Select Set impressao = Selection.CurrentRegion ActiveSheet.PageSetup.PrintArea = impressao.Address Application.Calculation ...

Eu gosto de colocar as seguintes rotinas antes de imprimir: sub impressão Application.Calculation = xlCalculationManual Application.ScreenUpdating = False instruções de impressão.... ...... ..... .... Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True msgbox "con...

Tive o mesmo problema no trabalho uma vez com esse "Application.PrintCommunication = True/false". Para resolver eu simplesmente apaguei todas as suas ocorrências (de false ou true) e a macro funcionou sem problemas..
At.
gfranco

Como no momento da substituição provavelmente, o código do cliente já terá sido preenchido, vc pode apenas copiar as instruções de gravação ( como se fosse um cliente novo) para o caso de "vbyes" ser selecionado, omitindo a instrução de geração de código do cliente e finalizando com um &qu...

Boa noite ygorabreu. Os sistemas geralmente separam os campos através de um caracter delimitador, seja espaço,virgula,tabulação ou com largura fixa onde os campos tem tamanhos iguais. Enfim, acredito que se postar um exemplo do relatório recebido(mudando dados sigilosos,é claro) muitas idéias poderã...

Boa noite Luciano021273. Me parece que está faltando a instrução para a substituição. If cx_nome_cliente.Text = ActiveCell Then ' verifica se a célula ativa é igual ao nome pesquisado If MsgBox("Cliente já Existe, deseja susbtituir?", vbYesNo) = vbYes Then 'pergunta se deseja substituir ou...

Boa tarde. Vc pode utilizar-se da propriedade address para estabelecer um range variável de impressão. Por exemplo... Se nenhuma coluna vai ficar de fora da impressão vc pode definir uma variável x para estabelecer a área a ser impressa valendo-se da propriedade usedrange assim.... Dim folha as rang...

Boa tarde wesleyribeiro123
Deixei o código comentado no módulo, veja se ajuda de alguma forma..