guicrissantos

@Patropi Desculpe. Estou aprendendo ainda. Fiz certo agora?

@InforMira Entendi. Agora deu certinho. Muito obrigado.

@InforMira Agora deu certinho. O erro estava na fórmula ou no código?

@InforMira Sr. Afonso... Estava aqui reorganizando minha planilha após sua ajuda e pude perceber que apesar da funcionalidade do código, os resultados não estão batendo matematicamente corretamente. Poderia verificar por favor se tem alguma coisa errada? Observe nas células A28, A29 e A30 que calculei manualmente os resultados porém, os resultados que aparecem na fórmula das células verdes, não batem. Observa-se que em alguns casos o cálculo do desconto é em percentual, noutros em reais. Outra dúvida é sobre a formatação da coluna "E" pois nela há variantes de reais ou percentuais. Já na coluna "F" o desconto deverá ser o resultado da coluna "E" logo todos em R$. Poderia me ajudar novamente por favor?

@InforMira Meu amigo... Não sei nem como agradecê-lo. Era isso mesmo. Muitíssimo obrigado. Deus abençoe e sucesso para você!

Boa Noite! Estou precisando de uma fórmula ou código VBA que me retorne em tres colunas diferentes, um resultado baseado em tres critérios diferentes. TIPOS DE COBRANÇA: Boleto, Cartão ou PIX COMISSÃO: Se a cobrança tiver sido feita no BOLETO, a comissão será em REAIS ou seja, R$3,49 Se a cobrança tiver sido feita no CARTÃO, a comissão será em PERCENTUAL ou seja, 4,99% Se a cobrança tiver sido feita no PIX, a comissão será em PERCENTUAL ou seja, 0,99% No arquivo anexo, preciso que esta fórmula ou código VBA preencha as células VERDES conforme critérios informados. Será que alguém pode me salvar por favor? Desde já, muito obrigado. No aguardo, Guilherme FÓRMULA COMISSÃO.xlsx

Sr. Osvaldo, Infelizmente não deu certo. Mas fiz conforme você me orientou. Eu não sabia utilizar a função <>, mas agora aprendi. Abrim um novo tópico onde expliquei melhor minha necessidade. Se puder me ajudar, ficarei grato. O post é o seguinte: https://www.clubedohardware.com.br/forums/topic/1449910-configurar-diretório-de-arquivamento/ Otima tarde e excelente final de semana.

