Pesquisar e comparar

2024 - VBA & Macros

Post Recente por brunoxro 8 anos atrás

4 Posts

3 Usuários

0 Reactions

1,275 Visualizações

RSS

ti02

(@ti02)

Posts: 34

Eminent Member

Topic starter

Olá amigos, Tenho um problema aqui que já pensei na lógica para resolver, mas não sei se é possível aplicar no vba o que eu estou em mente.

Suponhamos que eu tenho o seguinte na planBase que é o relatório

E tenho uma outra planilha, que é a planilha de calculos, planCalculos, onde eu defini que quero adicionar um valor a tudo que for do tipo, BANANA E MAÇA.

Então quero comparar se na celula A1 da planBase tem a palavra chave que coloquei na celula A1 de planCalculos. Aí que está o problema, não quero comparar todo texto de um com a outra, somente a primeira palavra.

no caso pensei em fazer o seguinte, porém não consigo aplicar isso no VBA, se alguém souber.

worksheets(PlanBase).select
range("A2").select

do
 With ThisWorkbook.Worksheets(planCalculos).Range(rng)
        Set c = .Find(left(ActiveCell.Offset(0, 0), lenOfxlValues), LookIn:=xlValues)

onde eu pesquisaria somente o tamanho da palavra que está correspondente na celula ativa da planCalculos.

Não sei se fui claro, mas é isso aí, se algu´rm souber como aplicar isso, ajudaria muito!.

Postado : 17/05/2017 8:37 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

ti02,

Boa tarde!

Alterei o título de sua mensagem pois, conforme as regras do fórum, títulos de mensagens não devem conter a palavra ajuda. Utilize apenas um Texto sucinto e que descreva a sua dúvida.

Nas próximas postagens de códigos aqui no fórum, por gentileza, queira utilizar a TAG CODE que existe no início da caixa de mensagens.

Quanto a sua dúvida, para fazer comparações pegando apenas parte do nome use o operador LIKE. Veja no help do VBA qe trás, inclusive exemplos de como utilizar o mesmo. Você pode utilizar o LIKE, inclusive, com coringas como o asterisco (*) e o ponto de interrogação (?).

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 17/05/2017 9:03 am

ti02

(@ti02)

Posts: 34

Eminent Member

Topic starter

Olá Wagner, obrigado pelo retorno e desculpe pelas regras infligidas, me atentarei mais!

apliquei o que tinha em mente de fazer com o with, porém sem o with, já que com with não consegui, implementei essa lógica aí.
Ficou funcional, não sei se era o melhor caminho, pois dará o numero de tags em voltas na planilha Base, se houverem 200 tags, serão 200 voltas, se houverem 10k linhas na base, serão 200 x 10.000, acredito que posso perder em velocidade, mas se não houver outro jeito terá de ser assim. :/
Segue codigo para avaliação de quem quiser ter uma noção de algum problema parecido.

 Dim contador As Integer
    contador = 2
    Dim tamanhoPalavra As Integer
    
    Dim tamanhoDaBase As Integer
    
    tamanhoDaBase = Planilha5.Cells(Rows.Count, 1).End(xlUp).Row
    
    Do 'para enlaçar todas as tags
    Range("A2").Select
    tamanhoPalavra = Len(Sheets("Planilha1").Cells(contador, 1).Value)
    Do 'para enlaçar todas as cells da planilha base
    If Left(ActiveCell.Offset(0, 0).Value, tamanhoPalavra) = Sheets("Planilha1").Cells(contador, 1).Value Then
    ActiveCell.Offset(0, 1).Value = Sheets("Planilha1").Cells(contador, 2).Value
    End If
    ActiveCell.Offset(1, 0).Select
    
    Loop Until IsEmpty(ActiveCell)
    contador = contador + 1
    Loop Until contador > tamanhoDaBase

Postado : 17/05/2017 12:03 pm