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! 

 

osvaldomp

Colaborador
  • Postagens

    1.127
  • Desde

  • Última visita

5 Seguidores

Sobre osvaldomp

  • Rank
    Office Expert

Perfil

  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior
  • Estado
    São Paulo
  • Sexo
    masculino

Últimos Visitantes

7.565 visualizações
  1. Olá, Nelson. em 'A2' =SEERRO(ÍNDICE(Planilha1!$A$2:$A$13;CORRESP(1;(B2=Planilha1!$B$2:$B$13)*(C2=Planilha1!$C$2:$C$13);0));"") em 'D2' =SEERRO(ÍNDICE(Planilha1!D$2:D$13;CORRESP(1;($B2=Planilha1!$B$2:$B$13)*($C2=Planilha1!$C$2:$C$13);0));"")
  2. Olá, Jamison. Experimente a UDF abaixo no lugar da atual. Function ConcatenaV2() Dim rCell As Range, r As Range, Nc As Long, x As Long, str As String Nc = Sheets("Plan2").[B:B].Find(Application.Caller.Offset(, -3).Value, lookat:=xlWhole).Row x = Application.CountIf(Sheets("Plan2").[B:B], Application.Caller.Offset(, -3).Value) str = Range(Cells(Nc, 1), Cells(Nc + x - 1, 1)).Address Set r = Sheets("Plan2").Range(str) For Each rCell In r ConcatenaV2 = ConcatenaV2 & rCell & "-" Next rCell ConcatenaV2 = Left(ConcatenaV2, Len(ConcatenaV2) - 1) End Function Dicas para inserir a Função na planilha: 1. insira em 'D10' =ConcatenaV2() em seguida arraste até 'D22', ou 2. selecione 'D10:D22' / digite =ConcatenaV2() / mantenha Ctrl pressionada e aperte Enter
  3. A solução que postei poderá ser útil para alguém em futuras consultas pelos motores de busca da WEB pois atende ao que você colocou como título do seu tópico: macro para filtrar
  4. Solução via macro. a Teste FIltro.7z
  5. 1B TESTE subst ano.7z
  6. Veja se o arquivo anexado pode ser um ponto de partida. 1B TESTE subst ano.7z
  7. Olá. Veja se o arquivo anexo pode ajudar. salvar sob condições.xlsm
  8. Olá. Me parece que você está tentando alterar partes de fórmulas. É isso? Se você disponibilizar uma amostra do seu arquivo e indicar na(s) própria(s) planilha(s) o que deseja fazer e qual o resultado desejado, isso poderá facilitar a obtenção de ajuda.
  9. Olá, Geneci. Veja se este atende. Pinta LinhaV2.xlsm
  10. Olá, Geneci. Veja se o arquivo anexo atende. Pinta Linha.xlsm
  11. Sandro, veja se o arquivo anexo te ajuda. a de teste macro baboo.xlsm
  12. Assim ? .AddAttachment ("c:\TRAFOS SUBSTITUIDOS\TRAFOS\" & Sheets("Plan1").Range("B2").Value & ".pdf")
  13. Olá, Paulo. Experimente: .AddAttachment ("c:\TRAFOS SUBSTITUIDOS\TRAFOS\pasta\" & Range("B2").Value & ".pdf")
  14. Sandro, por favor disponibilize uma amostra do seu arquivo com ao menos 3 botões. Coloque na planilha o resultado esperado ao clicar em cada botão, informe quais as células de origem e de destino dos dados para cada botão clicado. Por exemplo, ao clicar no Button9 o conteúdo da célula X20 deverá ser replicado na célula X21, algo assim. obs. disponibilize o arquivo, pois com imagens eu não consigo te ajudar.
  15. Olá, Sandro. Este código copia o valor da célula ativa para a célula logo abaixo dela. Veja se ajuda. Sub Button9_Click() ActiveCell.Offset(1).Value = ActiveCell.Value 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.