Ir ao conteúdo
  • Cadastre-se

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

  • 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

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
  • Eletrônicos
  • Outros
  • Clube do Hardware

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 131 registros

  1. Bom dia pessoal. Temos uma rede local, simples e necessito criar um arquivo . bat, ou fazer alguma configuração de rede, pois existem alguns arquivos que vêm do servidor e recentemente alteramos a senha dele, então toda vez que iniciamos as máquinas, elas nos solicitam nas pastas compartilhadas o login e senha do nosso servidor. Pensei em criar um arquivo . bat para executar essa tarefa todas vez que iniciarmos o windows. Pelo que já vim lendo em alguns fóruns, eu precisaria criar o .bat e no agendador de tarefas coloca-lo para executar automaticamente toda vez que iniciarmos o windows, ou estou errado? Alguém pode me ajudar, se for essa a solução, com o código para o .bat e se não, como eu poderia fazer? Desde já, obrigado.
  2. Dim i As Integer Dim Qtde As Integer Qtde = 915 i = 0 For i = 0 To Qtde 'numero do cartao Sheets("MPG").Select Cells(i + 2, 1).Select Selection.Copy Sheets("CARTOES2").Select Cells(32 * i + 12, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i End Sub Salve galera! Estou com um problema aqui que é o seguinte: Preciso copiar dados de uma aba para outra no excel. Como são 900 linhas, criei uma macro para isso. No entanto, quando os dados são copiados de uma célula simples para outra mesclada, dá um erro. O código para o caso problemático é o que está acima. O problema é que a célula da aba "CARTOES2" é mesclada e ele não aceita copiar. A opção que conheço é usar o Range, mas com essa função não consigo usar o for com i. Espero que tenham entendido o problema. Valeu galera!
  3. Tentei utilizar o seguinte script: Set WshShell = CreateObject("WScript.Shell") If Hour(Schedule) = "13:45" Then wShell.Run "C:\Users\Mike\Desktop\TesteJoy\Joy.bat", 0 End if Wscript.Quit
  4. Pessoal Tenho uma duvida a semanas, e não consigo montar o cód [try catch] Quando clico no botão para abrir o openfiledialog para selecionar o arquivo, mais quando fecho ele ele da um erro Que esta na imagem queria remover isso se eu fechar não parecer isso alguem pode me ajudar? VB
  5. Pessoal, Gostaria de ajuda para a seguinte situação: Criei uma rotina que abre 02 arquivos em diretórios específicos (todos dentro da raiz C:\), copia o conteúdo do arquivo de origem e depois cola no arquivo destino. O problema é que na hora em que instanciei as variáveis do tipo Workbook, a rotina só lê a primeira e executa somente a primeira, a segunda dá erro em tempo de execução 91. Alguém poderia me ajudar? Abaixo o exemplo do código criado. Grato pela atenção. Josenildo
  6. Estou montando uma planilha de controle, e tenho uma duvida, minha intenção é fazer com que eu encontre um valor em uma coluna na planilha PLAN1 e copie a linha com esse valor e cole ela na proxima planilha PLAN2 sem perder a formatação, cores da planilha PLAN2, selecionando a linha de começo da copia. Traduzindo , como faço para que o codigo vba leia coluna B e se determinado valor for encontrado ele copie a linha até uma certa coluna e cole ela na minha PLAN2 (sem perder a fomatção que está nela) na proxima celula vazia (sem sobrepor) começando pela que eu selecionar e continue procurando até não haver mais valores da coluna b que procuro?? Comecei a fazer mais parei por aqui. Sub Copiar_Linha() <> Dim i As Range For Each i In Range("B18:B40") If i.Value = 2 Then i.Select ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy Sheets("2019").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial End If Next i <> End Sub Alguem pode me ajudar por gentileza ? .
  7. Estou criando uma planilha que precisa de login para entrar na planilha, e dependendo do nivel do usuário ela só consegue acessar algumas abas, só que quando eu coloco os comandos aparece esse ERRO EM TEMPO DE EXECUÇÕA '424', o que devo fazer? Private Sub Bt_login_Click() Dim usuario, senha As String usuario = text_usuario.Text senha = Text_senha.Text If usuario = "FLAVIO" And senha = "123" Then Planilha1.Visible = False Planilha2.Visible = True Planilha3.Visible = False from_Login.Exit ElseIf usuario = “CARLOS” And senha = “1234” Then Planilha1.Visible = True Planilha2.Visible = True Planilha3.Visible = False ElseIf usuario = “ANA” And senha = “1234” Then Planilha3.Visible = True Planilha1.Visible = False Planilha2.Visible = False End If End Sub adicionado 3 minutos depois .hide* e mesmo assim não funciona
  8. bom dia a todos, venho humildemente pedir ajuda de vocês para a solução de um problema, sou estagiario e me ajudaria muito no trabalho. vou separar o que eu ja tenho e o que eu precisava. ** ja tenho ** *Tenho uma planilha de gerenciamento de projetos no formato de Gantt(estilo o PROJECT). *já tenho a macro para disparar email ( <body>). *há uma regra que indentifica o dia de hoje e marca a coluna correspondente com as bordas laterais de vermelho. *há uma regra onde insiro marcos (bandeirinhas) manualmente ao decorrer do prazo do projeto. *Cada linha representa um projeto de uma construtora diferente. **necessito** *macro para verificar se a celula esta com as bordas vermelhas , se sim verificar se há um marco (o marco aparece quando há o número 0, 1 ou 2) na célula, se sim disparar o email para a gerenciadora que se encontra na mesma linha e passar para a proxima linha. *obs: o dia de hoje não esta em uma coluna fixa, pois os gantt se movem com uma barra de rolagem. somente os nomes das gerenciadoras são fixos. agradecimento, o auxilio de vocês me ajudaria muito na efetivação do estagio!!!
  9. Bom dia, estou tentando criar uma macro para copiar uma planilha existente (Orçamento) e criar uma aba nova (ou copiar as celulas e colar na nova aba criada),onde o nome desta aba será o nome que estiver em uma célula Quero também que após criada a aba, crie uma linha nova em uma tabela e coloque o nome da nova aba (orç1, por exemplo) em outra planilha (Orç. em Andamento) e passe a ser um hiperlink para esta nova aba (orç1). Fiz varias macros mas estou sempre travando na parte do hiperlink, irei anexar o arquivo que estou mexendo aqui, para entender melhor são esses passos que quero seguir: Ao clicar no botão na planilha "Orçamento" quero que crie uma nova aba com o nome que eu colocar em uma celula na planilha Orçamento e depois gere uma linha nova na planilha Orçamento em Andamento com hiperlink dessa nova aba Modelo_Orçamento.xlsx
  10. alguém sabe como fazer uma forma ficar invisível/visível com o apertar de um atalho? por exemplo, no arquivo que eu anexei, como eu faço pra imagem do mario ficar invisível quando eu aperto por exemplo o F10 e depois ficar visível apertando o F10 de novo? usei o Microsoft Visual Basic 2010 Express teste.7z
  11. Olá pessoal! Sou totalmente leiga em VBA mas preciso automatizar a consolidação de algumas planilhas em uma só. O caso é: tenho cerca de 13 planilhas das quais preciso copiar as informações da aba "consolidado" e colar em uma única planilha, sendo que tanto as planilhas filhas quanto a planilha mãe (consolidada final) possuem a aba "consolidado" com um cabeçalho conforme modelo anexo e várias outras abas. As planilhas filhas tem que ser mantidas como originais, sem alterar os dados, ou seja, preciso somente copiar e colar valor a partir da célula B8 e respeitando o cabeçalho. Alguém pode me ajudar por favor? Vou utilizar esse arquivo no meu trabalho... Planilha mãe (consolidado).xlsx
  12. Prezados, boa tarde. Tenho pouco conhecimento e preciso de ajuda. Preciso programa essa macro para repetir de 30 em 30 minutos. Sobrepondo a informação anterior. Sub EXPORTAR_IMPORTAR() wb = "PARCIAL.xlsb" Application.ScreenUpdating = False Usuario = Environ("USERNAME") A = "C:\Users\" & Usuario & "\Desktop\MIS\Rep.txt" Base = Range("C1") Set acsApp = CreateObject("ACSUP.cvsApplication") Set acsSrv = acsApp.Servers.Item(1) For J = 2 To Application.WorksheetFunction.CountA(Workbooks(wb).Worksheets(Base).Range("H2:H95000")) With Workbooks(wb).Worksheets(Base) acsSrv.Reports.ACD = .Range("B3") b = acsSrv.Reports.CreateReport(acsSrv.Reports.Reports(.Range("B1")), Rep) Rep.SetProperty "VDNs", .Range("H" & J) Rep.SetProperty "Datas", .Range("B4") b = Rep.ExportData("C:\Users\" & Usuario & "\Desktop\MIS\Bases do Boletim\Historico de Volume\" & .Range("J" & J).Value & ".xls", 9, 0, 1, 1, 1) b = Rep.ExportData(A, 9, 0, 1, 1, 1) Rep.Quit With Workbooks(wb).Worksheets("TRATAR") .Range("A:AQ").ClearContents .Select With .QueryTables.Add(Connection:="TEXT;" & A, Destination:=Range("A1")) .Name = "rep" .Refresh BackgroundQuery:=False .Delete End With X = Application.WorksheetFunction.CountA(.Range("A4:A50")) + 3 If X = 3 Then GoTo Sair Y = Application.WorksheetFunction.CountA(Workbooks(wb).Worksheets("BASE").Range("F1:F65000")) + 1 Workbooks(wb).Worksheets("BASE").Range("F" & Y & ":F" & X - 4 + Y) = .Range("A4:A" & X).Value Workbooks(wb).Worksheets("BASE").Range("H" & Y & ":P" & X - 4 + Y) = .Range("B4:J" & X).Value Workbooks(wb).Worksheets("BASE").Range("D" & Y & ":E" & X - 4 + Y) = Workbooks(wb).Worksheets(Base).Range("J" & J & ":K" & J).Value End With End With Sair: Next J With Workbooks(wb).Worksheets("BASE") X = Application.WorksheetFunction.CountA(.Range("F2:F65000")) + 1 .Range("G2" & ":G" & X).Formula = "=SUM(RC[1]:RC[2])" .Range("G2" & ":G" & X) = .Range("G2" & ":G" & X).Value End With End Sub
  13. Estou tentando abrir um programa,porém da seguinte erro nesse arquivo e nao consigo achar solução...creio que programa seja em visual basic
  14. Tenho uma planilha que busca com Procv os dados de pedidos com base no numero de venda. Essa planilha é "geral", ou seja caem todos os transportadores. preciso de uma forma em que depois de eu bipar os pedidos na planilha "geral" ela replique os dados nas planilhas de cada transportador, separando assim cada envio em seu lugar correto. essa planilha é usada diariamente, e a alimentação manual consome muito tempo. se puderem ajudar agradeço muito! GERAL ENVIOS.xlsx
  15. Buscador de informações nas varias abas da mesma planilha Olá pessoal Estou precisando de uma mão , preciso criar um buscador de dados para agilizar meu trabalho tenh uma planilha de estoque que tem as seguintes abas: Cadastro/estoque - entradas - saidas o que eu estava pensado era o seguinte: nas abas entradas e saidas queria criar um formulario via vba que fizesse a seguinte função: buscar as informações de codigo , descrição e quantidade na aba cadastro/estoque e retornar um formulario com as informações e 2 botões um para inserir o que foi pesquisado e outro para pesquisar novamente , isso tanto para a aba entradas quanto para a aba saidas. Hoje eu faço o seguinte vou até a aba cadastro/estoque dou um pesquisar para encotrar o produto e depois de encontra-lo vou até a aba saida/entrada digito o codigo encontrado depois a quantidade para dar a entrada e saida do estoque .. este processo é meio demorado se houvesse um meio de colocar este pesquisa na aba entradas e saidas e a opção de ja inserir os resultados seria muito bom... Enfim.. não sei se consegui expressar minha dúvida se alguém puder ajudar ficarei muito grato.. Aguardo.
  16. Bom dia, estou precisando desesperadamente de uma ajuda. Meus conhecimentos em VBA são medianos e iniciei uma planilha e não dou conta de acabar!rs Se trata de uma banco de dados alimentado por uma programação onde eu tenho 3 referências de procura antes de alimentar os dados. Preciso que a programação procure o "nome" em seguida procure o "Produto" e seguida o dia, para depois transferir os dados. Em anexo a planilha já está formatada e o entendimento vai ser mais claro. Vai me servir como material de aprendizado pois estou muito empolgado com o VBA mas tem coisas que ainda não encontro na internet. Quem puder ajudar ficarei imensamente grato! Meu e-mail: disouzza@yahoo.com.br produtividade matriz.rar
  17. Saudações senhores, Preciso de ajuda para resolver uma questao , pesquisei no grupo e viu alguns macros para excel para copiar de pasta de trabalho para para outra fechada. Mas gostaria de copiar de uma pasta de fechada( Planilha da Linha A1:T6 - exemplo) , copiar para a planilha ativa. Grato
  18. preciso de ajuda eu só consegui fazer 2 partes ainda falta 2 e eu não sei como finalizar o restante do meu programa: Elaborar um algoritmo em Visualg, utilizando o conceito de matriz, para efetuar os seguintes cálculos numa matriz (3 x 3) que deverá ser lida pelo teclado. a) Determinante. b) Matriz Transposta. c) Matriz Inversa. d) Cofator da diagonal principal. algoritmo "semnome" // Função : // Autor : // Data : 10/12/2018 // Seção de Declarações var matriz: vetor[1..3, 1..3] de inteiro n, i, j, det, prod_dp, prod_ds: inteiro inicio n <- 3 para i de 1 ate n faca para j de 1 ate n faca escreva("Informe matriz[", i, ", ", j, "]: ") leia(matriz[i, j]) escreva(matriz[i,j]) fimpara //achar a determinante fimpara prod_dp <- 1 para i de 1 ate n faca prod_dp <- prod_dp * matriz[i, i] fimpara prod_ds <- 1 para i de 1 ate n faca prod_ds <- prod_ds * matriz[i, n - i + 1] fimpara det <- prod_dp - prod_ds escreval("---DETERMINANTE--- ") escreval(det) //diagonal principal para i de 1 ate 3 faca para j de 1 ate 3 faca fimpara escreval("") fimpara escreval("---A DIAGONAL PRINCIPAL--") escreval(matriz[1,1], "" ,matriz[2,2],"",matriz[3,3]) fimalgoritmo
  19. Boa noite! Sou iniciante e gostaria de uma ajuda... Eu gravei a seguinte macro: Sub teste() ' ' teste Macro ' ' Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("212").Select Range("A1").Select ActiveSheet.Paste Sheets("Comb18nº").Select Range("T1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='212'!RC[18]" Range("T1").Select ActiveCell.FormulaR1C1 = "='212'!RC38" Range("T1").Select Selection.AutoFill Destination:=Range("T1:AL1"), Type:=xlFillDefault Range("T1:AL1").Select Range("U1").Select ActiveCell.FormulaR1C1 = "='212'!R[1]C38" Range("V1").Select ActiveCell.FormulaR1C1 = "='212'!R[2]C38" Range("W1").Select ActiveCell.FormulaR1C1 = "='212'!R[3]C38" Range("X1").Select ActiveCell.FormulaR1C1 = "='212'!R[4]C38" Range("Y1").Select ActiveCell.FormulaR1C1 = "='212'!R[5]C38" Range("Z1").Select ActiveCell.FormulaR1C1 = "='212'!R[6]C38" Range("AA1").Select ActiveCell.FormulaR1C1 = "='212'!R[7]C38" Range("AB1").Select ActiveCell.FormulaR1C1 = "='212'!R[8]C38" Range("AC1").Select ActiveCell.FormulaR1C1 = "='212'!R[9]C38" Range("AD1").Select ActiveCell.FormulaR1C1 = "='212'!R[10]C38" Range("AE1").Select ActiveCell.FormulaR1C1 = "='212'!R[11]C38" Range("AF1").Select ActiveCell.FormulaR1C1 = "='212'!R[12]C38" Range("AG1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AH1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AI1").Select ActiveCell.FormulaR1C1 = "='212'!R[14]C38" Range("AJ1").Select ActiveCell.FormulaR1C1 = "='212'!R[15]C38" Range("AK1").Select ActiveCell.FormulaR1C1 = "='212'!R[16]C38" Range("AL1").Select ActiveCell.FormulaR1C1 = "='212'!R[17]C38" Range("AM1").Select End Sub Qual comando eu uso dentro dessa macro para ele continuar verificando as demais linhas? Vamos lá, eu copiei "A1:R1" de uma planilha e colei em outra planilha, com isso ele jerou uns resultados e retornou para a planilha de onde copiei. Agora, eu queria que isso continuasse automaticamente para "A2:R2", "A3:R3" em diante, ou seja, quando eu apertar o botão que criei para a macro ele vá automáticamente até a ultima linha que é "A480700:R480700".
  20. Olá Preciso de uma planilha que calcule a distância entre lugares, pelo CEP ou cidade. Alguém pode me ajudar?<>
  21. Boa noite gurizada, Eu comecei a aprender um pouco de VBA, e estou com um pouco de dificuldade para entender essas funções Preciso de fazer o seguinte, se a celula que eu to digitando não for menor que hoje, não for "DECLINADO" e não for "ADP CANCELADA", faça x, se for um dos 3, não faça y O problema é que quando utilizo desta forma, não consigo inserir "DECLINADO" e "ADP CANCELADA" nas celulas, para data funciona, o que está de errado, seria a formula detectando que o valor é maior que a data? Como contornar este erro? If Not Intersect(Target, Me.Range("M5:N1048576")) Is Nothing Then For Each cell In Target If Not cell < Now() Or cell = "DECLINADO" Or cell = "ADP CANCELADA" Then MsgBox "O valor" & cell.Value & " não pode ser uma data maior que a de hoje, ou então, deve ser DECLINADO ou ADP CANCELADA." Application.Undo End If If Not cell = "" Then If cell < ActiveCell.Offset(0, -1) Then MsgBox "A data " & cell.Value & " não pode ser menor que a abertura da ADP." Application.Undo Exit Sub End If End If Next End If Abraço galera, agradeço pela intenção!
  22. Olá Preciso de uma planilha que calcule a distância entre lugares, pelo CEP ou cidade. Alguém pode me ajudar?
  23. Boa tarde Peço ajuda para o seguinte: - Como escrever invisível, num inputbox Segue o código Dim senha As String Sheets("main").Select senha = InputBox("Digite a Password, de Administração") If senha = "tiparque2018" Then MsgBox "Password correta... Bem vindo ao Menu de Administração" Run "mostrarfolhas" Sheets("menuadmin").Select Else Run "mensagemtempoencerrar" ThisWorkbook.Save Application.Quit End If ' End Sub que tenho Obrigado
  24. Então pessoal, me colocaram pra fazer um programinha rápido em vb6 para adicionar e editar usuários em uma tabela sql, eu já fiz toda a parte de adicionar, porém to com um ultimo problema na hora de atualizar, existem 2 forms, um você insere o ID do usuário, e caso esse campo esteja preenchido, quando você abre o outro form, ele já abre com as informações do usuário que você digitiou o ID anteriormente, porém eu não estou conseguindo editar as combobox, pois eu queria que a informação como ativo ou cancelado já aparecesse selecionada na combobox com base no que esta na tabela sql,porém na tabela nós subimos os .itemdata do item que foi selecionado na hora de criar o usuário, enfim, tem como eu deixar selecionado no combobox um item puxando o seu valor da tabela sql?porque eu sei como dar o select no codigo que corresponde a esse item, mas não sei como deixar ele selecionado assim que carregar o form
  25. Boa tarde amigos, preciso de uma ajuda Sou novata no uso de VBA Estou montando um userform com dados que serão utilizados para fazer etiquetas e esses mesmos dados serão repassados para uma planilha de controle. Tenho os dados necessários para completar o userform. A minha dúvida esté em como fazer os dados do userform virarem etiquetas e como fazer com que as etiquetas sejam impressas em uma quantidade que estarei colocando no userfor. Segue em anexo o modelo do que ja fiz. Etiquetas 05-11 enviar.rar

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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!