Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

 

Kayo Anthony

Participante
  • Postagens

    8
  • Desde

  • Última visita

Sobre Kayo Anthony

Perfil

  • Escolaridade
  • Área Profissional
  • Nível Profissional
  • Estado
  • Sexo
    masculino
  1. Olá gente estou com uma certa dificuldade de deixar essa macro da forma que eu gostaria. Eu preciso só deixar ela adaptada pro que estou precisando. Entao é uma macro que ao apertar o botao de enviar email ela precisa enviar o email em arquivo PDF ao inves de XLS e da planilha que esta na tela. porque as planilhas tem os numeros de 100 a 120 e cada um tem um e-mail especifico. o email fica na celula K23 de cada planilha e as informacoes para envio esta E1 até E203. apenas essas celulas devem conter no arquivo para envio. e não é pra enviar tudo de uma vez. se eu estiver na planilha 109 por exemplo ele envia o arquivo das celulas E1 até E203 em formato pdf para o e-mail que está na celula K23 . e assim sucessivamente. eis o codigo da macro abaixo no caso esse é um módulo: Sub EnviarEmailPlanilhaEspecifica() Dim NovoArquivoXLS As Workbook Dim sPlanAEnviar As String Dim sExcluirAnexoTemporario As String 'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc sPlanAEnviar = "101" 'Cria um novo arquivo excel Set NovoArquivoXLS = Application.Workbooks.Add 'Copia a planilha para o novo arquivo criado ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1) 'Salva o arquivo NovoArquivoXLS.SaveAs ThisWorkbook.Path & "\" & sPlanAEnviar & ".xls" sExcluirAnexoTemporario = NovoArquivoXLS.FullName 'Envia o email NovoArquivoXLS.SendMail "altech2@yahoo.com.br", "Título do Email" 'Fecha o arquivo novo NovoArquivoXLS.Close 'Exclui o arquivo criado apenas para ser enviado. Kill sExcluirAnexoTemporario End Sub
  2. Beleza cara deu certo agora. Obrigado mais uma vez. Amigo.
  3. Oi voltei aqui, porque esse código ta conflitando com o botão de limpar os dados. e agora? kk taqui o codigo do botao Sub fncCLEARVENDAS() Dim wks As Excel.Worksheet For Each wks In Sheets Select Case wks.Name Case "MAT.", "FOR.", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120" wks.Range("D3:D203").ClearContents End Select Next wks End Sub ta dando erro de depuracao 13 tipos incompativeis .
  4. Show de bola cara isso mesmo. Obrigado. Aqui só tem fera!.
  5. Boa noite gente, estou tentando fazer uma formula do excel contar quantas vezes tem numeros acima de 130. Seria facil se fosse numa unica planilha(aba), sendo que ele precisa fazer isso em 20 planilhas na mesma posicao. Ex.: Planilha de nome 101 ele precisa ver se a a celula i3 é maior que 130 na 102 i3 a mesma coisa até a planilha 120. e contar apenas as que forem acima de 130. abaixo que isso ele nao iria contar. a formula CONT.SE é perfeita pra fazer mas so da certo com uma unica celula ou um conjunto de celulas da mesma planilha (aba) e nao de planilhas diferentes. alguém poderia me ajudar?
  6. eh exatamente isso mesmo. poxa cara muito obrigado. parabens pela sabedoria. o codigo ficou bem mais simples. obrigado msm. :D
  7. Ola amigo, é porque sao dois codigos. um é para toda vez que a celula for alterada ele mostrar a data de alteracao, e a outra é quando outra celula for alterada ele ir somando os valores a medida que vou alterando a mesma celula autmaticamente. mas a questao é que ambas sao worksheet_change e ai acaba que so uma funciona e nao as duas. no caso aqui ta desorganizado porque dando certo eu so faco pegar o codigo e colar na planilha mesmo. segue em anexo o modelo com o codigo que falei. Mas no caso seria assim, quando a coluna D for inserido valor é pra ir somando na H. e na coluna C quando for altgerada é pra aparecer a data na coluna G. por gentileza nao apagar(teste2).xls
  8. Oi gente, como sabemos o vba nao aceita na mesma planilha dois worksheets juntos. so que eu preciso deles juntos. ele da erro de compilacao por ter nome repetido. alguém me ajuda a unir os dois? Private Sub Worksheet_Change(ByVal Alvo As Range) Dim limite_maximo As Integer limite_maximo = 1000 ' altere aqui para limitar a última linha If Alvo.Cells.Count > 1 And IsEmpty(Alvo) Then Exit Sub ' faz nada se mais de uma célula modificada ou se deu delete If Alvo.Column = 3 And Alvo.Row >= 1 And Alvo.Row <= limite_maximo Then ' o if acima garante que a célula modificada está dentro a2:a100 ' desliga captura do evento change Application.EnableEvents = False ' muda a célula C da linha correspondente Alvo.Offset(0, 4).Value = Date 'Troque por Date() se quiser que mostre a data ao invés do horário ' religa a captura de eventos Application.EnableEvents = True End Sub Private Sub Worksheet_Change (ByVal Target As Range) If Target.Column = 4 Then Target.Offset(0, 4) = Target.Offset(0, 4) + Target.Value Target.Offset(0, 0).Select On Error Resume Next 'trata um eventual erro, tipo deletar Target.Offset(0, 0).Select End If End Sub
O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.