FaustoJr

Obrigado Patropi, mas eu gostaria de uma macro para data que além de inserir automaticamente as "/", ela também impedisse que fosse digitado um valor inexistente para o dia, mês e ano. Isso é possível?

Boa noite. Eu tenho uma TextBox em um Userform para inserção de datas e gostaria de uma macro que ao digitar uma data, ela fosse imediatamente formatada para dd/mm/aaa sem precisar digitar as "/". E que além disso, fosse permitido digitar apenas números e valores válidos para DIA, MÊS e ANO. Por exemplo: caso fosse digitado 32 para o DIA aparecesse a mensagem "Dia Inválido!" ou "Mês Invalido!" e "Ano Inválido!" para digitação de um mês ou ano inexistente. E se não for pedir muito, ainda "Dia Inválido para este mês!" caso digite um dia > 28 para o mês de fevereiro. Desde já, agradeço!

Boa noite. Estou precisando de uma ajuda. Tenho uma Userform com algumas textbox de preenchimento obrigatório e outras não. Então quando clico no botão para salvar os dados digitados, mas uma destas textbox de preenchimento obrigatório está vazia, obviamente aparece uma mensagem solicitando o seu preenchimento e assim por diante. No entanto, tenho uma textbox (Plano) onde tenho duas opções de preenchimento: "Particular" ou "Convênio" e quando digitado "Particular" eu não preciso preencher a próxima textbox (Nº Carteira) para salvar os dados, mas se eu digitar "Convênio" gostaria que fosse obrigatório o preenchimento do nº da carteira na próxima textbox. Com o código que coloquei mesmo após digitar "Convênio" e o nº da Carteira, ao clicar no botão salvar ele continua pedindo para digitar o nº da carteira. Alguém poderia me ajuda? Desde já obrigado! Segue parte do meu código: Private Sub CmdSalvar_Click() If WorksheetFunction.CountIf(Range("C9:C1923"), txtNome.Value) > 0 And txtNome <> "" Then MsgBox "Esse cadastro já existe!", vbCritical, "ERRO" Exit Sub Else If txtNome.Text = "" Then MsgBox "Digitar o nome do paciente", vbExclamation, "AVISO" txtNome.SetFocus Exit Sub End If If txtDDD.Text = "" And txtTelefone1.Text = "" Then MsgBox "Digitar o DDD e o Nº de Telefone", vbExclamation, "AVISO" txtDDD.SetFocus Exit Sub End If If txtTelefone1.Text = "" Then MsgBox "Digitar o Nº de Telefone", vbExclamation, "AVISO" txtTelefone1.SetFocus Exit Sub End If If txtPlano.Text = "" Then MsgBox "Digitar se Convênio ou Particular", vbExclamation, "AVISO" txtPlano.SetFocus Exit Sub End If If txtPlano.Text = "PARTICULAR" Then End If If txtPlano.Text = "CONVÊNIO" Then MsgBox "Digitar o Nº da Carteira", vbExclamation, "AVISO" txtNºCarteira.SetFocus Exit Sub End If If txtPlano.Text = "CONVÊNIO" And txtNºCarteira.Text <> "" Then End If End If ' Restante do código End Sub

Valeu amigo, ficou perfeito. Obrigado pela ajuda!

Boa noite. Gostaria de uma ajuda para resolver um problema com a função soma em uma determinada célula. Já utilizei esta função diversas vezes, mas agora não sei o que estou fazendo de errado. Eu tenho uma tabela simples onde posso colocar valores no intervalo "B2:I2" por exemplo e dependendo da quantidade de células com valores neste intervalo terei um resultado nas células da coluna "J2". Na célula "J12" tenho a soma dos valores numéricos do intervalo "J2:J11". Porém, não estou conseguindo que a função da célula "J12" me dê o resultado da soma. Acredito que seja um erro infantil, mas como ainda estou iniciando no excel não consegui identificar meu erro e gostaria de uma ajudinha. Segue em anexo a planilha. Obrigado!!! TESTE 1.xlsx

Boa noite. Na verdade, nas células da coluna "G" eu tenho a seguinte fórmula "=SOMA(D5:F5)" na célula "G5", "=SOMA(D6:F6)" na célula "G6" e assim por diante até a célula "G64". Tenho um botão para "Limpar Cotas" que quando acionado apaga os valores das colunas "C" e "E" e copia os valores da coluna "G" e os cola na coluna "F". Até aí tudo bem, mas preciso que ainda neste comando do botão os valores da coluna "G" sejam apagados sem que as fórmulas destas células sejam apagas. Desta forma, assim que eu inserir um valor em ao menos uma célula da coluna "C", todos os valores da coluna "G" voltem a ser calculados conforme a fórmula contida em suas células. Será que isto é possível? Obrigado