Boa tarde! Tenho uma planilha com um controle de usuários. Ao clicar em logar, o usuário acessa a mesma com seu CPF e estando logado, tem acesso as funcionalidades desta planilha onde após utilizar uma das funcionalidades da planilha, tem um COMMANDBUTTON que executa uma macro que oculta linhas não utilizadas e logo em seguida, já salva o arquivo com alguns padrões que já foram definidos, dentre eles, o endereço escolhido pelo usuário, porém, atualmente esse endereço é inserido manualmente no código tendo a necessidade do usuário acessar o VBA para inseri-lo manualmente. O Código dessa COMMANDBUTTON é o seguinte: Private Sub OcultarLinhasBC_Click() OcultarLinhasBC.BackColor = &H0& Application.ScreenUpdating = False For Each xRg In Range("O8:O152") If xRg.Value = "" Then xRg.EntireRow.Hidden = True End If Next xRg LimparDadosReativarLinhas.Enabled = True OcultarLinhasBC.Enabled = False Selection.End(xlDown).Select ActiveWindow.SmallScroll Down:=-102 ChDir _ '"C:\endereço inserido manualmente\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\endereço inserido manualmente\" & Range("B158") & "_" & Format(Now, "yyyymmdd_hhmmss") _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True ActiveWindow.SmallScroll Down:=-24 Range("I8").Select End Sub Tudo que eu preciso, é fazer com que esse formulário criado abaixo, no qual após o usuário logar na planilha, terá a opção de escolher o local onde será salvo o formulário e uma vez escolhido, este comando, JÁ INSERIRÁ AUTOMATICAMENTE NO CÓDIGO ACIMA, ONDE ESTÁ ESCRITO "endereço inserido manualmene", o respectivo caminho permitindo assim a excução correta da macro acima. Para isso, criei um botão um botão que chamei de "CONFIGURAR DIRETÓRIOS". Este botão foi criado utilizando "Inserir formas" do menu de ilustrações do Excel mesmo, mas nada impede ser criado um botão no formato "Active X". Ao clicar neste botão, abre-se um formulario (frmDIR) criado dentro do VBA. Neste formulário tem quatro botões: Neste ícone (binóculo) ao clicar, permite o usuário ir percorrendo o caminho até localizar a pasta onde será salva o arquivo. Este caminho fica gravado nesta TexBox chamada "Relatórios em PDF" O código atribuído ao (binóculo) é este a seguir: Private Sub CommandButton1_Click() Me.txtPDF = SelectFolder End Sub Após localizar a pasta onde deverá ser salva o arquivo gerado, o usuário clica no botão "SALVAR". Este botão possui um código citado a seguir, mas que precisa ser modificado para minha necessidade deste post ou seja, clicando em salvar, o endereço aqui salvo, vai automaticamente parar lá no código mencionado no início deste post no devido lugar que é a seguinte: Private Sub cmdINSERIR_Click() With Me If .txtPDF = "" Then MsgBox "Informe o diretório p/ salvar arquivos PDF.", vbExclamation, "Advertência" .txtPDF.SetFocus Exit Sub End If Call Configurar_Sistema With Sheets("MENU PRINCIPAL") .Unprotect (SENHA) Range("cel_dir_pdf").Value = Me.txtPDF .Protect (SENHA) End With resposta = True ActiveWorkbook.Save MsgBox "Diretório confirmado com sucesso.", vbInformation, "Informação" Unload Me End With End Sub Resumindo, tudo que eu preciso, é fazer com que este terceiro código, comunique-se com o primeiro lá de cima, alterando o endereço que antes era inserido manualmente no código, agora sendo permitindo que o usuário através do botão criado, possa configurar o diretório onde deverá ser saldo o PDF, sem ter que acessar ao código vba. Em outras palavras... O usuário entra na planilha e clica no botão "CONFIGURAR DIRETÓRIO", localiza a pasta onde é para salvar o arquivo e confirma. Quando for executada a função da macro DENTRO DA PLANILHA, ela automaticamente salvará no local onde o usuário direcionou no início. Se alguém puder me ajudar, ficarei extremamente grato. Observação: Os códigos estão criados, mas não estou conseguindo fazer com que eles se comuniquem sem interferências.

Olá Sr. Osvaldo... Obrigado pelo rápido retorno. Existe uma planilha na pasta com um botão ocultar linhas não utilizadas. Quando o usuário clica neste botão a macro já gera um pdf com nome, data, hora personalizados e deverá salvar numa pasta direcionada onde serão armazenados estes relatórios. Daí o motivo de ao logar na planilha, o usuário, já definir onde está esta pasta. O comando para isso já está criado, só preciso completa-lo conforme coloquei no código acima. Desde já muito obrigado.

