diego_janjao

Você pode usar =HOJE ()-42995 Lembrando que 42995 corresponde a data 17/09/2017

veja a resposta do OsvaldoMP nesse tópico:

use o procv ou índice x corresp.

@CasaDoHardware sim, sobre os responsáveis não são muitos mesmo. O problema é o conhecimento de todas as pessoas que vão mexer nela. Sobre os setores pode ter certeza que terá mais de 100. Mas entendo a sua colocação, o real problema é o conhecimento dessas pessoas que vão trabalhar com essa planilha.

@CasaDoHardware Como assim? Essa parte de VBA está bem longe de ser minha área. Eu sou tipo um doutor Frankstein de VBA, pego um pedaço aqui, um pedaço ali e monto o que eu preciso.

@Basole PERFEITO! Mais uma vez, obrigado! muito obrigado pela força e pelos ensinamentos. Caso houver alguma sugestão ou crítica sobre a ferramenta estou à disposição. Obrigado!

Vi que está realmente cancelando a verificação ortográfica e não incluindo o nome, porém mesmo com um nome válido ele aparece como cancelado e não inclui:

isso não é problema, é apenas uma outra forma de expressar o resultado. Por exemplo: 1 um one I uno São todos "um", mas expressados diferente, e é isso o que seu excel está fazendo, expressando o resultado em científico.

@Basole , eu consegui unificar o código e acredito que esteja funcionando: Option Explicit Private Sub CommandButton1_Click() Dim rng As Range, o que As String, v As Variant For Each v In Split(txtSetor.Text) If Not Application.CheckSpelling(v) Then _ MsgBox "'" & v & "' não é uma palavra válida.", _ vbExclamation, "Atenção" Next v txtSetor.Text = spellCheck(txtSetor.Text) txtSetor.Text = shOrtografia.Range("A1").Value2 With Sheets("Setores") o que = txtSetor.Text Set rng = .Columns(1).Find(o que, LookIn:=xlValues) If rng Is Nothing Then Application.ScreenUpdating = False Sheets("Setores").Select Range("A3").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow Range("A3").Value = txtSetor.Value Range("A2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("Setores").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Setores").Sort.SortFields.Add Key:=Range("A2" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Setores").Sort .SetRange Range("A2:A50") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A2").Select Sheets("PAM GUT 2017").Select MsgBox "Novo setor adicionado!" txtSetor.Value = Empty 'Null Else MsgBox "Setor " & txtSetor.Value & " já existe!!", 64, "Atenção" End If End With End Sub Porém estou enfrentando um problema em uma ferramenta que você inseriu que achei muito útil, quando a pessoa incluir uma palavra inexistente, abre corretor. Até aí tudo bem, o problema que estou vendo é que quando abre a Verificação de Ortografia e se eu tento cancelar, ele inclui do mesmo jeito o nome errado. Teria como mudar para quando cancelar a ortografia cancelar o evento inteiro? PAM GUT 2017 form_1.rar

@Camila Carletti é porque a sua fórmula na coluna K pedia que quando não acontecesse os cálculos, ficasse " " (um espaço), logo a coluna L entendia que ela não estava vazia, e sim com um espaço... tente agora com essa planilha: TESTE.xlsx

@Camila Carletti verifique se é isto que deseja: TESTE.xlsx Para se referenciar uma célula vazia, utilize duas vezes as áspas ("")

Ficou ótimo, @Basole . Estou lendo o código pra tentar entender e aprender, muito obrigado. Uma dúvida, aqui no meu notebook preciso apertar o botão OK 2x para rodar a macro, isso é normal ou é alguma coisa envolvida com meu notebook?

Boa noite, pessoal. Ainda estou na luta no aprendizado por VBA e gostaria que me ajudassem em um processo: Impedir que cadastrem responsáveis ou setores que já se encontram cadastrados para que não haja duplicidade. No momento consegui montar conforme planejei mas eu não consegui pensar em algo para impedir que façam essa duplicata. Alguém saberia me dizer como fazer? Se possível mas beeeeeeem menos importante, gostaria também de saber se é possível eliminar acentos das palavras ou se na parte de verificar se já está cadastrado, comparar nomes com e sem acentos, por exemplo, José e Jose seriam a mesma pessoa. Obrigado. PAM GUT 2017 form.rar Críticas e sugestões na planilha também são muito bem vindas.

Se os caracteres dos seus dados forem fixos você pode usar uma fórmula assim: =procv(esquerda(A1;12);GRE!A1:B5;2;0)

@Wendell Menezes quanto tempo, Wendell! Faz tempo que não o vejo por aqui!

@Basole ainda está nos planos em me ajudar? rs.

ActiveWorkbook.Close não te serve?

Então, tem uma aba chamada cadastro feita na própria planilha que eu usava para realizar essa ação, então o que me falta são as informações de produto e código. E como são até 100 produtos, eu acho que precisarei colocar a barra de rolagem

Eu conheço bem pouco se VBA, Basole. Eu estou aprendendo conforme vou fazendo e com a ajuda aqui do fórum e eu ainda não cheguei na parte do listbox. Ou seja, não tentei e nunca nem mexi (acho).

mas eu digo no próprio código VBA para ele verificar o maior número da coluna A, somar 1 e colar na célula abaixo

Pessoal, tenho uma planilha de cadastro de fornecedores e consegui fazer o form normalmente. O meu problema é o seguinte, como temos empresas que fornecem até 100 matérias primas diferentes eu precisaria que no form tivesse uma caixa com barra de rolagem para estes 100 campos como posso fazer isso? Gestão de RNC externa 2017.7z

não dá pra deixar em uma célula a função maior(A1:A1000;1)+1 ? assim ele sempre pegará o último código criado acrescentando 1 e salvando como código do fornecedor

vá em formatação condicional, fórmulas, e coloque algo parecido com: =se(E(E3<>"";procv(E3;'Junho Siege!C:C;1;0)=0);1;0) e coloque as propriedades em laranja, e depois coloque a formatação para as demais células. Outra coisa, no fórum fica muito difícil ajudar quando postam imagens, poste a planilha ou alguma parecida para ajudarmos melhor. Muitos usuários até desistem de tentar ajudar quando veem que não tem a planilha em si

Creio que seja isso que desejas: diegojanjao.xlsx

utilize a opção de colar Transpor ou mesmo a fórmula Transpor