Pesquisar na Comunidade

Galera, criei uma função com uma serie de cálculos em c++ e precisava usar essa função no excel. Já dei uma olhada e criei uma dll com esta função, porem me deparo com vários erros tanto para registrar a dll no sistema quanto para registrar no excel. Precisava que alguém me orientasse no que exatamente tenho que fazer, e se o caso for usar mesmo uma dll, como devo implementa-la. SO: Windows 7 64x IDE: Code Blocks Desde já, grato.

Boa noite! Estava a tentar desenvolver uma lógica para cadastrar produtos em um formulário no excel, mas acabei por me "perder" nas tentativas. Tenho raso conhecimento em VBA, por isso não sei por onde começar. Esse formulário é anexado fisicamente ao produto e gostaria de saber como faço para que: 1. O usuário faça o registro desse produto, salvando as informações; 2. Seja possível realizar uma pesquisa para que ele pudesse consultar ou reimprimir determinado formulário de acordo com a data ou o número da peça; 3. Se haveria como construir uma listbox de produtos cadastrados por data; Dada a minha rasa "experiência" essa planilha tem me deixado louco! Obrigado!

Preciso importar vários arquivos de excel para o access usando o vba, sou novo na ferramenta e não sei como programar. Já consultei vários foruns e todas as soluções que tento dão problema alguém pode me ajudar? preciso que vários arquivos de diversos meses sejam colocados dentro de uma tabela que se chama "consolidada" dentro de um banco de dados chamado "rec.accdb". Gostaria de uma macro que pudesse puxar todos os arquivos. eles tem a mesma estrutura e campos.

olá, com muitas pesquisas consegui criar uma planilha que tem um formulário que gera um arquivo pdf com o nome de acordo com o valor de uma celula e outras coisinhas, um dos problemas é que na hora de gerar o arquivo, se o arquivo já existe com esse nome ele é substituido, gostaria que fosse possivel adicionar uma numeração tipo (2).pdf se o arquivo existir. Sub salvar() ' ' salvar Macro ' Dim nome As String nome = "C:\Users\Jean\Desktop\exames pdf\" & Range("E5") & " - " & Range("k7") & ".pdf" ' Sheets("Exame").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _ , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Sheets("PREENCHER").Select Range("E5:G5").Select End Sub o outro problema é que eu consegui fazer a maioria das coisas gravando macros, e como o formulário está em uma aba, e o modelo a ser preenchido está em outra, quando roda o macro a tela fica piscando porque para o codigo funcionar precisa ficar alternando entre as abas, gostaria de saber se é possível rodar a macro na aba 2 sem precisar de sair da aba onde está o formulário. Sub ocultar() ' ' ocultar Macro ' ' Sheets("Exame").Select Range("A34:O42").Select Selection.EntireRow.Hidden = True Sheets("PREENCHER").Select Range("C25:C31").Select With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = -4.99893185216834E-02 End With Range("F25,F27,F29,F31").Select Range("F31").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -4.99893185216834E-02 .PatternTintAndShade = 0 End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select Selection.ShapeRange.ZOrder msoBringToFront Range("E5:G5").Select End Sub fiquem À vontade para sugerir qualquer mudança, com muito esforço a planilha está ficando com um resultado bem legal. vou deixala em anexo. obrigado. https://drive.google.com/file/d/0BynkAckdgWiOTXI1V0VkQndobk0/view?usp=sharing Preencher Hemograma.xlsm