Boa tarde Sr. Osvaldo... Tudo bem? Será que pode me ajudar novamente... Tenho uma planilha com um botão que chamei de "CONFIGURAR DIRETÓRIOS". Este botão foi criado utilizando "Inserir formas" do menu de ilustrações do Excel mesmo, mas nada impede ser criado um botão no formato "Active X". Ao clicar neste botão, abre-se um formulario (frmDIR) criado dentro do VBA. Neste formulário tem quatro botões: Um ícone que ao clicar abre o formulário para o usuário localizar a pasta onde será salva o arquivo. Private Sub CommandButton1_Click() Me.txtPDF = SelectFolder End Sub Uma TexBox onde é inserido o endereço propriamente dito. Um botão salvar: Private Sub cmdINSERIR_Click() With Me If .txtPDF = "" Then MsgBox "Informe o diretório p/ salvar arquivos PDF.", vbExclamation, "Advertência" .txtPDF.SetFocus Exit Sub End If Call Configurar_Sistema With Sheets("MENU PRINCIPAL") .Unprotect (SENHA) Range("cel_dir_pdf").Value = Me.txtPDF .Protect (SENHA) End With resposta = True ActiveWorkbook.Save MsgBox "Diretório confirmado com sucesso.", vbInformation, "Informação" Unload Me End With End Sub e um botão sair: Private Sub cmdSAIR_Click() Unload Me End Sub Bom... Dentro do meu código, tenho um COMMANDBUTTON que executa uma macro que oculta linhas não utilizadas e logo em seguida, já salva o arquivo com alguns padrões que já foram definidos, dentre eles, o endereço que foi escolhido pelo usuário no código acima, onde deverá ser salvo o arquivo pdf quando gerado ao acionar a macro. O código desse comando é: Private Sub OcultarLinhasBC_Click() OcultarLinhasBC.BackColor = &H0& Application.ScreenUpdating = False For Each xRg In Range("O8:O152") If xRg.Value = "" Then xRg.EntireRow.Hidden = True End If Next xRg LimparDadosReativarLinhas.Enabled = True OcultarLinhasBC.Enabled = False Selection.End(xlDown).Select ActiveWindow.SmallScroll Down:=-102 ChDir _ '"C:\aqui deve aparecer o endereço do diretório que o usuário escolheu quando iniciou a planilha\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\aqui deve aparecer o endereço do diretório que o usuário escolheu quando iniciou a planilha\" & Range("B158") & "_" & Format(Now, "yyyymmdd_hhmmss") _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True ActiveWindow.SmallScroll Down:=-24 Range("I8").Select End Sub Tudo que eu preciso, é permitir que o usuário através do botão criado na tela principal da planilha, possa configurar o diretório onde deverá ser saldo o PDF, sem ter acesso ao código vba. Ou seja, o usuário entra na planilha e clica no botão "CONFIGURAR DIRETÓRIO", localiza a pasta onde é para salvar o arquivo e confirma. Quando for executada a função da macro DENTRO DA PLANILHA, ela automaticamente salvará no local onde o usuário direcionou no início. Se alguém puder me ajudar, ficarei extremamente grato. Observação: Os códigos estão criados, mas não estou conseguindo fazer com que eles se comuniquem sem interferências.

Boa tarde! Tenho uma planilha com um botão que chamei de "CONFIGURAR DIRETÓRIOS". Este botão foi criado utilizando "Inserir formas" do menu de ilustrações do Excel mesmo, mas nada impede ser criado um botão no formato "Active X". Ao clicar neste botão, abre-se um formulario (frmDIR) criado dentro do VBA. Neste formulário tem quatro botões: Um ícone que ao clicar abre o formulário para o usuário localizar a pasta onde será salva o arquivo. Private Sub CommandButton1_Click() Me.txtPDF = SelectFolder End Sub Uma TexBox onde é inserido o endereço propriamente dito. Um botão salvar: Private Sub cmdINSERIR_Click() With Me If .txtPDF = "" Then MsgBox "Informe o diretório p/ salvar arquivos PDF.", vbExclamation, "Advertência" .txtPDF.SetFocus Exit Sub End If Call Configurar_Sistema With Sheets("MENU PRINCIPAL") .Unprotect (SENHA) Range("cel_dir_pdf").Value = Me.txtPDF .Protect (SENHA) End With resposta = True ActiveWorkbook.Save MsgBox "Diretório confirmado com sucesso.", vbInformation, "Informação" Unload Me End With End Sub e um botão sair: Private Sub cmdSAIR_Click() Unload Me End Sub Bom... Dentro do meu código, tenho um COMMANDBUTTON que executa uma macro que oculta linhas não utilizadas e logo em seguida, já salva o arquivo com alguns padrões que já foram definidos, dentre eles, o endereço que foi escolhido pelo usuário no código acima, onde deverá ser salvo o arquivo pdf quando gerado ao acionar a macro. O código desse comando é: Private Sub OcultarLinhasBC_Click() OcultarLinhasBC.BackColor = &H0& Application.ScreenUpdating = False For Each xRg In Range("O8:O152") If xRg.Value = "" Then xRg.EntireRow.Hidden = True End If Next xRg LimparDadosReativarLinhas.Enabled = True OcultarLinhasBC.Enabled = False Selection.End(xlDown).Select ActiveWindow.SmallScroll Down:=-102 ChDir _ '"C:\aqui deve aparecer o endereço do diretório que o usuário escolheu quando iniciou a planilha\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\aqui deve aparecer o endereço do diretório que o usuário escolheu quando iniciou a planilha\" & Range("B158") & "_" & Format(Now, "yyyymmdd_hhmmss") _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True ActiveWindow.SmallScroll Down:=-24 Range("I8").Select End Sub Tudo que eu preciso, é permitir que o usuário através do botão criado na tela principal da planilha, possa configurar o diretório onde deverá ser saldo o PDF, sem ter acesso ao código vba. Ou seja, o usuário entra na planilha e clica no botão "CONFIGURAR DIRETÓRIO", localiza a pasta onde é para salvar o arquivo e confirma. Quando for executada a função da macro DENTRO DA PLANILHA, ela automaticamente salvará no local onde o usuário direcionou no início. Se alguém puder me ajudar, ficarei extremamente grato. Observação: Os códigos estão criados, mas não estou conseguindo fazer com que eles se comuniquem sem interferências.

