Ir ao conteúdo
  • Cadastre-se

salvir

Membro Pleno
  • Posts

    25
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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!
  2. Vai em formatar células + número + personalizado e em tipo coloca dd/mm ddd
  3. Olá! Tenho um arquivo Excel onde o usuário recebe por e-mail (outlook), ele abre o arquivo e insere alguns dados, depois clica em um botão de macro para enviar para o próximo usuário. Ao clicar no botão para enviar para o próximo usuário, o código salva o arquivo e anexa no e-mail (outlook) para ser enviado. O caminho usado para salvar é o ThisWorkbook.Path, porém agora com o office 365 não salva o arquivo e anexa no e-mail. "Acho" que não está salvando porque abre o arquivo do e-email somente leitura no 365. Alguém tem alguma dica de como contornar isto? Obrigado!
  4. Segue sugestão: colocar esta fórmula em K2 e copiar para as demais linhas =VALOR(SUBSTITUIR(SUBSTITUIR(A2;".";"/");"-";" "))
  5. 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)
  6. Bom dia! Usa a fórmula CONT.SES, coloca na fórmula para contar entre o primeiro e último dia do mês.
  7. 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
  8. 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"
  9. 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
  10. 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
  11. Olá, Uso o código abaixo para enviar por email (Outlook) o arquivo Excel que estou usando. Além dos e-mails e assunto que pega da planilha (células F62 e F63), agora gostaria de inclui no corpo do email uma mensagem padrão. Como poderia adicionar este texto no corpo do email que está na célula F64? Sub EnviarEmail() Dim Subject As String Dim MailList As String MailList = Range("F62").Value Subject = Range("F63").Value Application.Dialogs(xlDialogSendMail).Show MailList, Subject, True End Sub
  12. Prezados, Em uma macro tenho a seguinte condição por ex ActiveSheet.Range("$B$7:$BG$1000").AutoFilter Field:=6, Criteria1:=Array("A", "B", "D"), Operator:=xlFilterValues O que preciso é fazer com que o Array pegue de uma determinada célula de uma planilha, porque os itens são variados. Por exemplo, ora pode ser A, B, C, D, ora A, B, D, E, e assim por diante, por isso pensei em fazer pegar o que fica entre parênteses de uma célula da planilha. A dúvida é como fazer para pegar esta informação da plan?
  13. 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.
  14. 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
  15. 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?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...