Bom dia a todos, tenho que gerar um grafico no VBA a partir de um banco de dados que criei via macro, porém nuna sequer gerei grafico pelo excel, muito menos via VBA. Portanto, se alguém puder me ajudar, seria muito grato, pois provavelmente terei que gerar gráficos varias vezes e utilizaria como base tudo que me for passado aqui. Então vamos ao que preciso: - Gerar um grafico na Aba "Grafico" via VBA sempre que rodar a macro puxando os dados da planilha "BD" ou seja, do banco de Dados. - Dados que devem conter no gráfico: Número total de pedidos: Não pode haver pedidos repetidos, portanto teria que existir uma condição no VBA que caso o número de pedido fosse repetido, não seja computado no Gráfico, apenas um número de pedido, nunca repetidos. % Dos pedidos em dia, em atraso e em Risco: Esses dados estão na última coluna do banco de dados, na aba Status. Obs: A porcentagem é baseada no número total de pedidos, mas alem da porcentagem seria interessante em cada coluna do grafico ter o número total de pedidos em dia, atraso e em Risco. Se algum de vocês puder me ajudar galera, não sei nem como gratifica-los. Pois estou completamente perdido! Desde já, muito Obrigado!

Bom dia galera! Estou quebrando a cabeça para resolver um problema na macro da minha planilha. De tantos testes que fiz acabei encontrando o causador do problema, porém não consigo simplesmente remover ele pois tenho necessidade do comando. Toda vez que atualizo o combobox a macro faz alguns procedimentos. Faz uma tratativa para o combobox para limpar as informações do range que a macro usa para colar algumas informações. Nos próximos passos a macro atualiza a tabela dinâmica e filtra o nome do funcionário selecionado no combobox. O problema acontece nesse ponto, quando a macro roda automaticamente ela para exatamente no procedimento de filtrar o funcionário na tabela dinâmica e apresenta o erro do titulo. Quando fazemos a depuração esse problema incrivelmente não acontece. O que percebi é que quando eu tiro o procedimento de atualizar a tabela dinâmica e erro é solucionado. Alguém consegue me ajudar com esse problema? Estou postando o link da planilha para caso queiram analisar como funciona a planilha. https://drive.google.com/open?id=0B1gYkyuM4rjvYWYyRFNvQzN4eWM Desde já agradeço a atenção de todos David Consoli

Bom Dia A todos, Deixa eu tentar explicar como funciona minha planilha. Segue Imagens. Como faço para que ao INSERIR REGISTRO de uma PLACA que não tem no RELATORIO ele crie. Porém, que ele crie somente quando for adicionado um 2 valor na mesma placa, assim prova ser real a existencia dela. Espero ter deixado claro...rss Obrigado

Galera preciso de um código que some todos os valores dentro de 3 colunas (Destacadas de amarelo) na Plan1 e após feito isso o código irá para uma segunda aba ( Plan 2) e somara os valores de uma coluna (destacada de amarelo). Após a soma dos valores de ambas abas o código deve verificar se O VALOR TOTAL da soma dos valores das 3 colunas (plan1) é igual o valor total da soma da coluna (Plan1). Segue print das colunas das duas Planilhas. Se alguém puder ajudar!! c

Ola pessoal gostaria de uma ajudar do fazendo um programar em visual basic no Excel gostaria de uma ajudar quero fazer meu programa com o mesmo modelo de uma planilha ao preencher a planilha e salva salva em uma pasta mais quero preencher essa planinha e d novo salva na mesma pasta mais de forma automática e q não exclua o primeiro q salvei ou seja toda fez q eu clicar no botao salva ele salve nessa pasta sem excluir os outro q salvei pois quero salva todo dia uma não sei se vocês entende o que quero dizer mim ajuda ai.

Boa tarde, Preciso consolidar 3 abas em uma só, elas tem uma série de dados mais tenho 5 colunas que se repetem nas 3 abas e gostaria de consolidar essas colunas em uma outra aba para depois fazer uma tabela dinamica dessa aba consolidada, como faço isso???

Boa tarde Estou tentando criar uma macro para buscar um texto em uma planilha já exportada de outro software (com células mescladas, colunas e linhas vazias) e que retorne o valor desse texto... Obrigado

