valbeezerra

@Midori Show!! muito obrigado.

@Midori Essa macro que você partilhou, tem como adaptar de modo que leia até encotrar aprimeira linha vazia? o conteúdo que interessa está antes de duas linhas vazias. Derreti o cerebro e não achei como fazer isso hahaha. Pode me ajudar nisso?

@ricardo_br Desculpe-me pela demora em responder. Só agora que fiz o procedimento. Quanto a funcionalidade, ache muito incrivel a rapidez com que percorre dodos os arquivos. Não sou programador, conheço muitissimo pouco vba e por isso achei que seria melhor para acrescentar algo e tal.. Duas perguntas perguntas: Assim, seria possível criar um gráfico em linha? Outra, seria possível ler o arquivo compactado? No mais, fico grato por responder.

@Midori Isso ficou perfeito. Vou apenas fazer algumas adaptação. Fica aqui o meu agradecimento. Muito obrigado!!

@Midori Podia exemplicar na prática conforme o anexo que enviei ao Ricardo como ficaria? sou mega cru em vb. haha

@ricardo_br Exemplo.zip

@ricardo_br Obrigado por se dispor a ajudar. Sim, teria que ser em VB porque uso o excel. A pasta vem sempre nesse padrão, só muda a quantidade de arquivos. Quanto ao texto a ser extráido, seria o que está após o "Buy-in:". que no caso, como pode obeservar, tem um espaço antes do "$50".

Salve, meus amigos Estou em busca de uma macro que: Abra a caixa de dialogo do Windows para que o usuário busque uma determinada pasta. Nela, contem varios arquivos na extensão txt. Conforme o print, todos os arquivos contem 7 linhas e seguem o mesmo padrão. O objetivo é percorrar todos os arquivos e contar quantas vezes surge o valor $50 e atribuir o total a uma variável. Grato a quem poder colaborar.

Perfeito. Muito obrigado

@Midori Funcionou perfeitamente, Obrigado. Pelo que entendi, só é póssivel se o início da linha segue um texto padrão, é isso? Apenas para entender melhor, no caso de pegar o código lá na ultima linha do exemplo print, onde tem "Seat 3: a953a3b4 (big blind) showed [9s Ah] and won (680) with Pair of Nines". Já naõ seria possível? Nesse caso o que varia é apenas o "a953a3b4". Esse parte é padrão "Seat 3: (big blind) showed " Abraço e muito Obrigado.

@Midori Obrigado por responder mais uma vez. O txt que partilhei foi um exmplo que usei para mostrar de de onde inicia e termina os códigos, no entanto não é o real. Por isso talvez acabei por gerar mais dificudade em encontar a solução, peço desculpas por isso. Estou anexando dois arquivos, um print do que preciso importar e outro que é o arquivo real. No arquivo "print", tem um texto destacado em amarelo que é fixo, ou seja, sempre virá esse texto. O que muda é apenas o circulado em azul que é o que realmente preciso importar a quantidade de vezes que surgem. Nesse exemplo, 7h 9s surge 1 vez, assim como o Ad 2c. Se tiver uma forma de importar para uma coluna apenas os destacados em azul, ok porque poderiamos usar o cout conforme mensionou anteriormete. Grato. txt exemplo.txt

@Midori . Obrigado por responder. Então, da forma que falou é intessante, porém, irá importar para planilha um monte de informações inúteis que acredito deixar a macro mais lenta. O objetivo é importar apenas a quantidade de vezes que um determinado código surge no txt. Vou perguntar de outra forma que me atenderia perfeitamente também. Imagina que temos na Celula C1 o código "mjfhk" e que eu gostaria de registrar na Celula D1 a quantidade de vezes que este código surge no txt, tendo em vista que o mesmo inicia na coluna 15 e tem 5 caracteristicas no txt. No caso do txt partilhado, Celula D1 seria igual a 3.

Salve amigos, Tenho pouquíssimo conhecimento em vba e não sei como fazer o que pretendo. O código conforme está, filtra todos o textos com 5 caracteres na coluna 15 do txt e descarrega na coluna B da planilha. No entanto, Gostaria que fosse apenas somadas as vezes que cada código surge na coluna do txt conforme mencionada e registre os valores na coluna F da planilha. Como ficaria a macro? teste.txt teste.zip

Olá amigo, Já pesquisei e não encontrei a macro que conte os valores apenas das linhas que estiverem visíveis. Encontrei a que soma, apenas. Seria basicamente o CountIfs. Alguém saberia me dizer como faço isso?

Desculpe -me se estou a abusar da sua boa vontade, mas tenho uma outra questão que não conseguir resolver. Na coluna C, trás o número de avaliação que o vendedor recebeu em cada respectiva venda. Se eu tenho um outro comboBox que trás alguns números, como ficaria a rotina retornando em outra célula quantidade de vezes em que o vendedor recebeu tal número de avaliação?

É exatamente o que precisava. Muitissimo obrigado!

Muitissimo obrigado por responder. Só esqueci de escrever que não sou da área de programação, conheço apenas o básico em VBA. Realmente não entendi o quis dizer " passar o nome e a contagem para a função". Pode me dizer como faço isso?

Olá amigos, Estou tentando criar uma macro que excutaria o seguinte: Tenho uma lista suspensa com nome de vendedores. Na coluna A, recebe os nomes dos vendedores Na coluna B, os valores vendidos. Os dados das colunas A e B são importados de um txt). Na célula D3, trás a quatidade vezes em que o vendedor X foi lançado na coluna A. Na célula F3 soma os valores vendidos do vendedor X. Até aí ja tenho as macros prontas. O que me falta seria uma macro que pesquisasse as vendas do vendetor selecionado contando de cima para baixo alterando o valor da célula D3. Caso digitasse 2, por exemplo, retornaria os valores das células 9 e 10. Agradeço antecipadamente. Arquivo Excel pesquisar vendas.zip

Obrigado irmão, Ficou perfeito!

Opa Basole, Obrigado pela por responder. Era exatamente isso que estava a procura. Só uma questão que não estou conseguindo resolver. Seguinte: Meu sistema quando carrega uma imagem no formulário, O nome da imagem aparece na barra do mesmo. Esses códigos, pega o nome da imagem com o nome da extensão, o que não fica bem. Saberia me dizer se tem como tirar a extensão? abç.

Bom dia a todos, Tenho um sisteminha que carrega imagens da planilha com base no Nome e endereço completo da imagem para um userform. Até aqui tudo bem, funcionando tudo ok. O problema é que tenho uma pasta que tem algumas centenas de imagens que preciso inserir no sistema. Como são muitas, Preciso criar uma macro que me permita baixar todas, em vez de uma a uma. Esse código que Encontrei na Internet faz parte do que preciso, busca o Arquivo e baixa, só que tem dois problemas: Não pega o endereço completo, apenas o nome da imagem, e o outro é que você precisa clicar na célula onde vai iniciar o primeiro nome. No meu caso seria: NOME DA IMAGEM Iniciar na célula (B2) e ENDEREÇO COMPLETO DA IMAGEM na (C3). Gostaria de saber se é possível adapta esse código para realizar essa façanha. Option Explicit Sub GetFileNames() Dim xRow As Long Dim xDirect, xFname, InitialFoldr InitialFoldr = "C:\" With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = " Selecione o Aquivo " .InitialFileName = InitialFoldr .Show If .SelectedItems.Count <> 0 Then xDirect = .SelectedItems(1) & "\" xFname = Dir(xDirect, 7) Do While xFname <> "" ActiveCell.Offset(xRow) = xFname xRow = xRow + 1 xFname = Dir Loop End If End With End Sub