Sr. Patropi... Desculpe-me... Sou novo aqui no Clube do Hardware e ainda não apredi a utilizar todas as ferramentas. Mas acabei de dar o joinha em todas as postagens sua e do Sr. Ovaldo. Muito obrigado. adicionado 0 minutos depois Sr. Osvaldo... TUDO FUNCIONANDO PERFEITAMENTE AGORA! Muiiiiiiiiiiiiiiiiiiiiiiiiito obrigado pela sua ajuda. Muita paz e saúde aí. Abraço e até a próxima.

Sr. Osvaldo, Desculpe-me pela interrupção do Duende. Vou pegar ele e decapta-lo. kkk... Fiz da forma como me orientou no post #20 e deu certinho PORÉM COLOCANDO UM "BOTÃO DE FORMAS BÁSICAS". Não consegui fazê-lo com "Botão de controle Active X". Se puder me ajudar neste formato, pretendo deixar todos os botões neste formato. Mas tem outras duas observações que ocorreram: Valor da célula (P3) correto é NUMERO INTEIRO, porém, o código colou na guia BANCOdeDADOS na célula correta, VALOR EM DECIMAIS e também acabou mudando também, a formatação da célula da direita que possui uma fórmula, tirando-a. Poderia verificar por favor por disso? Outra coisa.. O código está levando em consideração a data do relógio do computador e não a data inserida na célula B7 da planilha Trades. Tem como fazer com que o código faça referência a essa célula ao invéz da hora do computador? no mais, muiiiiiiiiiiiiiiiiiiiiiiiiiito obrigado por toda sua ajuda.

Muito obrigado Vics. Deu certinho. Valeu.

Olá Sr. Osvaldo, Tudo bem? A mais de uma semana estou tentando logar aqui com minha conta para dar prosseguimento contigo no post #18, mas não conseguia de forma alguma logar. Só hoje consegui mudando de navegador. Mas vamos lá... Implantei o código que o senhor me indicou no post #18 e até transferiu os dados certinhos porém, não sei porque, está transferindo valores errados. Exemplo: Observe na planilha que vou postar agora pra você (DRE.2020_Modelo.V5) as seguintes informações: PLANILHA TRADES Valor da célula i5 correto é -30%, porém, o código colou na guia BANCOdeDADOS na célula e109 o valor de 10406,04% Colou no lugar certinho, porém, valor nada a ver. Valor da célula p5 correto é R$78,76, porém, o código colou na guia BANCOdeDADOS na célula j109 o valor de 0 (nada) Colou no lugar certinho, porém, valor nada a ver. Valor da célula i11 correto é 88,000%, porém, o código colou na guia BANCOdeDADOS na célula k109 o valor de 0 (nada) Colou no lugar certinho, porém, valor nada a ver. Valor da célula p3 correto é 4, porém, o código colou na guia BANCOdeDADOS na célula l109 o valor de 110,4622 Colou no lugar certinho, porém, valor nada a ver. Valor da célula s3 correto é 0, porém, o código colou na guia BANCOdeDADOS na célula n109 (correto seria na célula m109) o valor de 0,03 Colou no lugar certinho, porém, valor nada a ver. Em outras palavras, migrou certinho datas e posições de algumas células, mas formatos e valores totalmente incoerentes. Poderia me ajudar a solucionar esse problema Sr. Osvaldo? DRE.2020_Modelo.V5.rar