Boa tarde, gente estou criando uma pasta de trabalho dinâmica em que à medida que o usuário vai utilizando as opções novas planilhas vão sendo criadas automaticamente. Eu desejaria colocar hiperlinks nessas planilha mais não estou conseguindo linkar. Pelo amor de Deus. rsrsrs Alguém poderia me auxiliar? Obrigado

Ola! Preciso De Uma Ajuda Preciso Cria uma Função No Excel Mais Não Estou Conseguindo Creio Que seja simples Preciso Que a Função identifique dois números iguais e some o valor agregado a estes números iguais ex: time jogadores 1 10 2 11 3 9 1 1

Oi Ola alguém poderia me dizer sobre um modulo/library bom para manuseio de dados de tabelas de excel. Tenho uma tabela com +- 300 linhas e 15 colunas - preciso extrair certas informações nesta tabela filtrando e coletando estes dados. Por exemplo, filtrar por cliente A e depois fornecedor B: Quantas linhas eu tenho com esse filtro? Att

Olá Amigos. Tenho uma planilha em Excel, com algumas macros, onde registro as vendas e pedidos de um restaurante-pizzaria. Quero melhorar o sistema e fazer com que o Garçon lance pedidos a partir de um android (ou iOS), os pedidos sejam encaminhados a um servidor, e este por sua vez seja acessado pela planilha para alimentar a mesma. Nesse meio tempo, os pedidos da cozinha devem ser impressos na cozinha, os da pizza, na pizza e assim por diante. Como iniciar este trabalho. O que devo entender para conseguir criar essa rotina.

Bom dia pessoal, Estou com o seguinte código que faz com que o vba gere um arquivo em pdf e salve em uma determinada pasta. Gostaria de saber se vocês tem conhecimento de se existe possibilidade de por a macro pra usar a referência como a coluna A, fazendo com o vba gere o pdf até a ultima linha da coluna A? A macro irei deixar abaixo: Sub GerarPDF() Dim SvInput As String Dim Data As String Dim var_MENSAGEM Dim Nome As String 'selecionar a tabela, "Banco" é o nome dela Plan8.Select 'Para determinar o fim da planilha com o nome "pdff", e "Banco" o nome da planilha pdff = Plan8.UsedRange.Rows.Count 'Selecionar o inicio e o fim da planilha Range("A1:I1" & pdff).Select Nome = InputBox("Digite o nome para o relatório. Ex.: Inventário + 'Nome do Responsável'", "Gerar Relatório PDF") If Nome = cancelar Then Exit Sub Data = VBA.Format(VBA.Date, "dd-mm-yyyy") SvInput = "C:\Users\Carneiro\Desktop\Projeto TheoPrax\Inventários" & Application.PathSeparator & Nome & "_" & Data & ".pdf" With ActiveSheet .ExportAsFixedFormat _ Type:=x1TypePDF, _ Filename:=SvInput, _ OpenAfterPublish:=True End With 'Mandar o excel salvar a alteração ActiveWorkbook.Save -------------------- Caso alguém possa ajudar ficarei grato

