Philippe Soares

João, não alterei a referência, somente, o que retorna da função SE, no caso ele exibe os dias restantes ou posteriores ao inicio da reposição, estou encaminhando o exemplo dessas alterações, Quando a coluna F de comparação da coluna E, sugiro que realize uma comparação com a data das colunas D, ou seja que a base a comparação seja a data para iniciar a reposição e não uma busca por valores dentro de um texto, que é mais complexo. Infelizmente, por motivos de falecimento não pude auxiliar mais nesse momento, peço desculpas pela demora a responder, assim que possível realizo uma alteração mais especifica na coluna F, para que seja completamente funcional. exemplo 1.xlsx

Bom dia, João. Pelo conhecimento que tenho detectei o seguinte, mudei para : =SE(A7="";"";SE(D7=HOJE();"Avisar aluno sobre reposição";SE(D7<HOJE();"Avisar aluno com urgência se passaram "&(D7-HOJE())*-1&" dias da reposição";D7-HOJE()&" dias restantes para a disciplina "))) Dessa forma fica preenchido em D: Se for hoje a reposição : Avisar aluno sobre reposição Se já houver passado : Avisar aluno com urgência se passaram X dias da reposição Caso ainda venha a começar : Avisar aluno sobre reposição X dias restantes para a disciplina Quanto a coluna F: Por por tratar-se de comparar um numeral com texto torna complicado

Olá, sou novo aqui no Fórum, dei uma pesquisada antes de abir o tópico e não encontrei algo relacionado ao assunto, então vamos a ele: Gostaria de Saber como criar uma Textbox, a partir de uma macro e atribuir um evento a essa textbox que foi recém-criada. Exemplo: Tenho Formulario1(F1), que contem uma Multipage1(MP1), que tem a Page1 com 15 Textbox (que serão inseridos o "ID" do mateial) que serão espelhadas (after_update) em outras 15 Textbox. (Não sei se esta dando para compreender) o Scrip de criação das page eu já tenho algo como: Public X As Long 'X = Número da Página que será criada (default =1) Private Sub Nova_Pg_Click() F1.MP1.Pages.Add.Name = "PG" & X NOME = "PG" & X With F1.MP1.Pages(X) k = 10 'K = para posicionamento das txtbox em cada page (TOP=10) que é adicionado em +30 para ser espaçado para próxima textbox Y = 1 'Y = Quantidade de Textbox Do Until Y = 15 ' Set txtB1 = F1.MP1.Pages(X).Controls.Add("Forms.TextBox.1") 'Definição das propriedades da textbox 'textbox1 entrará o ID, que será referência para busca do nome do produto With txtB1 .Name = "TB_" & Y .Height = 20 .Width = 50 .Left = 10 .Top = k End With Set txtB2 = F1.MP1.Pages(X).Controls.Add("Forms.TextBox.1") 'Definição das propriedades da textbox2 'TextBox 2 entrará o nome do produto With txtB2 .Name = "TB_D" & Y .Height = 20 .Width = 50 .Left = 90 .Top = k End With 'Adiciona o espaço para proxima textbox k = k + 30 'vai para proxima textbox ate = 15 Y = Y + 1 Loop 'define o a altura da pagina igual a ultima textbox e ativa a scrollbar .ScrollHeight = k .ScrollBars = 2 End With 'define a variavel para a proxima page como +1 X = X + 1 End Sub Minha duvida é como fazer com que essas textbox que foram friadas após serem atualizadas ou uma a uma por (For Each) executem (call) a sub chamada Busca com parametros que seja o nome da própia textbox que a chamou e a textbox que será retorna o resultado da sub busca; Nos teste que tenho feito, criar as textbox e as page com o nome PG1, PG2, PG3 ~...... e as txtbox como Name: TB_1,TB_2,TB_3 ~..... não tem sido problema, porém consegui com que as textbox com a ID (textbox1) busquem o nome e retornem nas Textbox2 que me complica o que consegui é : Private Sub TB_01_AfterUpdate() Call BUSCA (F_TRANS.TB_01, F_TRANS.TB_1D) End Sub Onde a sub call realiza a busca com base nos parâmetros tb_1 e retorna na tb_1d Porém fazer com que a macro sera realizada em textbox que ainda não foram criadas é o que não estou conseguindo; Quem puder ajudar agradeço muito, hoje 13/03/18, não consegui upar o arquivo de exemplo, porém amanha creio que consigo. Desde já agradeço a ajuda a atenção de todos;