Boa Noite! Tenho uma planilha em Excel com um botão chamado OCULTAR LINHAS BRANCAS. Ao acionar esse botão, obviamente, oculta as linhas que não foram preenchidas. Preciso completar esse código para imediatamente após ocultar as linhas, trazer também aquela janela "SALVAR COMO" já determinado em PDF porém, permitindo que eu escolha neste momento o local a ser salvo e o nome do arquivo. Atualmente meu código é: Private Sub OcultarLinhasBC_Click() Application.ScreenUpdating = False For Each xRg In Range("O12:O161") If xRg.Value = "" Then xRg.EntireRow.Hidden = True End If Se alguém puder me ajudar a completar esse código, ficarei extremamente grato. Outra opção muito interessante se for possível é já trazer o nome do arquivo como: Nome da Planilha+Data do dia no formato aaaa/mm/dd. Exemplo: RelatórioGuilherme_20200409.pdf No aguardo, Guilherme

Caro Osvaldo, Não sei nem o que dizer. O código da msgbox deu certinho agora e funcionou perfeitamente. Muito obrigado mesmo. Sobre sua sugestão para alteração da fórmula em Q12, sem dúvida alguma é uma excelente opção. Como disse, sou novo em fórmulas e VBA e tive um baita trabalho para desenvolver a fórmula gigante. Já alterei no projeto original. Muito obrigado mesmo. Sem querer abusar da sua sabedoria e disponibilidade, sobre essa etapa descrita abaixo, será que podes me auxiliar em como desenvolver esse código? Nesta mesma planilha, tenho um "BANCO DE DADOS" que armazena os resultados operacionais do dia de acordo com a data do dia da planilha "TRADES". Na planilha "TRADES" tem um botão verde no rodapé chamado "GRAVAR DADOS". Preciso criar uma macro que ao clicar neste botão, os seguintes valores descritos abaixo, são gravados na planilha "BANCOdeDADOS" nos campos respectivos a data. Se puder me auxiliar neste código também, ficarei extremamente grato. DADOS A SEREM TRANSPORTADOS DA PLANILHA "TRADES" PARA PLANILHA "BANCOdeDADOS": (I5) para célula correspondente a data da coluna E "Alcance do dia" na planilha BD (P4) para célula correspondente a data da coluna J "Total Investido Dia" na planilha BD (I11) para célula correspondente a data da coluna L "Payout Médio" na planilha BD (P3) para célula correspondente a data da coluna M "Trades Realizados" na planilha BD (S3) para célula correspondente a data da coluna N "Acertos" na planilha BD Se porventura tiver algum dia que não for feito nenhum lançamento, os campos deste dia na planilha "BD" devem conter "" . Após gravar estes dados, entra em ação o botão "LIMPAR DADOS" que já está funcionando na planilha "TRADES". Anexo, planilha desbloqueada (V4). No aguardo, Guilherme DRE.2020_Modelo.V4.rar

