AMORIM123,

Não consegui entender ainda aonde está o problema que você relata. Veja, no seu arquivo, apenas desabilitei (com comentários) algumas funções que não estavam rodando aqui no meu micro e executei o formulário frm_rbpa. Entrei com uma data no primeiro campo de texto desse form, com 2 valores nos dois outros textbox e cliquei no botão OK. Ele abre o form com o treevew. Abri a árvore (Simples Nacional/Receitas no Mercado Interno/ANEXO 1 e cliquei em Revenda de Mercadorias. Nesse ponto, coloquei uma Msgbox para que seja exibida o valor da variável DatAnterior. Veja que a data que foi data entrada lá no form frm_rbpa é exibida normalmente na MsgBox. Depois disso seu formulário frm_anexo1_quest é aberto normalmente. Então inseri um valor qualquer no Textbox txt_icms_proprio e sai com TAB. o Evento txt_icms_proprio_AfterUpdate então é executado. Nesse momento também inseri uma msgbox para exibir o valor da variável DatAnterior. Veja que a data novamente é exibida normalmente.

Isso significa que a data está chegando tranquilamente no seu formulário e no respectivo evento. Assim, onde está o erro?

Wagner, mais uma vez muito obrigado pela atenção

Agora estou sem PC.. mas amanhã estarei testando

O evento afterupdate é para ser executado ao abrir "frm_anexo1_quest" sem ser necessário digitar algo na "txt_icms_proprio" e sair dele na sequência...para tanto acredito que o evento afterupdate focado no "txt_icms_proprio" não seja o mais adequado...o objetivo final é pegar "datAnterior" e comparar cm o loop feito na coluna 2 da sheets("Anexo1") para ver se tem alguma data semelhante...havendo então...ele preenche os txt_icms_proprio e txt_icms_st com os demais dados do registro semelhante

AMORIM123,

Sim, entendi e vi que em determinados locais do seu código você faz a chamada a esse evento. Veja o código com as MsgBox que coloquei para verificar que a data inserida no forma anterior aparece até mesmo quando se está no formulário frm_anexo1_quest.

Uma coisa que vi rapidamente e nem comentei é que acho que esse loop a que você se refere não está correto. Examine.

wagner,

O evento "afterupdate" com foco no "txt_icms_proprio" possuí a instrução de loopar a partir da linha 2 coluna 2 da sheets("Anexo1") o valor armazenado em datAnterior, isto é, ver se há uma data semelhante à armazenada na public, no exemplo a data semelhante é 05/05/2018, ...havendo esta semelhança o "frm_anexo1_quest" deve ter seus txtbox's: "txt_icms_proprio" e "txt_icms_st" preenchidos com os demais dados do registro....se não houver registro semelhante ai ele retorno vázio.

A data armazenada na public realmente é repassada independênte da forma testada...vc testou com msgbox...eu havia testado assim, tbm é repassado o valor, porém acredito que meu problema esteja no foco do evento afterupdate, pois da forma que desejo que seja executada a ação ao abrir o form (INITIALIZE OU ACTIVATE):

Private Sub UserForm_Initialize()
                     .
                     .
                     .
  Sheets("Comum").Cells(1, 8).Value = datAnterior
                     .
                     .
end sub

sim ..sim... no loop tava faltando "exit for" antes do else ..tentei fazer alguns testes: comentei o evento afterupdate inteiro e copiei esse cód para dentro do evento initialize para ele rodar assim que o "frm_anexo1_quest" for inicializado...percebi que ele roda legal, porém ainda sem o preenchimento dos txtbox's: "txt_icms_proprio" e "txt_icms_st" como deveria ocorrer...pois há dados semelhantes (data semelhante: 05/05/2018)..

Link: https://www.dropbox.com/s/huwr9wdeia5aj ... .xlsm?dl=0

Não consegui armazenar aqui no fórum

era o loop...vlw meu amigo!

tou sem pc ai tava dificultando...a visualização..

AMORIM123,

Bom dia!

Valeu!

Peço, por gentileza, que não utilize citações de inteiro teor das mensagens que lhe são encaminhadas nas suas respostas. As citações, quando estritamente necessárias ao entendimento da mensagem por parte do seu interlocutor, devem restringir-se apenas a pequenos trechos.

blz...obrigado