Boa noite, preciso de uma macro para apagar os valores das células do intervalo (G5:G64), mas que não apague as fórmulas destas células. Obrigado

Boa tarde, Estou fazendo uma planilha e gostaria de uma macro que ocultasse os valores de todo o intervalo ("G5:G64"), mas sem ocultar a coluna. E caso fosse digitado algum valor em qualquer uma das células do intervalo "C5:C64" , os valores de todo o intervalo "G5:G64" voltem a ser mostrados na planilha. Então, se eu digitar algum valor na célula "C8" por exemplo, todos os valores da coluna "G" voltariam a ficar visíveis na planilha. Alguém sabe me dizer se é possível fazer isso? Segue planilha em anexo. Obrigado. Planilha1 - Teste.xlsx

Boa noite Charley Rocha, Era realmente isso, só que ainda preciso corrigir um detalhe. Nesta planilha posso registrar jogos da Mega Sena com 6, 7 e 8 dezenas, mas quando eu insiro somente 6 dezenas (no intervalo K5:P5, por exemplo) sobram duas células vazias (Q5 e R5). E quando eu aciono a macro para colocar em ordem crescente, as células K5 e L5 ficam vazias e as dezenas vão para o intervalo M5:R5. Eu gostaria que após a ação da macro as dezenas fossem ordenas a partir da primeira célula deixando as últimas vazias quando houver. Obrigado mais uma vez

Boa noite Charley Rocha. Você é o cara!!! Ficou perfeito; exatamente como eu queria. Muito Obrigado. Sem querer abusar, mas aproveitando um pouco mais do seu conhecimento; esta planilha é para um bolão da mega sena entre os amigos de trabalho e em uma outra parte dela eu colocaria as dezenas apostadas da seguinte maneira (segue tabela em anexo): Coluna "J" numerada de 1 a 60 a partir da célula "J5", onde o número 1 representa a primeira linha com até 8 dezenas (K5:R5); a célula "J6" representa a segunda linha com até 8 dezenas apostadas (K6:R6) e assim por diante até a célula "J64" onde tenho a última linha para apostas (K64:R64). Desta forma, eu preciso de uma macro que faça o seguinte: MsgBox para confirmar se realmente quer realizar este processo; Colocar os números das células (K5:R5) em ordem crescente; Depois colocar os números das célula (K6:R6) em ordem crescente e assim por diante até a última linha (K64:R64); MsgBox: Operação realizada com sucesso. Estou colocando a planilha em anexo e se puder me ajudar agradeço mais uma vez!!! Planilha1.xlsx

Boa noite Charley. Desculpe por não me fazer entender muito bem, mas na verdade o que eu estou querendo é que quando eu atualizar a planilha os dados da colunas "B" e "D" sejam apagados e que caso eu resolva colocar alguma fórmula nas células destas colunas elas não sejam apagadas na próxima atualização. Então eu gostaria que quando eu pressionar um botão específico, a tabela fosse desbloqueada, os valores das colunas "B" e "D" fossem apagados, depois somente os valores das células não vazias da coluna "F" fossem copiados (sem copiar as fórmulas dessa coluna) e depois esses valores fossem colados nas células correspondentes da coluna "E" sobrepondo aos valores antigos desta coluna. E por fim, bloquear novamente a planilha. A planilha está em anexo. Obrigado Planilha1.xlsx

Olá, estou elaborando uma planilha e como não tenho muito conhecimento em programação, gostaria de uma ajuda. Esta planilha tem algumas células protegidas e eu preciso de uma macro associada a um botão para fazer o seguinte processo: Desbloquear a tabela; Apagar somente os valores e não as fórmulas das colunas "B" e "D"; Copiar somente os valores e não as fórmulas das células não vazias da coluna "F" (que se refere a situação atual); Colar esses valores na coluna "E" (que se refere a situação anterior) sobrepondo-os aos valores antigos; Bloquear a tabela. Segue em anexo a planilha. Obrigado Planilha1.xlsx

Boa noite Osvaldo. Fiz o que você sugeriu, mas quando seleciono uma dessas células e deleto seu conteúdo deixando-a vazia, o excel aceita a célula ficar vazia e não aparece a mensagem de erro. Qual seria a macro para inserir "?" caso a célula fique vazia?

Boa noite. Estou precisando de uma ajuda em uma planilha onde as células do intervalo M2:R2 somente fosse permitido digitar o ponto de interrogação ("?") e os números de 01 a 60. No entanto, eu não queria que estas células ficassem vazias e caso isso ocorra, apareça a mensagem de erro para que elas não fiquem vazias. Fiz a validação de dados nestas células com uma lista (?, 01, 02, ... , 60) e tentei com a caixa de seleção Ignorar em branco marcada e também desmarcada. Consegui restringir a digitação a estes dados, porém não consigo impedir que as células fiquem vazias. Alguém pode me ajudar? Obrigado