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