Ola, sou novato por aqui e ainda aprendendo os segredos do VBA... Criei uma mala direta num documento Word que receberá dados de uma planilha do Excel. Quando abro o documento word manualmente recebo a seguinte mensagem "Quando este documento for aberto o seguinte comando SQL sera executado: SELECT*FROM `Exportar`" ao clicar em sim, os dados atualizam perfeitamente. Criei um código no Excel(VBA) para abrir o arquivo logo apos efetuar a transferência de dados, ao executar esse código o documento Word abre, então não recebo mais a mensagem acima mas resolvi depurar o código, então o código mostra essa janela (Captura 1), eu dando ok, ele abre o Word, mas dá erro dizendo que o Word não pode abrir a fonte de dados (Captura2) e marca na depuração, a área em amarelo no código (Captura 3). Não quero que abra essa caixa na Captura 2 e gostaria de saber se alguém saber desse da Captura 3. Segue o código atual que estou usando para abrir o documento: Private Sub BOTÃO_ABRIR_Click() 'Com este pequeno trecho de código , criamos uma instância para o objeto Word e depois usando VBA 'abrimos o documento Novo Contrato Jeff's Festas.docx que esta no diretório C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx 'Dim word As New word.Application 'With word ' .Documents.Open "C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx" ' .Visible = True ' .WindowState = wdWindowStateMaximize 'End With 'Fechamos a tela Sucesso Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open("C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx") strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name wdocSource.MailMerge.MainDocumentType = wdFormLetters wdocSource.MailMerge.OpenDataSource _ Name:=strWorkbookName, _ AddToRecentFiles:=False, _ Revert:=False, _ Format:=wdOpenFormatAuto, _ Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _ SQLStatement:="SELECT * FROM `Exportar$`" With wdocSource.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With wd.Visible = True wdocSource.Close SaveChanges:=False Set wdocSource = Nothing Set wd = Nothing End Sub

Bom dia! Tenho uma planilha que serve como base de dados e preciso fazer com que ela apareça na minha página, ela vai ser sempre atualizada na base e essas atualizações devem sempre aparecer quando o usuário acessar novamente. Como posso fazer?

Olá pessoal, sou novo por aqui e também novo em VBA. Preciso da ajuda de vocês.É o seguinte:Preciso de uma macro que concatene em uma caixa de texto o conteúdo da célula H7 até H89. Na caixa de texto, cada linha deve conter o conteúdo de uma célula apenas, lembrando que na caixa de texto não deve aparecer linhas em branco, ou seja, só deve aparecer linhas preenchidas por conteúdos das células não vazias.Podem me ajudar?

Fala galera,Estou precisando de uma ajuda com uma macro no Excel com interação com o IEEu preciso entrar em um site, colocar um certo valor em um campo de busca e apertar a tecla {Enter}, porém não estou conseguindo simular esse aperto do "Enter".Não tem um botão "buscar" para que eu possa prosseguir.Já tentei Application.SendKeys "~", TrueSendKeys "~", ' TrueNada deu certo. Sub Enter() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.Navigate "http://www.loterias.caixa.gov.br/wps/portal/loterias/landing/lotofacil" While ie.Busy DoEvents Wend Do Until ie.ReadyState = READYSTATE_COMPLETE DoEvents Loop ie.Document.all("buscaConcurso").innerText = "1255" 'Exemplo ' Agora era preciso apertar o enter para completar a busca 'Application.SendKeys "~", True End SubQuem puder me ajudar eu agradeço.Obrigado