Sr. Osvaldo, Boa tarde! Muito obrigado pela atenção e ajuda. ... você vai lançando os dados ... Os dados são lançados manualmente? Em quais células ? Sim, o usuário vai lançando apenas "-1" ou "1" na coluna "O". Dependendo do valor lançado, o resultado da coluna "P" vai "positivando" ou "negativando". Atingindo o valor negativo máximo estabelecido na célula "N7", traz a mensagem que estamos tentando implantar. O comando "X" criado no seu código poderá ficar na célula "N10" pois as linhas 7 a 10 trabalharão ocultas. ...de modo que os valores vão sendo calculados por fórmulas e mostrados um abaixo do outro na coluna P e o resultado dessa coluna, é mostrado na célula P162. Eu não consegui acessar o conteúdo de P162, mas com base no valor mostrado naquela célula não me parece que tal valor seja resultado de alguma soma. Na verdade não é uma soma e sim, o último valor lançado. De acordo que o usuário vai lançando seus resultados "-1" ou "1" na coluna "O", o último resultado da coluna "P", vai sendo mostrado na célula "P11" que é nossa célula base para fins da execução da macro. ...Insira -1 na célula P17 e verá que irá aumentar o percentual negativo de P11. Você informou na mensagem anterior que há fórmulas na coluna P, no entanto aqui você sugere para inserir um valor em P17. Isso quer dizer que em P17 não há fórmula? Ainda, fiz algumas tentativas mas não consegui acessar nem P17 e nem outra célula de interesse porque você disponibilizou uma planilha protegida.Não evoluímos. Desculpe, a inserção do valor "-1" ou "1" deve ser feita na coluna "O" e não na "P" como eu disse anteriormente. Perdão. A fórmula está na "P" mesmo e esta deve só se altera de acordo com o valor lançado na coluna "O". Ainda, conforme comentei no post #6 o código que passei deveria ser instalado no módulo da planilha, no entanto, no seu arquivo o código está no Módulo2. Aí não irá funcionar. Coloquei o código no módulo da planilha, mas mesmo assim, ele não está sendo executado automaticamente. Poderia verificar por favor o que eu fiz de errado? Sr. Osvaldo, Vejo que és muito experiente em VBA. Sou marinheiro novo e estou apanhando um pouco. Muito obrigado pela sua paciência, dedicação e presteza nas respostas. Nesta mesma planilha, tenho um "BANCO DE DADOS" que armazena os resultados operacionais do dia de acordo com a data do dia da planilha "TRADES". Na planilha "TRADES" tem um botão verde no rodapé chamado "GRAVAR DADOS". Preciso criar uma macro que ao clicar neste botão, os seguintes valores descritos abaixo, são gravados na planilha "BANCOdeDADOS" nos campos respectivos a data. Se puder me auxiliar neste código também, ficarei extremamente grato. DADOS A SEREM TRANSPORTADOS DA PLANILHA "TRADES" PARA PLANILHA "BANCOdeDADOS": (I5) para célula correspondente a data da coluna E "Alcance do dia" na planilha BD (P4) para célula correspondente a data da coluna J "Total Investido Dia" na planilha BD (I11) para célula correspondente a data da coluna L "Payout Médio" na planilha BD (P3) para célula correspondente a data da coluna M "Trades Realizados" na planilha BD (S3) para célula correspondente a data da coluna N "Acertos" na planilha BD Se porventura tiver algum dia que não for feito nenhum lançamento, os campos deste dia na planilha "BD" devem conter "" . Após gravar estes dados, entra em ação o botão "LIMPAR DADOS" que já está funcionando na planilha "TRADES". Anexo, planilha desbloqueada. Desde já muito obrigado por tudo. É permitido falarmos por WhatsApp? Se sim, podemos trocar email? DRE.2020_Modelo.V3.rar

3. o post #11 já é a terceira versão da planilha SIM. Anexo planilha original. Insira -1 na célula P17 e verá que irá aumentar o percentual negativo de P11. É neste momento que deve trazer a mDRE.2020_Modelo.rarsgbox

