×
Ir ao conteúdo
  • Cadastre-se

valbeezerra

Membro Júnior
  • Posts

    11
  • Cadastrado em

  • Última visita

Reputação

1
  1. 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?
  2. 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?
  3. É exatamente o que precisava. Muitissimo obrigado!
  4. 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?
  5. 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
  6. Olá amigos, A rotina abaixo verifica a existência ou não de um determinado arquivo na unidade C:\ Tenho uma planilha com algumas centenas de nomes de diretórios de arquivos na coluna B e procuro uma forma de fazer essa mesma função do código abaixo para verificar se os arquivos não foram alterados. Ou seja, antes de abrir a planilha executaria a macro para verificar se houve alteração. No caso seria um Loop, mas como sou barriga verde em VBA, não faço ideia de como fazer. Agradeço a quem poder da essa força. Sub Verifica_Arquivo() Dim pesquisa As Variant pesquisa = "C:\Users\PC\Desktop\PASTA\NOME DO ARQUIVO" If Dir(pesquisa) = vbNullString Then strCheck = False Else strCheck = True End If If strCheck Then MsgBox " encontrado" Else MsgBox " arquivo inexistente" End If End Sub
  7. Bom dia Senhores, Estou criando um sistema que carrega imagens em um formulário. Uso o código abaixo para pegar a pasta que contem os nome e o caminhos das imagens que serão postas na coluna 2. O problema é que algumas pastas vem com aquele chato arquivo Thumps.db acaba assumindo o lugar de outra imagem gerando erro ao acionar o comando referente aquela célula. Queria saber se tem como interceptar esse tipo de arquivo. Algo como: caso exista na pasta arquivo Thumps.db fosse executado alguma ação como, desviar para ultima linha ou de preferência excluir. abç Option Explicit Sub Pega_pasta_Shove_nash() Dim rowB As Long: rowB = 2 Dim rowC As Long: rowC = 2 Dim xDirect, xFname, InitialFoldr InitialFoldr = "C:\" With Excel.Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Excel.Application.DefaultFilePath & "\" .Title = " Selecione o Aquivo " .InitialFileName = InitialFoldr .Show If .SelectedItems.Count <> 0 Then xDirect = .SelectedItems(1) & "\" xFname = VBA.Dir(xDirect, 7) Do While xFname <> "" Range("B" & rowB) = xFname Range("C" & rowC) = xDirect + xFname rowB = rowB + 1 rowC = rowC + 1 xFname = VBA.Dir Loop End If End With End Sub
  8. Bom dia a todos. Tenho uma planilha que contém uma lista de codigos seguido de um texto e mais um código, tudo em uma mesma coluna. Queria uma macro que extraía os códigos e deixasse apenas o texto. Ex: A6D5.TEXTO.A7B5 Sempre dois pontos entre o TEXTO. Sei que há formas de fazer sem VBA, mas não quero correr o risco de alguém deletar as fórmulas. Grato!
  9. Obrigado irmão, Ficou perfeito!
  10. 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ç.
  11. 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

Sobre o Clube do Hardware

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

Como se tornar um desenvolvedor full-stack

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!