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

Qual é o conteúdo dessas planilhas? Você pode compartilhar duas planilhas como exemplo? Vai facilitar para eu lhe ajudar.

São apenas planilhas com texto, são formulários em que o usuário tem que preencher determinados campos e enviar a planilha por email.

Neste arquivo tem várias planilhas, por isso não deve ser enviado o arquivo inteiro, mas só alguma planilha.

Olá,

Tenho várias planilhas onde na célula A1 tenho um determinado email.

Gostaria que ao clicar sobre o email ou em um botão de macro, a planilha ativa fosse anexada ao outlook e que já incluisse o email na caixa "Para".

Resumindo, seria preparar automaticamente um email com o destinatário e em anexo a planilha ativa em que estiver usando.

Grato,

Salvir

Pode ser, mas teria alguma forma de automatizar uma destas alternativas, haja vista que são vários códigos diferentes para separar em várias planilhas?

Anx arquivo exemplo.

Exemplo.xlsx

Obrigado pela ajuda.

Porém tenho um problema, a plan tem umas 10 mil linhas e 320 colunas com dados, daí demora demais para fazer o processo.

Será que ao invés de excluir a linha, poderia excluir os dados das colunas que tem dados? Ou teria outra forma para agilizar o processo?

Muito Obrigado!

Salvir

Prezados,

Tenho uma plan com mais de dez mil linhas e gostaria de um código que eliminasse linhas que fosse diferente de um determinado código (ex. A44).

Por exemplo: os códigos estão na coluna B, linha 8 até 10000 e todas as linhas em que não tiver o código A44 na coluna B devem ser excluídas. 

Sds

Salvir

Perfeito, muito obrigado!

Caros, gostaria de identificar uma fórmula (preferencialmente que não seja uma fórmula matricial, porque demora para calcular devido a quantidade de valores) para localizar o valor máximo de dentro de um determinado grupo. Exemplo abaixo:

Nome           Valor Individual     Valor Máximo (Resultado da fórmula

Argentina     1                            13

Argentina     3                            13

Chile            3                             5

Brasil           1                             1

Argentina     13                           13

Chile            5                              5

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

Obrigado pela ajuda, mas está dando um erro ao executar o código.

Att

Salvir

Caros,

Gostaria de um código que quando fosse clicado em um botão de macro salvasse a planilha ativa em pdf. Tem como fazer isto?

Para ser perfeito já poderia anexar a um email do outlook, na plan ativa tem o nome do email.

Grato,

Salvir

Funcionou perfeitamente, muito obrigado!

Estou fazendo um código para copiar a fórmula de uma célula e colar abaixo várias vezes na mesma coluna.

O problema é que são muitas colunas e o código vai ficar grande e repetitivo. Tb não posso copiar várias células ao mesmo tempo.

Por isso, pergunto: tem alguma forma de fazer com que esta instrução se repita por um determinado número de colunas (ex. fazer da coluna A até Z)?

Abaixo inseri parte da lógica que preciso que se repita coluna a coluna...