Ir ao conteúdo
  • Cadastre-se

RODRIGO ZAMENGO

Membros Juniores
  • Total de itens

    5
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. A macro que usa o botão funcionou perfeitamente (muito obrigado), mas a segunda não funcionou, o erro mostra que faltou um if para o else, mas como a primeira esta funcionando nem precisa se preocupar que ja solucionou.
  2. Eu uso esse sub enviar_email () Application.DisplayAlerts = False Application.ScreenUpdating = False Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .to = ("e-mail") .Subject = "titulo" .Attachments.Add "caminho\arquivo.xlsx" .Display .Send end sub Onde eu coloquei e-mail, adicione o e-mail de destino (para colocar mais de um coloque "e-mail1;e-mail2;e-mail3"); Onde eu coloquei titulo, coloque o titulo do e-mail (não necessariamente o nome do arquivo) Onde eu coloquei caminho, coloque o caminho (ex: c:\teste.xlsx) Boa sorte
  3. eu estou tendo o mesmo problema, onde aparece o mesmo erro (1004) , mas ocorre quando eu estou tentando rodar uma macro em outra planilha, usando Sub rodarmacroteste() Application.Run "caminho\arquivo.xlsm!teste" End Sub porém a mensagem de erro é que a macro pode não estar acessivel nessa planilha ou as macros podem estar desabilitadas
  4. Bom dia, eu estou tentanto identificar um valor para uma lista muito grande e queria fazer uma macro para ela ahar para mim, a ideia seria eu colar o valor em uma célula, por exemplo J10, e que a macro usando o valor nessa célula me mostrasse em qual linha esta esse valor. eu pensei em utilizar essa macro que achei na internet, mas nao sei como adaptar para esse caso. Sub buscavalor() ' ' buscavalor Macro Range("A1").Select ' seleciona a primera linha da coluna a ser analisada Do Until ActiveCell = fim ' executa a macro até encontrar a palavra fim no fim da coluna a ser analisada ActiveCell.Offset(1, 0).Select 'desce uma linha If ActiveCell = x Then 'faz a análise lógica Application.Run "Macro2" ' executa a macro2 End If Loop Range("A1").Select ' retorna para o inicio da coluna End Sub Sub Macro2() ActiveCell.Offset(0, 1).Select 'desloca para a coluna a direita ActiveCell.FormulaR1C1 = "valor localizado" ActiveCell.Offset(0, -1).Select 'retorna para a coluna a esquerda End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!