Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Pesquisar na Comunidade

Mostrando resultados para as tags ''Visual Basic''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Blog

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Categorias

  • Cursos

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas, sugestões e questões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 81 registros

  1. Pessoal. Eu vi tópicos distintos para dois problemas enfrentados. Porém nenhum explicando os dois na mesma situação. Então. Estou criando uma planilha com muitas imagens e conectores. Daí estava usando worksheet_change para criar um código que "mudasse as imagens de lugar" (na verdade é ocultar uma e aparecer outra em outro lugar) e trocasse os conectores de acordo com certos botões clicados. A planilha em si estava ficando incrível. Mas ... Apareceu uma mensagem "Procedimento muito grande". Daí eu vim aqui e vi um tópico em que a pessoa dava a solução de partir o procedimento em dois ou mais. Porém quando o fiz, apareceu dizendo que "não pode nomes iguais". Novamente vim aqui e li num tópico que a solução era juntar e fazer tudo em um procedimento. Me fazendo voltar no primeiro problema. Alguém me da uma luz aí? O que posso fazer para não acontecer nenhum dos dois problemas? Obrigado.
  2. Boa noite, Pessoal estou com um problema, estou abrir uma calculadora no vba via shell("C:/...") ele abre a calculadora, mas preciso fazer a conta nela e copiar automaticamente o resultado dela para área de transferência e colar nos códigos do vba. Alguém pode me dar uma luz ?
  3. Boa tarde, Preciso de uma macro que seja executada automaticamente, de acordo com o valor da célula "D11". Para tal, fiz o seguinte código (que está funcionando, mas não é executado automaticamente ao alterar a célula): Sub Exibir_Billing_Atual() ActiveSheet.Unprotect Password:="12345" If Range("D11").Value = "Projeto" Then Range("D17").Value = 0 Range("D17:D18").Select Selection.EntireRow.Hidden = True Range("D11").Select ElseIf Range("D11").Value = "Aditivo" Then Rows("17:18").Select Selection.EntireRow.Hidden = False Range("D17").Select End If ActiveSheet.Protect Password:="12345" End Sub Alguém poderia me ajudar?
  4. Olá, comunidade. Sou iniciante em VBA e fiz o seguinte código dentro do Excel 2013, porém não consigo executá-lo, em razão do erro de compilação "'Sub' ou 'Function' não definada. Não consegui encontrar o erro. Podem, por favor, ajudar-me? Aceito críticas e sugestões. Eis o código: Dim Nome As String Dim Cont As Integer Dim N As Integer Sub Do_Loop_Legal() N = 12 Cont = 3 Do While Cont < N Nome = Plan1.Cells(Cont, 2).Value If (Nome = "I") Then Sheet("Plan6").Cells(Cont + 1, 3) = Plan1.Cells(Cont, 2).Value End If Nome = Plan1.Cells(Cont, 2).Value If (Nome = "F") Then Sheet("Plan6").Cells(Cont + 1, 4) = Plan1.Cells(Cont, 2).Value Cont = Cont + 1 Loop End Sub
  5. Criei um planilha que é alimentada pela plataforma através do link DDE e RTD, estou filtrado informações para análise, e uma das situações que eu preciso é que, A1 esta transmitindo para A2 a quantidade de lote que esta saindo do mercado em tempo real variando entre 0 e quantidade recebida, no caso A2 eu preciso que some cada lote que passasse por A1. Ex, A1 ira varia entre 0,5,0,10,25,0,5,10,0 assim por diante conforme for saindo lote no mercado, porém A2 terá que somar todas as vez que passa informação transmitida de A1: A2 = 0 +5 +0 +10 +25+0+5+10 = 55 alguém poderia me salva ?
  6. Alguém manja como fazer uma macro que fique rodando o aleatório e ela parar automaticamente quando um determinado objetivo for atingido? É uma pesquisa que estou fazendo. A ideia é o seguinte: A macro fica ativando a formula de =aleatórioentre, portanto, digamos que uma ativação infinita até ser desligada automaticamente ou de forma brusca. Quando a soma/produtor e etc da série atingir um determinado valor, a macro se encerra automaticamente.
  7. Olá! estou com um problema em conseguir encontrar uma solução para o que estou precisando, não fiz cursos de macro ou VBA mas sou curiosos. Basicamente quero criar um botão para cada linha na coluna destacada para que quando eu estiver na situação que necessito copiar do campo "OPERAÇÃO" para aquela coluna, apenas os valores e sem fórmulas pois conforme valores são atualizados aquele campo muda. Outra opção seria criar uma fórmula para que sempre que a célula da coluna ao lado fosse positiva, o valor do campo "operação" fosse copiado e colado automaticamente. Desde já, agradeço imensamente.
  8. Boa tarde, tenho em um BD Access rodando no Windows 7 64 Bits, uma linha de comando em que uso o carácter "seta á esquerda", conforme abaixo: porém quando eu coloco esse BD em uma maquina com Windows 10 64 Bits, o carácter "seta á esquerda", deixa de existir, se tornando "[]", conforme abaixo: Tentei usar a função "Chr(27)" e "ChrW(27)" que deveria ser igual a "Seta á Esquerda", porém, o resultado é o mesmo, conforme janela de verificação imediata abaixo: Nos dois sistemas, o Office, é exatamente o mesmo, e o dois Windows estão com as mesmas configurações de "Região": Esse é um BD de extrema importância, e como estamos migrando todas as maquinas para Windows 10, preciso resolver esse problema. Alguém tem ideia de como resolver isso ? Grato
  9. Bom dia pessoal, gostaria de uma ajuda, já que não encontrei nenhuma outra solução e não entendo de VBA ainda, vou deixar aqui um modelo de exemplificação. 1- Necessidade: Tenho uma planilha que faz o controle de treinamentos do pessoal, em uma parte da tabela, tenho o resultado do comparativo entre dois controles considerando apenas os valores exclusivos. Porém ao copiar as informação das colunas HD9: IY258 e tentar colar nas colunas L9:BG258 (que são campos editáveis sem formulas, porém com form. condicional), mesmo utilizado o copiar e colar especial apenas valores da seleção ela dá erro na formatação condicional por considerar as células vazias. 2-Necessidade: Algum código que se dentro da tabela (considerando apenas as celulas L9:BG258) aparecer cor vermelha (que vem de uma formatação condicional) seja inserido o valor "N" na célula colorida. Desde já agradecido. Link do modelo abaixo: DUMMY.xlsx
  10. Prezados, bom dia Possuo uma caixa de combinação que ao selecionar determinado item chama uma msgbox questionando se o usuário deseja realmente efetuar tal escolha, se a escolha for "sim" então ele trava a caixa de combinação, se a escolha for "não" então, ele pode voltar a escolha normalmente. O problema é que caso a escolha for "sim", ele de fato trava a caixa de combinação, porém se der dois cliques ele volta ao inicio da macro, surgindo a msgbox novamente e meu desejo é que permaneça travado. Segue linhas de código: Sub Dropdown18_Alteração() Dim Resposta As Long Resposta = MsgBox("Deseja Selecionar esta Loja?", vbYesNo) If Resposta = vbYes Then ActiveSheet.Shapes("Drop Down 18").ControlFormat.Enabled = False Else ActiveSheet.Shapes("Drop Down 18").ControlFormat.Enabled = True End If End Sub Poderiam me ajudar? Já antecipo minhas desculpas pela minha falta de experiencia.
  11. Olá, boa tarde! Estou fazendo um programa em VBA do excel que vai inserindo uma linha de uma planilha em uma tabela geral localizada em outra planilha a cada vez que eu aperto o botão. O problema é que eu quero ordenar a tabela geral por data a cada vez que eu insiro uma linha nela. Quando eu fiz uma macro com o botão do controle de formulário, o código funcionou. Porém, quando eu criei um botão ActiveX, o mesmo código passou a exibir esse erro: A linha com problema é justamente a de classificação em ordem crescente: Alguém tem alguma ideia do que poder ser? [Obs: sou iniciante em VBA] Obrigada, Marina
  12. Boa tarde!! Bom, eu estou com uma lista de exercícios para fazer e estou com duvida em dois que não tenho ideia de como começar... A pessoa vai digitar por exemplo: Mostrar o texto digitado de forma invertida... DIGITADO: MEU NOME MOSTRAR: EMON UEM E outro que é Para cada letra mostrar 3 letras a frente... DIGITADO: MEU NOME ABC MOSTRAR: PHX QRPH DEF
  13. Boa tarde pessoal, sou novo no aqui mas acompanho o Clube do Hardware a algum tempo! Quanto a minha pergunta esclareço que não localizei o que preciso! Sou iniciante em VBA e estou montando uma planilha, cheguei na seguinte situação: 1º preciso otimizar meu Código na primeira Macro "INSERIREQUIPE" segue abaixo o codigo Sub INSERIREQUIPE() ' ' INSERIREQUIPE Macro ' Copia a ("A11:H14") e insere abaixo ' Range("A11:H14").Select Selection.Copy Range("A11").Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False MsgBox (" Altere os Dados da Nova Equipe") End Sub Obs. Na Planilha as celulas A11:A14 estão mescladas, e com o codigo "Selection.End(xlDown).Select" é limitado a quantidade de equipes que posso inserir, quero otimizar para poder inserir quantas equipes eu quiser. Questão 2. o próximo código seria pra apagar somente o que foi inserido mas ele vai apagando tudo inclusive o intervalo " A11:H14", bem como quero otimiza-lo também! segue o código Sub Apagarultimalinha() ' ' Macro4 Macro 'apaga a ultima linha inserida ' Range("A9:A10").Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlUp).Select lin = ActiveCell.Row Rows(lin).Select Selection.Delete Shift:=xlUp Range("A14").Select MsgBox (" A Ultima Equipe foi excluida") End Sub Desde já agradeço o apoio de todos, espero ter me expressado bem!
  14. Boa tarde a todos amigos... Primeiramente agradeço a todos que colaborarem, Estou criando um sistema de frente de caixa bem simples para minha empresa, com intuito de reduzir custo. Porém sou leigo no assunto, e entendo bem pouco de vba, quando analisarem minha planilha verão, peço encarecidamente que não questionem alguma formula ou macro muito longa ou extensa sem necessidade, pois sou leigo, e vou fazendo conforme vai dando na telha, e graças a Deus está dando certo, porém na etapa final tive este probleminha, vou explicar melhor: Na userform4, seria minha tela de pagamento, o que preciso e não consegui fazer não sei por qual motivo é: Preciso que quando eu clicar na forma de pagamento "Dinheiro", o valor que eu colocar na textbox1 for menor que o valor "Falta Pagar", apenas inserir o valor no Sheets("Venda").Range("BT5:BU12"), caso o valor da textbox1 for maior que o falta a pagar, calcular o troco, e inserir na Range("BT5:BU12") o valor da textbox1 (que vai ser o valor que o cliente me deu) e também o troco (que vai ser o que tenho que devolver pro cliente. (Segue arquivo em anexo) Da maneira que fiz se o valor for menos que o "falta pagar", ele trabalha da maneira que eu quero, porém se o valor for maior, ele trabalha como se o valor fosse menor, fazendo assim com que o "falta pagar" fique negativo. OBS1: Fiz a macro no Userform5.CommandButton2 OBS2: Fiz tudo no formato .xlsm, salvei como .xls para postar aqui, vou zipar e anexar os dois no zip. Não sou bom com palavras, espero que tenham entendido, ficarei muito agradecido quem puder me ajudar, Deus abençoe a todos. Abraço. sistema.rar
  15. (podem me mover para o forum certo) bom galera eu tenho um pendrive bootavel inclusive ja testei ele no notebook aqui e funciona normalmente, mas nao consigo fazer ele bootar no meu pc onde a placa é mais nova bios uefi. aperto f12 para ir da boot ai aparece o menu e la tem a opcao do pendrive eu seleciono ela e simplesmente ele faz iniciar normalmente como se eu nao tivesse escolhido ela. alguem me diz o que tenho que fazer para ele comecar bootar pelo pendrive?
  16. Olá! Estou criando macros em vba no excel mas quando tento gravar não grava eu perco o trabalho, quando entro novamente na planilha e procuro pelas macros criadas elas não existem. Dá a seguinte mensagem que segue abaixo: Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro: .Projeto do VB Para salvar um arquivo com esses recursos, clique em Não e escolha um tipo de arquivo habilitado para macro na lista Tipo de Arquivo. Para continuar salvando como pasta de trabalho sem macro, clique em Sim. Já tentei Não e Sim e o resultado é o mesmo.
  17. Faço uma pesquisa digitando os dados no TextBox me retorna o primeiro resultado, porém tem outros resultados (vários cadastros de nome João), tem como continuar a pesquisa para o próximo nome?
  18. boa noite, eu fiz um codigo de verificação do meu programa para que não haja copias, quero sabe qual pasta aonde fica alocado o numero do meu hd para que eu faço verificação do diretório do meu sistema.
  19. Boa Tarde ! Estou precisando automatizar um procedimento e preciso aprender a clicar nos botões de pop up ex : Open, Salvar como, Cancel,
  20. Bom dia! Estou começando a estudar logica de programação, e quando tento escrever um algorítimo usando as funções "se" e "caso", estou encontrando algumas dificuldades, no exercício em questlao seria um calculo de média de KILL de um jogo, o calculo funciona normalmente, mas por algum motivo eu não consigo fazer o algorítimo realizar uma "escolha caso" o valor de negativo, segue abaixo o código, espero que alguém possa me ajudar a identificar o erro. var MT, MO, M: Real inicio Escreval ("==================") Escreval (" KILL ") Escreval ("==================") Escreva ("Quantos personagens você matol? ") Leia (MT) Escreva ("Quantas vezes te mataram? ") Leia (MO) M <- MT-MO Escreval (" sua media de KILL é ", M) Escreval ("==================") Se (M>=1) e (M<=10) então Escolha (M) Caso 1, 2, 3, 4, 5 Escreval ("Você esta indo bem!") Caso 6, 7, 8, 9, 10 Escreval ("Você esta otimo!") Senao Se (M>10) então Escreval ("Você esta joganndo muito bem") Senao Se (M<=0) e (M<=-10) então Escolha (M) Caso -1, -2, -3, -4, -5 Escreval ("Sua média esta negativa, isso não e bom.") Caso -6, -7, -8, -9, -10 Escreval ("voce esta indo muito mau") Senao Se (M<=-10) então Escreval ("Você devia tentar jogar outro jogo.") Fimse Fimescolha Fimse Fimse Fimescolha Fimse Escreval ("==================") fimalgoritmo
  21. Alguém me recomenda um macro pra teclado? Quero um que quando eu aperte o botão direito do mouse, ele pressione a letra "T". Se alguém puder me ajudar, eu agradeço!
  22. Bom dia, Tenho uma tabela com os códigos dos funcionários, nomes, dias em treinamento e os dias em colunas. (imagem abaixo) Preciso organizar em uma outra aba com os dados do funcionário - treinamento a ser realizado - dia de início e fim. Podem me ajudar por favor a criar uma macro para verificar nas colunas os treinamentos e reorganizar? Obrigada!
  23. Olá galera!! Tenho o seguinte problema,espero que me consigam ajudar!! Quero saber como se faz a programação de uma calculadora no visualg,porém com algumas restrições! Vou tentar explicar da forma mais detalhada. A calculadora terá que ter três operações,multiplicação (*),divisão (/), e a raiz(R).só que essas operacoes so podem ser efectuados com soma e subtração (ou seja a programação só pode ser feita com soma e subtração)para poder calcular as 3 operações. Inicialmente quando a tela abrir,terá que abrir com uma moldura e dentro da moldura terá um quadro para escolher uma das 3 opções (operações). Depois de escolher a operação que deseja ,ira abrir uma tela secundaria a dizer o tipo de operação e a pedir os numeros que deseja introduzir. É um trabalho bem complexo,por favor se poderem ajudar serei muito grato.
  24. Muito bom dia amigos. por diversas vezes vim ao clube procurando uma resposta para meus problemas. mas dessa vez o bicho pegou kkkk, meu professor me passou esse desafio (valendo 1.0 na media) e não tenho a pratica necessária pra usar todos esses métodos juntos. não estou pedindo a resposta ! porém queria uma ajuda pra poder resolver isso e conseguir aquele 1 ponto que fará falta kkkkk. um grande abraço e agradeço desde já ótima semana a todos.
  25. Boa tarde! Tenho um aplicativo criado no VBA que é utilizado como banco de dados de um diretório de rede, o problema é que esse diretório muda de unidade em cada computador (ele é K:\ no computador x e W:\ no y e assim por diante) queria saber se há alguma forma dele identificar a unidade de rede ou se tem como chamar o arquivo sem especificar o caminho.

Sobre o Clube do Hardware

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

×