Eu tenho uma planilha muito complexa que busca dados de outras planilhas, por isso não mandei ela para você. Tudo se resume numa situação... você vai lançando os dados de modo que os valores vão sendo calculados por fórmulas e mostrados um abaixo do outro na coluna P e o resultado dessa coluna, é mostrado na célula P162. P11 = P162 ou seja, o valor que totaliza na P162, mostra igual na P11. Já na célula N7 está o limite em percentual (-3%) Na célula N9 está o limite em R$ (-0,03) A macro deve (sem ter que criar commandbutton, trazer o msgbox sempre que P11 for >= (maior ou igual) ao valor de N7 (Percentual) ou N9 (Reais). Exemplo: Se N7 está -2,65% e N9 (-0,0265), não virá nenhuma msgbox Mas ao atingir -3,00% na N7 e -0,03 na N9, tras a msgbox conforme definido dando opção de continuar ou não.

Sr. Osvaldo, Quando eu coloco o código na planilha modelo que lhe enviei, funciona. Mas quando eu coloco noutra planilha que estou tentando implantar o código, ao tentar executar, aparece a caixa de macros como se eu tivesse que criar um botão. Como resolvo isso?

Sr. Osvaldo, Boa tarde! Não tenho dúvidas que o código irá funcionar, mas preciso de um pequeno ajuste. Modificando um pouco a planilha temos: Célula P11 = Mostra o valor único como se fosse o total (Que antes era a soma do intervalo [C1:C10] Célula N9 = Mostra o valor máximo (Que antes era -3%). Obs.: Preciso que o vba busque o valor que está nesta célula para fazer a devida comparação. Este valor muda de acordo com os lançamentos da planilha. Célula N10 = Ficará o "X" (Que antes seria no [P1] Sendo assim: A macro visa trazer a msgbox, SEMPRE que a célula P11 for >= ao valor que está na célula N9 (que é o limite estabelecido). Se o P11 for >= N9, traz a mensagem: "Você atingiu o valor máximo permitido!" e dá opção de continuar (o que irá alterar o valor da P11 e neste caso a msgbox se repete até que seja marcado NÃO na opção de continuar. Marcando Não, o "X" deve ficar em N10. +/- assim... Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [P11]) Is Nothing Then Exit Sub If [P11] >= (Aqui a macro deve buscar o valor da célula [N9] And [N9] = "" Then If MsgBox("Você atingiu o valor máximo permitido!" & vbLf & vbLf & _ "Continuar mesmo assim?", vbYesNo + vbQuestion) = vbNo Then [N10] = "x" End If End Sub Poderia me ajudar?

Exatamente Sr. Osvado... Fiz as contas erradas aqui... Desculpe. MSGBOX SE NEGATIVO.xlsx

Olá Sr. Osvaldo, Obrigado pela ajuda. Vou colocar um anexo para entender melhor minha necessidade. Nesta planilha anexa, A1 = total da soma do intervalo C1:C10. Sempre que A1 atingir >=-3%, deverá roar a macro e trazer uma msgbox dando um alerta tipo: "Você atingiu o valor máximo permitido!" "Continuar mesmo assim?" Optando por SIM: A macro é ignorada e continua monitorando A1 e repete a mesma pergunta sempre que A1 for alterada (após inclusão de novos valores no intervalo) aumentando o limite de -3% ou seja, continuou, somou mais 1% no intervalo logo, A1 ficará agora -4%, novamente a macro roda e traz a mesma mensagem e SÓ PARA DE RODAR e trazer o alerta com as opções SIM ou NÃO quando o usuário optar por NÃO continuar. Planilha modelo abaixo: https://drive.google.com/file/d/1eBfSXwJDpQqQIDH3d6ufYq-0cZbGJ3am/view?usp=sharing Obrigado amigo pela ajuda. No aguardo, Guilherme

Pessoal, Bom dia! Estou precisando de uma ajudinha. Tenho uma planilha cuja célula A1, traz o resultado da soma de A2:A10. Preciso que sempre que A1 >=-3%, retorne uma msgbox dando-me um alerta tipo "você atingiu o valor máximo permitido. Continuar mesmo assim?" Alguém poderia me ajudar por favor? No aguardo, Guilherme