salvir

Olá Pessoal! Tenho um arquivo com várias planilhas e preciso exportar só uma planilha para um novo arquivo, mas além de exportar a planilha teria como levar junto com esta plan uma folha de macro (ou módulo) com alguns códigos para serem usados neste novo arquivo? Consegui exportar a plan, mas não consegui levar o módulo, então copiei o código VBA na folha da própria planilha e até aí tudo bem, mas nesta planilha tem uns botões de macro para executar os códigos quando necessário, porém estes botões ficam vinculados ao arquivo anterior e não funcionaram. Teria uma forma destas macros e os botões funcionarem normalmente neste novo arquivo? Grato!

Vai em formatar células + número + personalizado e em tipo coloca dd/mm ddd

Segue sugestão: colocar esta fórmula em K2 e copiar para as demais linhas =VALOR(SUBSTITUIR(SUBSTITUIR(A2;".";"/");"-";" "))

você pode colocar em uma célula a data inicial e em outra célula a data final. Ex. célula A1 (data inicial) = 01/12/18 célula A2 (data final) = 31/12/18 coluna C tem o registro das datas =CONT.SES(C:C;">="&A1;C:C;"<="&A2)

Bom dia! Usa a fórmula CONT.SES, coloca na fórmula para contar entre o primeiro e último dia do mês.

Muito obrigado pela ajuda. O que estou fazendo é conforme abaixo. O que preciso é que o usuário abra o arquivo que receberá por email, ele vai avaliar e se OK ele clica em um botão de macro e então salva o arquivo e prepara o email. O que tenho percebido é que em alguns usuários não salva o arquivo, mas todos os outros procedimentos funciona normalmente. Sub EnviarEmail() Dim Condição As String Condição = Sheets("Menu").Range("J53").Value Select Case Condição Case 1 Dim Msg As String Msg = Sheets("Menu").Range("I58").Value MsgBox Msg, vbCritical, "Price Approval" Sheets("PriceApproval").Select Range("I3").Select Case 2 Application.ScreenUpdating = False 'Elimina as fórmulas na plan Menu Range("E53:I327").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Range("A1").Select 'Salva o arquivo On Error Resume Next Dim Caminho As String 'declaracao da variável caminho Caminho = ThisWorkbook.Path & "\" ActiveWorkbook.SaveAs Filename:=Caminho & [G82].Value & ".xlsb" 'Envio do email Dim outlook As Object Dim outlookMail As Object Set outlook = CreateObject("Outlook.Application") Set outlookMail = outlook.CreateItem(0) Dim Para, Cópia, Assunto, Texto As String Para = Range("mSP").Value Cópia = Range("mSC").Value Assunto = Range("mSA").Value Mensagem = Range("mMS").Value With outlookMail .To = Para .CC = Cópia .Subject = Assunto .Body = Mensagem .Attachments.Add ThisWorkbook.FullName .Display End With End Select End Sub

Caros, Tenho um arquivo em que é enviado por e-mail, quando o recebedor abre o arquivo ele clica em um botão de macro e com o código abaixo deveria salvar o arquivo para depois enviar novamente por e-mail. Entretanto, tem momentos ou algum usuário que não salva o arquivo. Alguém saberia me dizer porque isso ocorre? On Error Resume Next Dim Caminho As String 'declaracao da variável caminho Caminho = ThisWorkbook.Path & "\" ActiveWorkbook.SaveAs Filename:=Caminho & [G238].Value & ".xlsb"

Olá, O objetivo é aplicação prática. Tenho uma situação em que o usuário do arquivo seleciona Sim ou Não em uma célula com validação de dados. Muito obrigado! Salvir

Olá, Peguei o código abaixo aqui no fórum postado por osvaldomp. Copiei o código na folha de macro da Plan1 aonde gostaria que funcionasse, porém não funcionou. Tem algum detalhe para este código funcionar? Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Range("A1").Value = 2 Then MsgBox " Macro A " 'Macro A End If If Range("A1").Value = 3 Then MsgBox " Macro B " 'Macro B End If Application.EnableEvents = True End Sub

Prezados, tenho a seguinte situação abaixo e o que preciso é contar quantos tem levando em consideração que deve contar somente uma vez nomes repetidos na coluna A e desde que na coluna B seja 1. Para contar nomes não repetidos utilizei a fórmula "=SOMARPRODUTO(1/CONT.SE(A4:A12;A4:A12))", que por sinal deu certo, porém como levar em consideração a coluna B. No exemplo abaixo a resposta é 4. COLUNA A COLUNA B vou 1 AC 1 AC 1 QU GL CA 1 CA MI CO 1