Felipe Ver

Pessoal, bom dia como estão?

Estou envolvido em um projeto de melhoria de processos mas estou apanhando demais pra fazer uma planilha.. 

 

Preciso colocar uma validação de preenchimento nas células que constam em amarelo na planilha anexo e depois de validado, enviar a planilha por e-mail (na tela do outlook e não anexo)

 

Ou seja, a pessoa precisa obrigatoriamente preencher todos os campos que constam em amarelo e quando ela clica em "validar e enviar" o Excel valida se tudo esta preenchido, se nao tiver preenchido ele da uma mensagem aonde esta faltando e se estiver ok, ele envia para um e-mail específico a planilha (no corpo do email).

 

Alguém consegue me ajudar? Please.

Solicitação.zip

Amigos!!! CONSEGUI!!..

 

Caso alguém esteja com o mesmo problema, segue o código para estudos...

 

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, c As Range
    Dim cVal As String

    Const seuInterv As String = "C4,C5,C7,C8,C11,C12,C15:C21,C23,C26,C27,C31,C43,C46,C48,C49" '<= * Deixar maiusculas
    
    Set rng = Intersect(Target, Range(seuInterv))
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        For Each c In rng
            cVal = c.Value
            Select Case True
                Case IsEmpty(cVal), IsNumeric(cVal), _
                        IsDate(cVal), IsError(cVal)
                Case Else
                    c.Value = UCase(cVal)
                    Call Worksheet_Change2(c)
            End Select
        Next c
        Application.EnableEvents = True
    End If
    
End Sub


Private Sub Worksheet_Change2(ByVal Target As Range)
    Dim rng As Range
    
    If Target.Count > 1 Then Exit Sub
    
    Const seuInterv As String = "C4,C5" '<= * Remover os acentos
    
    Set rng = Intersect(Target, Range(seuInterv))
    If Not rng Is Nothing Then
        
        Application.EnableEvents = False
         
         If InStr(Target.Value, "/") > 0 Then
            Target.Value = VBA.Replace(RemoveAcentos(Target.Value), " ", "")
         Else
            Target.Value = RemoveAcentos(Target.Value)
         End If
        
        Application.EnableEvents = True
    
    End If
End Sub

 

Bom dia galera!!!

Pessoal, só pra entenderem, sou iniciante em vba e acabei colocando em minha planilha dois códigos que contem:

Private Sub Worksheet_Change(ByVal Target As Range)

Mas não esta funcionando, pesquisei bastante e vi que não é possível existir dois, logo um dos códigos não funciona.

Alguém consegue me ajudar? Como posso adaptar o código para que os dois scripts funcionem?

É a ultima coisa que falta pra eu fechar o sisteminha hehehea

 

Abaixo segue imagem e anexo, a planilha exemplo.

Muito obrigado!!!!

 

Formulário - projeto2.zip

 

 

 

Grande abraçoo!!

 

Basole!!! doidera cara!!

É exatamente isso... Pelo que estou entendendo, foi criado uma função e depois uma macro para acionar ela, é isso?

 

Sou iniciante, mas to aprendendo muito aqui no fórum!!

Me ajudou demais, vou estudar o código... muito obrigado Basole..

Amigos, encontrei esse código que funcionou, mas não automaticamente.

 

Sub Retirar_Caracteres()
 
Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="Ç", Replacement:="C", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
End Sub

 

Vou fazer todas as linhas com as combinações que eu preciso, entretanto, alguém poderia me auxiliar na questão abaixo?

 

Queria que esse código funcionasse automaticamente em determinadas células.

O que é necessário no código pra que isso ocorra?

 

Abraços!!!!

Décio, bom dia!!

 

Cara, é exatamente isso que precisava!!

Muitoooo obrigado, me ajudou demais.

 

Forte abraço.

Olá amigos!!!

Alguém consegue me auxiliar nessa questão?

 

Tenho uma célula onde a pessoa vai preencher o numero do CNPJ, entretanto na célula abaixo teria que trazer apenas os 8 primeiros dígitos da célula do CNPJ.

 

É possível?

 

Exemplo com imagem e Excel anexo.

 

Formulário - projeto - Copia.xlsx

Bom dia pessoal, como estão?

 

Ca estou com mais uma dúvida..

Preciso de uma macro que remova acentos, pontos, traços e barras de células específicas.

Estou montando um pequeno sistema de cadastro que posteriormente fará a comunicação com o sistema, para isso algumas células precisam seguir o padrão do sistema e ele não permite acentos e caracteres especiais.

 

Conseguem me ajudar?

Anexo segue exemplo da planilha e uma imagem.

 

 

Desde ja agradeço pessoal!!

 

 

Formulário - projeto - Copia.xlsx

Não adianta.. quando o cara é mestre é mestre hahaha

Basole, mais uma vez, muito obrigado, deu certinho e é exatamente o que eu precisava.

 

Grande abraço amigo.

Olá Basole, bom dia!!

 

Na verdade queria que a macro funcionasse apenas nas células: C7 C9 C10 e C12

Esse é apenas um exemplo, depois vou aplicar na planilha real que terão mais células MAS dentro de uma única coluna.

 

Com relação às outras colunas, teria que ficar normal, em minusculo mesmo.

Será que da?

Boa noite amigos, como estão?

 

Possuo uma planilha onde quero aplicar uma macro que deixe apenas algumas células de uma coluna com os caracteres todos maiúsculos, mas que seja automático, conforme a pessoa digita minusculo e da enter, a ação seja tomada.

 

É possível?

 

Exemplo:

 

Grande abraço a todos!!!

 

 

 

Pasta1.xlsx

Rapaz...................

 

Cara!!! VOCÊ ME SALVO, é exatamente isso que preciso, voce arrebentou, funcionou certinho e isso vai me ajudar muito mesmo.

Merece todo mérito e pode ter certeza que sera lembrado.

 

Estou estudando o código pois vou ter que aplicar em toda a planilha, mas acredito que lendo com calma não terei problemas.

 

Mais uma vez, muito obrigado!

Forte abraço Basole.

Basole, fico feliz que tenha se prontificado a me ajudar com esse desafio, entretanto, não consegui testar. Olha a mensagem que deu.

 

Anexo também

 

Preciso fazer alguma coisa? Os macros foram habilitados e meu Excel é o 2013.

 

 

Ola!

Claro, acabei de fazer os exemplos!! 

Coloquei os arquivos exemplos zipados também.

 

Muito obrigado amigo, fico no aguardo.

 

Cadastro.zip

Bom dia pessoal, como estão?

Esse é meu primeiro post, preciso da ajuda de vocês!

 

Antes de mais nada, gostaria de dizer que realizei as buscas, encontrei algumas informações mas nenhuma conseguiu sanar meu problema.

Vou detalhar o caso:

 

Tenho uma planilha onde os colaboradores preenchem algumas informações (cadastro de fornecedores) são 15 linhas uma embaixo da outra dentro de uma mesma coluna.

 

E tenho uma outra planilha que é uma mascara onde eu preciso copiar e colar essas quinze linhas pra essa planilha, entretanto, a coluna contem 37 linhas com informações e algumas estão ocultas pois são informações que não podem ser alteradas.

 

Questão: vocês conhecem alguma macro que consiga pegar a informação de uma célula específica da primeira planilha e colar em uma célula específica na segunda planilha?

 

Para fazer a atividade em questão, vou coloca-las dentro da mesma pasta, tanto a mascara (destino) quanto a planilha enviada pelo colaborador (a ser copiada).

C:\Users\fvero\Desktop\Cadastro

 

Desde ja agradeço pessoal!

Grande abraço.