Tenho um código php que quando usado com o Wampserver funciona perfeitamente na hora de fazer Upload de arquivos em XLSX, mas quando publico na web da erro dizendo que a extensão do arquivo não é permitida.O codigo que utilizo é este: public function anexar(){ $this->load->library('upload'); $this->load->library('image_lib'); $upload_conf = array( 'upload_path' => realpath('./assets/anexos'), 'allowed_types' => 'jpg|png|gif|jpeg|JPG|PNG|GIF|JPEG|pdf|PDF|docx|DOCX|xlsx|txt', // formatos permitidos para anexos de os 'max_size' => 0, );

Boa tarde, Primeiro vou explicar o que preciso... Tenho a seguinte planilha no excel: Nome Codigos Ronaldo 4817a7e30f2ffed68042319aaf384593 fe5080bd8719bd2c3b728090dbbf9c65 72db5cd58a880804e9f581ff4a378df1 a3a0ee13dd86c05f6d3981a06be7f785 Juliet 4817a7e30f2ffed68042319aaf384593 fe5080bd8719bd2c3b728090dbbf9c65 72db5cd58a880804e9f581ff4a378df1 a3a0ee13dd86c05f6d3981a06be7f785 Preciso que o PHP leia o xls e gere 2 arquivos txt diferentes exemplo: ronaldo.txt 4817a7e30f2ffed68042319aaf384593 fe5080bd8719bd2c3b728090dbbf9c65 72db5cd58a880804e9f581ff4a378df1 a3a0ee13dd86c05f6d3981a06be7f785 Juliet.txt 4817a7e30f2ffed68042319aaf384593 fe5080bd8719bd2c3b728090dbbf9c65 72db5cd58a880804e9f581ff4a378df1 a3a0ee13dd86c05f6d3981a06be7f785 Meu problema: Devido 1 celular ter quatro linhas quando ele gera o txt ele escreve tudo em uma linha e não entende que tem que quebrar a linha. Será que alguém consegue me ajudar? <?php #file_put_contents() #file_get_contents() require '/Excel/reader.php'; $data = new Spreadsheet_Excel_Reader(); $data->setOutputEncoding('UTF-8'); $data->read('teste2.xls'); // LE O ARQUIVO for ($i = 1; $i <= $data->sheets[0]['numRows']; $i++) { $numero = $numero+1; // SOMA MAIS 1 $celldata = utf8_encode((!empty($data->sheets[0]['cells'][$i][2])) ? $data->sheets[0]['cells'][$i][2] : "&nbsp;"); $cn = 'sambatech'.$numero.'.txt'; //GERA O NOME DO ARQUIVO $cd = $celldata; //PEGA O CODIGO file_put_contents($cn,$cd); // SALVA INFORMAÇÃO DENTRO DO TXT } ?>

Olá Preciso desenvolver um aplicação em PHP que o usuário suba um arquivo no formato xls e então atualize uma tabela no banco de dados com os valores da nova tabela. Explicando melhor, terei uma tabela de preços no meu BD e esses preços virão atualizados em formato xls. Então quero construir uma aplicação que eu possa upar esse arquivo xls e substituir os valores do banco pelos que estão no arquivo xls. Desde já agradeço Att. Edinho Rodrigues

Quando tento abrir um arquivo Excel, eu recebo uma mensagem dizendo que "Excel não pode abrir o arquivo 'file.xlsx' porque o formato de arquivo ou a extensão do arquivo não é válido. Verifique se o arquivo não foi corrompido e que a extensão do arquivo corresponde ao formato do arquivo. " Como corrigir esta mensagem de erro?

Prezados, Não sei se minha dúvida é possível de ser solucionada. Estou elaborando uma planilha que agrupa materiais iguais e faz o somatório de suas quantidades. As fórmulas para agrupar os materiais e realizar o somatório já consegui através de pesquisas em fóruns da internet. Cada material desse, tem um número de item. Por exemplo, tenho as colunas “Item”, “Material” e “Quantidade”. O “Material A” tem número de item 1.1, um “Material B” qualquer tem número de item 1.2, um “Material A” novamente tem número de item 1.3, o “Material C”, por sua vez, é o item 1.4... e por aí vai. Perceba que um mesmo material tem número de item distinto. Na planilha dos materiais agrupados quero escrever em uma célula numa coluna “itens” os número de itens de cada material que foi agrupado, separados por ; (ponto e vírgula). Por exemplo: Para o “Material A” agrupado, a coluna “itens” vai mostrar: 1.1; 1.4. Basicamente é pegar os conteúdos de diferentes células e escrever em uma única célula, separando cada conteúdo por ponto e vírgula. Não sei se ficou claro... No link abaixo tem um exemplo da planilha. Ela está sem fórmulas, pois o arquivo original não está neste computador. Mas, no arquivo aí do link, acredito que está mais clara a ideia. https://www.dropbox.com/sh/74kyievbbwwh2f0/AAB3lCuQBMv3Je9P3ztv9uk4a?dl=0 Se algum colega conseguir me ajudar, agradeço! Nem que seja para dizer que não é possível o que estou querendo... pelo menos servirá para que eu desencane dessa ideia e tente outra alternativa. rsrsrs Abraço!