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
    • Mac OS
  • 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 e sugestões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 35 registros

  1. Olá pessoa boa tarde, Gostaria de uma ajuda no seguinte código, para Atingir Meta no Excel. Assim ele atualizará a Coluna H para 0 e achara o valor da coluna F. O código é o seguinte que estou tentando realizar: ------------------------------------------------------------------------------------------------------- Sub META() ' ' META Macro ' ' Atalho do teclado: Ctrl+Shift+X ' Application.CutCopyMode = False Application.CutCopyMode = False Range("H208").GoalSeek Goal:=0, ChangingCell:=Range("F208") End Sub ------------------------------------------------------------------------------------------------------- Este código dá certo somente para a Linha 208, como faço para realizar dá linha (208 até 987) nas mesmas colunas!!! Obrigado.
  2. Ao executar o script em .vbs ele não consegue encontrar e executar o arquivo especificado mas já tentei de tudo e não consigo resolver. A única solução que encontrei foi colocar o arquivo a ser executado pelo script em outras pastas mas eu quero deixar nessa =/
  3. Bom dia pessoal! Estou necessitando de um "comando" no VBA que me possibilite trazer as propriedades da imagem (aquelas que aparecem quando apertamos com o botão direito do mouse sob a imagem, selecionamos "propriedades" e selecionamos a aba "detalhes". Razão da minha necessidade: Tenho diversas fotografias georreferenciadas e preciso importar todas as fotos, descrições e coordenadas geográficas delas para uma planilha que criei no excel. Já estou conseguindo importar as fotos através da localização do seu diretório, porém não consigo "extrair" estas informações de coordenadas geográficas delas, estou tendo que inserir isso na planilha manualmente, o que é muito trabalhoso, visto que possuo mais de 10mil fotografias. Agradeço a ajuda.
  4. Bom dia a todos... Estou realizando uma progração de uma macro que necessito no Excel com caixa de alerta na entrada da planilha. O que acontece é que, necessito, quando chegar a data de retorno ao meu cliente, o excel, via Caixa de Alerta, ou seja, ao abrir a planilha, me mostre os clientes daquele dia que devo entrar em contato. Meu excel é o 2017, português. Segue o código: Private Sub Workbook_Open() Plan1!("Contas").Select If Worksheets.CountIf(Columns(E), System.Date) = 0 Then MsgBox "Atenção!! Ligar para este cliente hoje." End If End Sub Mais observações: Necessito que o código compare a data do sistema com a data de retorno e me informe os clientes que necessito entrar em contato. As colunas de retorno são 3: Data 1, Data 2 e Data 3. No excel são as colunas E, F e G respectivamente. Obrigado desde já pessoal.
  5. Boa tarde, Minha duvida é bem simples só to acostumado com outras linguagens e ainda to boiando sobre a passagem de parâmetros. A situação é a seguinte: Tenho um useforme com várias textbox que puxam o valor de uma planilha e criam um formulário de preenchimento. Como são muitas textbox e tenho que programar em uma por uma o caminho da célula que ela vai buscar a informação eu resolvi criar uma função e mudar somente as variáveis pra que eu ganhasse tempo ao invés de ter que escrever dentro de uma por uma, daí a dúvida: Como passo os parâmetros C(coluna) e L(linha) para dentro da função TextBox_Exit? A dúvida é boba, mas já apanhei muito hoje. Obrigado Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean, ByVal C As Double, ByVal L As Double) If Worksheets("PILOTO CCK ").Cells(L, C) > Worksheets("PILOTO CCK ").Cells(L, C + 2) Or Worksheets("PILOTO CCK ").Cells(L, C) < Worksheets("PILOTO CCK ").Cells(L, C + 3) Then MsgBox ("Teste!") End If End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim C As Double Dim L As Double C = 4 L = 9 Call TextBox_Exit(Cancel, Me.TextBox1, C, L) End Sub
  6. Bom Dia, venho aqui para pedir ajuda, tenho uma planilha no Excel Inicio para adicionar dados nela o nome, notas e as faltas de uma aluno a outra planilha se chama Boletim, basicamente tenho que gravar uma macro e ir colando os valores da planilha inicio para a planilha Boletim, mas tem fórmulas na planilha Boletim na média e no resultado final, eu preciso de ajuda para acumular os valores, por exemplo na planilha Inicio eu coloco vários cadastros de alunos, e na outra planilha vai acumulando os alunos um embaixo do outro. Já tentei inserir uma linha durante a gravação da macro mas não consigo. a linha é 5(colocar os dados nessa linha, porém pular a linha durante a gravação da macro), 6 e 7. Mas tem algo de errado pois não consigo acumular os dados.
  7. Visual Basic botão de comando editar vba

    Alguém poderia me dar uma mãozinha com esse código para editar planilha, eu já revirei a internet tentando" Planilha7.Activate 'percorre dados da planilha Do While ActiveCell.Value <> "" If ActiveCell.Value = textcodforn Then ActiveCell.Value = textcodforn.Value ActiveCell.Offset(0, 2).Value = textcnpjfor.Value ActiveCell.Offset(0, 3).Value = textrazaosocialfor.Value ActiveCell.Offset(0, 4).Value = textendfor.Value ActiveCell.Offset(0, 5).Value = textnfor.Value ActiveCell.Offset(0, 6).Value = textcomplementofor.Value ActiveCell.Offset(0, 7).Value = textbairrofor.Value ActiveCell.Offset(0, 8).Value = textcidadefor.Value ActiveCell.Offset(0, 9).Value = cbuffor.Value ActiveCell.Offset(0, 10).Value = textcontatofor.Value ActiveCell.Offset(0, 11).Value = texttelefonefor.Value ActiveCell.Offset(0, 12).Value = textcelularfor.Value End If ActiveCell.Offset(1, 0).Select Loop MsgBox "Dados alterados com sucesso!", vbInformation, "São Geraldo 1.0" textcodforn = "" textcnpjfor = "" textrazaosocialfor = "" textendfor = "" textnfor = "" textcomplementofor = "" textbairrofor = "" textcidadefor = "" cbuffor = "" textcontatofor = "" texttelefonefor = "" textcelularfor = "" cblocalizarforn = "" End Sub
  8. Visual Basic Gerador de Senha em VBA

    Pessoal, bom dia. Preciso de uma ajuda no VBA e não sei se é este o canal. Quero criar um gerador de senhas aleatórias que não houvesse repetição em que o o usuário tivesse a opção de escolher qualquer tamanho e aceitasse as combinações: letra, número e caráter especial / letra e número / letra e carácter especial / número e carácter especial e colocasse em qual intervalo de células ele iria preencher na planilha. Eu vi este está função. Quais modificações poderiam ser feitas para a solicitação acima? Estou enviando também o layout de como seria o projeto e como chamar a função dentro deste form. Function CriarSenha() On Error GoTo TratarError Dim TamanhoSenha As Byte, Senha As String Dim LetraMaiuscula As String, letraMinuscula As String, CaracterEspecial As String Dim Numero As Byte Dim opcao As Byte, opcaoletra As Byte, opcaoletranumero As Byte, opcaoletracarater As Byte, opcaonumerocarater As Byte Senha = "" TamanhoSenha = 6 Randomize Do While Len(Senha) < TamanhoSenha LetraMaiuscula = Chr(Int((65 - 90 + 1) * Rnd + 90)) letraMinuscula = Chr(Int((97 - 122 + 1) * Rnd + 122)) CaracterEspecial = Chr(Int((33 - 47 + 1) * Rnd + 47)) Numero = Chr(Int((48 - 57 + 1) * Rnd + 57)) opcao = Int((2 * Rnd)) opcaoletra = Int((2 * Rnd)) Senha = Senha & IIf(opcao = 1, IIf(opcaoletra = 1, letraMinuscula, LetraMaiuscula), Numero) Loop CriarSenha = Senha SairFunction: Exit Function TratarError: InformarErro Resume SairFunction End Function Mais uma pergunta. Se ao invés de criar um form para isso utilizasse a própria planilha? O usuário escolheria quais intervalos (células) ele solicitaria que você preenchido com as senhas. Coloquei o layout de como seria isso se fosse na própria planilha.
  9. Boa tarde a todos, Estou com dificuldades com macros no excel, tenho uma planilha ao qual é referente a orçamentos de itens, terei um item com nome do produto orçado em uma aba, logo abaixo na coluna B terá os códigos de cada item, na coluna ao lado o nome do item desse código e na outro coluna do lado a quantidade deste item, assim terei uma lista de talvez 10 itens que compõe o produto, isto estou inserindo com VBA, quando preciso lançar outro item faço o mesmo processo e este é lançado a baixo do produto ja lançado, minha dificuldade é a seguinte, enquanto estou lançando os itens no VBA, sempre tenho alguns itens específicos que preciso lança-los repetidas vezes só que com valores diferentes, pois estes sao copiados automaticamente para outra aba, mas na aba principalmente onde mostra o orçamento dos produtos nao se pode repetir o mesmo item dentro de um produto, logo ele precisa ser lançado uma vez e somado, Exemplo, o produto A ja esta lançado com seus itens, o produto B em vermelho, lancei como mostrado mas esta repetindo o item 1, esta errado, em verde o Produto B esta correto, somei o item 1 e deletei a repetição. Porém preciso fazer isto manualmente, sei que existe maneira de usar do proprio excel, porém preciso de uma macro para fazer isto quando finalizo um VBA que lança os itens de cada produto. Produto A item 1 / item especifico do tipo 1 / 5x item 2 / item especifico do tipo 2 / 1x item 3 / item especifico do tipo 3 / 6x Produto B (ultimo produto lançado, esta repetido, ou seja, errado) item 1 / item especifico do tipo 1 / 5x item 1 / item especifico do tipo 1 / 1x item 5 / item especifico do tipo 5 / 6x Produto B (ultimo produto lançado, esta correto, somou o item 1 e deletou o repetido) item 1 / item especifico do tipo 1 / 6x item 5 / item especifico do tipo 5 / 6x Obrigado a todos!
  10. Buenas galera. Não sou muito da área da programação... Ou melhor, sou mais da parte que chuta, não da que xinga. Ehehehe Então venho aqui pedir ajuda a vocês, ó escovadores de bits, que com alguns minutinhos de vosso conhecimento podem tornar o cara aqui mais feliz! A proposta, pra quem manja, acredito ser fácil. Portanto, se alguém tiver aí de bobs, e poder me ajudar, ficarei imensamente grato. Preciso de uma macro para Outlook (2016), que quando eu execute ela, ela varra tordas minhas subpastas, movendo todos os emails com mais de 1 mês de "idade", para pastas "espelhadas", em um arquivo físico na máquina. Ou seja.. meu arranjo atual, é a Mailbox principal e 11 subpastas dentro dela. Todas conectadas através de exchange. Existe também, a mesma estrutura, porém, em um arquivo físico (uma pasta de dados). Atualmente, mês a mês, eu movo todos os emails do mês anterior, de forma manual, subpasta por subpasta. Eu queria apenas uma forma de automatizar isso. Sei que é possível. Enfim, será que alguém pode me ajudar??? Abraço!
  11. Visual Basic codigo vba para excel

    Estou tentando combinar linhas do excel com código VBA, mas não estou conseguindo. Algum expert em excel e Visual Basic poderia me dar uma grandiosa ajuda? Já possuo um código, porém, agora preciso de ajustá-lo para outra combinação. Como sou muito leigo em códigos VBA, não estou conseguindo ajustá-lo, Anexei aqui uma planilha com as orientações e o modelo código. Ficaria muitíssimo agradecido a presteza de algum expert. COMBINA.zip
  12. Visual Basic Popup de alerta no excel

    Boa noite! Peço desculpas caso tenha postado na seção errada, não encontrei algo que se encaixasse melhor com o meu pedido além dessa categoria. Tenho uma planilha no excel com algumas formulas simples, somas e porcentagens. Em uma das abas faço uma lista de agendamento com data e horário. Gostaria de saber se há alguma forma de saltar um popup na tela quando der o horário dessas células, como um alarme, sem som, apenas um popup de alerta mesmo. Possuo conhecimento zero em relação à programação, meu conhecimento limita-se a fórmulas e ao que pode ser feito dentro do excel. Um detalhe, uso a planilha em um pc corporativo, acredito que não terei privilégios para instalar alguma macro externa ou software. Grato desde já.
  13. Bom dia Pessoal Estou com uma dúvida, para muitos pode ser fácil para outros como eu ta um pouco complicado, tenho uma planilha em excel contendo várias informações, porém nesta lista mais especificadamente a partir da colula D2 eu gostaria de um código que copie e cole no corpo do e-mail em forma de tabela onde o código está em negrito, atualmente eu tenho um código (abaixo) onde ele joga as informações no corpo do e-mail porém não em formato de tabela Sub MandaEmail() Dim EnviarPara As String Dim texto As String Dim Copia As String For i = 2 To 2 EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1) If EnviarPara <> "" Then Copia = ThisWorkbook.Sheets(1).Cells(i, 2) texto = "Prezado(a)<b> " & ThisWorkbook.Sheets(1).Cells(i, 3) & " </b>informamos que,<br><br>" & "Até a presente data constatamos como pendente a entrega do seu Espelho de Ponto juntamente com a Papeleta referente aos períodos abaixo:<br><br>" & _ "<b>Pendências;</b><br><br>" & ThisWorkbook.Sheets(1).Cells(i, 4) & "<br><br>Sendo assim, pedimos a gentileza de regularizar sua situação até" & ThisWorkbook.Sheets(1).Cells(i, 5) & ".<br><br>" & _ "A Papeleta e o Espelho de Ponto devem estar assinados pelo funcionário e gestor e devem ser entregues impressas no DP local. <br>" & _ "Quem está em outra localidade deve enviar através de malote.<br><br>" & _ "<b>Caso já tenham sido entregues os documentos mencionados acima, favor confirmar diretamente no DP local.</b><br><br>" & _ "Lembrando que o não cumprimento do processo caracteriza ato de indisciplina, passível de advertência e/ou suspensão.<br><br>" & _ "Em caso de dúvidas, estamos à disposição.<br><br>" & _ "Atenciosamente.<br><br>" & _ "<b>Célula de controle de frequência</br>" Envia_Emails EnviarPara, Copia, texto End If Next i End Sub Sub Envia_Emails(EnviarPara As String, Copia As String, html As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .SentOnBehalfOfName = "meuemail@email.com" .ReplyRecipientNames = "meuemail@email.com" .To = EnviarPara .CC = Copia .BCC = "" .Subject = "Pendencia entrega Cartão Ponto - URGENTE" .HTMLBody = html .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub No anexo "email 1" é o e-mail como está ficando agora, e no anexo "email 2" é como eu gostaria que ficasse Toda ajuda é bem vinda Obrigado Gabriel Piruk
  14. Boa tarde, pessoal Estou com um pequeno desafio no meu código, gostaria de saber se alguém pode me ajudar. Tenho uma situação em que no Formulário 01 são selecionados diversos itens para um lançamento de dados. Esses itens são armazenados em variáveis (PROD1, PROD2, PROD3) A dificuldade que tenho é saber se consigo atualizar o nome da variável (e seu resultado) conforme outra variável. No exemplo a seguir, o modelo que tentei e outras diversas variações não funcionaram. Seria fácil resolver com um IF, mas no meu projeto o número de vezes em que a variável vai mudar de nome é imprevisível e alto e não ficaria interessante nem possível fazer tantos IFs. Segue o código base: Option Explicit Public PROD1, PROD2, PROD3 as String Public CICLO as Integer FORM 01 Private Sub Carregar_Dados() If ckprod1.value = true and PROD1.value <> Empty then MsgBox "Selecione o Produto1!" Elseif ckprod2.value = true and PROD2.value <> Empty then MsgBox "Selecione o Produto2!" Elseif ckprod3.value = true and PROD3.value <> Empty then MsgBox "Selecione o Produto3!" End if PROD1 = txtprod1.value PROD2 = txtprod2.value PROD3 = txtprod3.value If PROD1.value <> Empty then CICLO = 1 Elseif PROD2.value <> Empty then CICLO = 2 Elseif PROD3.value <> Empty then CICLO = 3 End if End Sub FORM 02 Private Sub Carregar_Dados() Dim L As Integer Dim LINHA As Long 'Procurar a primeira célula vazia Worksheets("Lançamentos").Range("A1").Select Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True LINHA = ActiveCell.Row 'Atribui um valor à variável For L = 1 To CICLO PRODUTO = "PROD" & L 'Carregar os dados digitados nas caixas de texto para a planilha ActiveCell.Offset((LINHA + L), 0).Value = VBA.Format(txtdata.Value, "mm/dd/yyyy") ActiveCell.Offset((LINHA + L), 1).Value = txtnumerodanota.Value ActiveCell.Offset((LINHA + L), 2).Value = PRODUTO Next L End Sub
  15. Visual Basic como abrir um arquivo .do

    Alguém sabe que programa arquivo com formato .do????? preciso imprimir esse arquivo, porém não consigo nem abri-lo.
  16. Olá, boa tarde. Primeiramente,sou novo por aqui. Se estiver quebrando regras do grupo, perdao. Estou criando um filtro avançado em um textbox para facilitar o filtro de dados no excel. Em uma coluna, meus valores estão com formato contabil, quando digito um numero a ser filtrado o excel nao reconhece. Tentativa 1: Os numero da planilha em formato contabil nao sao reconhecidos Private Sub TextBox11_Change() Selection.AutoFilter Field:=3, Criteria1:=CStr("*" + TextBox11.Text + "*") End Sub Tentativa 2: Private Sub Chave_Change() If Chave.Text <> "" Then Selection.AutoFilter Field:=1, Criteria1:="=" & Chave.Text Else Selection.AutoFilter Field:=1 End If End Sub Tentei usar o codigo Chave.Format = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" Mas nao funcionou Alguma sugestão?
  17. Boa tarde Gostaria de saber se alguém sabe como posso através de uma Macro na pasta de trabalho01 colocar senha no VBAProject de outra pasta de Trabalho02 do excel. Até cheguei no código abaixo porém não conseguir ir alem. Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute Atenciosamente
  18. Visual Basic Identificar nome de uma tabela

    Boa tarde, Tenho duas dúvidas que talvez vocês consigam me ajudar. A primeira é como faço para identificar o nome de uma tabela presente na planilha via código vba. Ex.: A aba contem uma tabela, como identificar o nome dela via código? A segunda questão é de como eu faço para converter essa tabela em um intervalo de células normal (via vba). Espero que possam me ajudar.. Obrigado galera.
  19. Preciso incluir no módulo VBA, um código para que nos casos onde apareça a palavra área, que o conteúdo de toda a célula seja copiado para a coluna D, na mesma linha. Isso é porque há todo um tratamento do relatório e esta é uma das etapas.
  20. Gente, boa tarde! Alguém teria o código que verificar se alguma linha está selecionada no Listbox VBA Excel? Seria assim: Tenho um Listbox preenchido, quando clico 2x ele captura a linha selecionada e salva em determinado lugar da planilha. Essa parte já está certa. Agora, quero adicionar um botão para que, quando eu clique uma vez no listbox e depois clique no botão, faça a mesma função - capturar a linha selecionada e salvar em um determinado lugar da planilha. Resumindo: o que eu quero é: 1 - testar se o listbox está selecionado (se não estiver, ele exibe mensagem e sai da rotina); Só isso mesmo. O restante já fiz tudinho. Quem puder me ajudar, agradeço desde agora!!!
  21. Boa tarde Pessoal, depois de muitos anos afastado das programações, o destino me devolveu as macros e VBA. Preciso fazer uma macro que abra diversos arquivos (Print 2) em uma única pasta, copie determinadas colunas em um layout (as colunas do layout e as colunas dos arquivos tem o mesmo nome, porém nem todas precisarei) e vá montando como se fosse um consolidado de todas as informações desses arquivos. Já vi diversos códigos que fazem em partes os procedimentos que eu precisaria, porém não consigo visualizar como o VBA vai ler uma coluna no meu Layout (Print 3), verificar as colunas com o mesmo nome nos arquivos (Print 1) e copiar as informações de volta para o Layout (Print 3). Me dêem um holofote, por favor. Obrigado, Bruno
  22. Visual Basic Conversão Dados Excel para .txt

    Boa tarde Prezados, alguém poderia me orientar por favor. tenho uma planilha em excel, com 30 colunas e 250 linhas. Preciso passar essa planilha para formato txt, porém preciso que o txt fique no formato aceito para importação no sistema que utilizo na empresa. Já tentei de varias formas e não consigo. Preciso que fique 100% identico ao layout do txt que sistema importa. um caractere fora, já não aceita. Segue excel e modelo exportado do sistema que é aceito para importação! Att.
  23. Visual Basic Unificação de Código VBA

    Olá pessoal, boa tarde Não tenho conhecimento da linguagem necessária para programação em VBA, porém, vasculhando a internet, consegui um código que atendeu muito bem as minhas necessidades. Quero realizar a limpeza de uma planilha especifica, utilizando macro. Para isso, utilizo os códigos abaixo, porém, preciso criar um botão para cada critério de exclusão. Desta forma, gostaria de analisar com vocês, se é possível unificar os comandos em um único botão. Código mestre: Function DeleteRowsByCriteria(ByVal firstRow As Integer, ByVal lastRow As Integer, ByVal criteriaColumn As Integer, ByVal criteria As String) As Integer Dim deletedRows As Integer Dim I As Integer deletedRows = 0 With ActiveSheet I = firstRow While I < lastRow If CStr(.Cells(I, criteriaColumn).Value) = criteria Then .Rows(I).Delete deletedRows = deletedRows + 1 Else I = I + 1 End If Wend End With DeleteRowsByCriteria = deletedRows End Function Critério de exclusão através de todas as linhas que possuem a string "Historico das U" na coluna 5 Sub dasU() MsgBox DeleteRowsByCriteria(1, 30000, 5, "Historico das U") & " rows has been deleted" End Sub Critério de exclusão através de todas as linhas que possuem a string "Item" na coluna 1 Sub Cabecalho() MsgBox DeleteRowsByCriteria(1, 30000, 1, "Item") & " rows has been deleted" End Sub E assim em diante. Atualmente, possuo 9 comandos de exclusão. Além de um comando especifico para remoção de linhas em vazias e outro para caractere coringa " * ". Conto com a ajuda de vocês, muito obrigado!
  24. Estou fazendo um recibo pelo excel, e pretendo facilitar as coisas kk, como por exemplo fazer um programa dentro do próprio excel para ser mais eficiente, pois no meu local de trabalho é muito movimentado. Queria um código que ao pesquisar o número do recibo gerasse as informações pedidas... Grato!
  25. Bom dia. Preciso de uma ajuda em um quis que montei no Visual Basic. Quero mostrar quais perguntas estão sendo mais erradas. A partir disso vou criar um gráfico. Mas minha dúvida é na construção do código para contabilizar as perguntas. Alguém pode me ajudar?

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

×