Pesquisar na Comunidade

Olá, estou estudando o PHPExcel, porem estou com um pequeno problema. Possuo uma planilha com alguns valores, e em uma célula há um calculo de somatória de 3 células. Usando o phpexcel eu desejo inserir (n1, n2, n3), e também obter a soma, entretanto não consigo obter a soma dos (n1, n2, n3) atuais inseridos como posso fazer isso funcionar? $n1=$_GET["n1"]; $n2=$_GET["n2"]; $n3=$_GET["n3"]; require_once 'Classes/PHPExcel.php'; $objPHPExcel = new PHPExcel(); $nomeArquivo = "Plan1.xlsx"; $excelReader = PHPExcel_IOFactory::createReaderForFile($nomeArquivo); $excelReader->setLoadAllSheets(); $excelObj = $excelReader->load($nomeArquivo); $objPHPExcel->getActiveSheet()->getCell('B2')->setValue((int)$n1); $objPHPExcel->getActiveSheet()->getCell('C2')->setValue((int)$n2); $objPHPExcel->getActiveSheet()->getCell('D2')->setValue((int)$n3); $n1=$objPHPExcel->getActiveSheet()->getCell('B2')->getValue((int)$n1); $n2=$objPHPExcel->getActiveSheet()->getCell('C2')->getValue((int)$n2); $n3=$objPHPExcel->getActiveSheet()->getCell('D2')->getValue((int)$n3); $resultado=$excelObj->getSheet(0)->getCell('E2')->getCalculatedValue(); echo $n1." + ".$n2." + ".$n3." = ".$resultado;

Bom dia, estou com um problema e não consigo resolver, já tentei de tudo. Bom, envio emails uma vez por semana, posso ter de 3 a 160 correspondentes. eu criei a query porem não consigo anexar a ela o corpo de email. alguém pode me ajudar? segue codigo. estou enviando o referente a um cliente, eu só replico o código varias vezes. ActiveSheet.Range("$A$1:$M$1694").AutoFilter Field:=10, Criteria1:= _ "LJ_BA_SALVADOR_AEROPORTO" Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range("A1:M1700").Select Selection.Copy ChDir "C:\Users\rodolfo.ribas\Desktop\Testes_Email" Workbooks.Open Filename:= _ "C:\Users\rodolfo.ribas\Desktop\Testes_Email\LJ_BA_SALVADOR_AEROPORTO.xlsm"

Pessoal, Possuo um site de planilhas prontas em excel para gestão empresarial! São mais de 100 modelos diferentes que ajudam na gestão de fluxo de caixa, vendas, estoques, precificação, cadastro de funcionários e muito mais! Quem quiser conhecer basta ir em: http://luz.vc

Boa tarde!! Criei uma macro que extrai uma série de dados do meu BD SQL através de uma Query e grava em uma planilha do Excel (que vou chamar de BD Excel), até aí sem problemas está funcionando corretamente. O que preciso agora é um pouco mais complicado: Considerando que o meu BD Excel possui no primeiro campo o ID_TITULO preciso fazer um somatório dos débitos e créditos de outra tabela do BD SQL e inserir o resultado da soma no BD Excel para cada um dos títulos. Ou seja, após criar o BD Excel com uma Query da tabela titulocli preciso somar os débitos e créditos da tabela transcli e inserir o resultado em nova coluna respeitando o ID_TITULO. Exemplo anexo. Obs.: a coluna em amarelo é a coluna para se incluir o resultado do somatório. Grato

Tenho um programa em VBA que acessa uma determinada página para extrair alguns dados. Essa função o programa executa perfeitamente, porém estou tendo dificuldades com o 1º acesso à página, pois o site possui certificado expirado e dá sempre o erro "Há um problema no certificado de segurança do site." e o VBA entende que a página desejada foi carregada. Gostaria de saber se existe uma maneira do VBA identificar que caiu neste alerta de segurança do I.E e clicar automaticamente no link "Continuar neste site (não recomendado).".

Boa tarde, Senhores. Estou com o seguinte trabalho, tenho uma planilha cheia de informações e preciso passar essas informações para XML. Só que são mais de 1500 linhas no excel para transferir, manualmente vou levar dois dias no minimo. Existe alguma forma de enviar essas informações automatizada tudo de uma vez do excel para XML? os campos são padrões.

Bom dia Pessoal! Gostaria de ajuda de vocês se possível. Estou com uma planilha de um edital que tem um total de 100.000,000. Nesta planilha tem 3 colunas com nome, nota e valor da proposta, no qual a classificação primeiro é pelas maiores notas, com base nisso gostaria criar um filtro, uma macro ou formulá. terai algum jeito de fazer isso automaticamente?

Prezados, bom dia! Por favor, alguém poderia me ajudar a resolver o seguinte problema. Eu preciso importar um xml de nfe para uma planilha do excel (eu vou editar o arquivo xml) e depois vou exportá-lo novamente. Observação: eu até consigo importar o arquivo no excel (utilizo a função: dados/de outras fontes/ da importação de dados xml ou utilizando a função mapas xml), porém quando eu tento exportar o arquivo aparece a seguinte mensagem: Não é possível salvar ou exportar dados XML. Os mapas XML desta pasta de trabalho não são exportáveis Alguém sabe como posso realizar o procedimento? Atenciosamente, Marco

Boa tarde, gostaria de uma imensa ajuda, meu chefe me pediu para pegar os campos de uma tupla de determinado website com os campos: nome, nickname, data, endereço ip, e exportasse esses campos para um planilhar excel em forma de tabela via "JavaScript". Ambos os campos seriam separados por ponto e virgula, alguém me daria uma dica ou algo relacionado? Ficaria muito grato!!!

boa Tarde pessoal, quero fazer uns cálculos aqui usando VB com excel, por exemplo: tenho os valores nas colunas A, B e C, e quero um resultado na coluna D = A+B-C, sendo que vai da linha 2 ate 20. mas preciso que na hora que eu alterar qualquer valor dessas Campos, (A. B, C) já faça o calculo automaticamente na D, sem uso de botão tentei fazer assim mas fica dando loop infinito. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Double For i = 2 To 20 Cells(i, "D").Value = Cells(i, "A").Value + Cells(i, "B").Value - Cells(i, "C").Value Next i End Sub

Olá Pessoal, tenho uma planilha formada por várias sheets que adaptei para a minha necessidade. Quero que quando o usuário tente abrir o workbook, um form (chamado LOGIN) pedindo o nome do usuário e a senha apareça, sem que a planilha seja mostrada. Coloquei então o seguinte código na "EstaPasta_de_Trabalho": : Private Sub Workbook_Open() Application.Visible = False Application.ScreenUpdating = False LOGIN.Show End Sub Não funcionou. Como a planilha que estou adaptando tem um módulo (chamado "Módulo_geral") que "chama" as subs (sheets) a partir de uma planilha MENU, a única maneira do form de user e senha aparecer foi incluindo neste módulo uma sub como abaixo: Sub auto_open() Application.Visible = False LOGIN.Show End Sub Aí o form de LOGIN aparece, mas não antes que a planilha sempre apareça mesmo que rapidamente, antes do form de LOGIN aparecer. Alguém tem alguma ideia de onde estou errando? Obrigado

Olá pessoal. Preciso de uma ajuda. Eu tenho um arquivo (TXT), com varias informações de vários produtos com (medidas/tamanho igual e diferente). Minha ideia é separar todos os produtos em Planilhas diferente e no final salvar essas Planilhas em uma (Pasta de Arquivos) em meu computador. E eu fiz uma macro (VBA) buscando e separado os itens iguais para uma determinada (Planilha), deu tudo certo até um certo tempo. Como esse arquivo (TXT) tem bastante itens diferentes, eu tive que ir criando varias (Planilhas) na Pasta (TXT), quando eu criei a (Plan16) o Excel me deu uma caixa de aviso, eu ainda estou na metade do meu projeto. Como eu faço para prosseguir? Desde já gostaria de agradecer a todos. Sds, Wellington

Meus amigos, boa noite! Estou com uma listbox carregando apenas a primeira e ultima linha da planilha e as demais ficam em branco. já alterei algumas propriedades da listbox e até fiz um novo arquivo e não encontrei o erro. O código eu peguei comparei com outros e é bem simples. Podem me ajudar? Sub Filtro_Acumulado() linha = 1 linhalisbox = 0 Me.LBOrcadoRealizado.ColumnWidths = "80;70;70;80" Do Until Sheets("BANCO_DE_DADOS").Cells(linha, 1) = "" With Me.LBOrcadoRealizado .AddItem .List(linhalistbox, 0) = Sheets("BANCO_DE_DADOS").Cells(linha, 1) .List(linhalistbox, 1) = Sheets("BANCO_DE_DADOS").Cells(linha, 2) .List(linhalistbox, 2) = Sheets("BANCO_DE_DADOS").Cells(linha, 3) .List(linhalistbox, 3) = Sheets("BANCO_DE_DADOS").Cells(linha, 4) End With linha = linha + 1 'soma ela mesma, pula para próxima linha linhalistbox = linhalisbox + 1 Loop End Sub

Olá, Tenho uma planilha em Excel em que coloquei um botão com uma macro para salvá-la no meu OneDrive da Microsoft. Só que eu também salvo uma cópia no meu computador e, na verdade, a cópia que eu salvo no OneDrive fica como backup. O que eu quero é por um comando no script do VBA do Excel que, depois que eu salvar a planilha no OneDrive, quando eu clicar no ícone de salvamento padrão (o do disquete) a planilha volte a ser salva na pasta (diretório) original. O que acontece agora é: depois que eu salvo no OneDrive, sempre que eu clico no disquete, a planilha é salva no OneDrive de novo. Quer dizer, depois que eu salvo ma vez no OD, o Excel assume o OD como diretório padrão. Acredito que o comando seja alguma coisa parecida com isto: ChDir "\\M01\G\PASTA_01\PASTA_02\" Veja a macro que eu uso: Sub SALV_SKYDRIVE() ' ' SALV_SKYDRIVE Macro ' ' ActiveWorkbook.SaveAs Filename:= _ "https://d.docs.live.net/03c194df12/FATURAMENTO/FATURAMENTO.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True ChDir "\\M01\G\___TRADUÇÃO\FATURAMENTO\" End Sub Agradeço antecipadamente qualquer ajuda!

"Este e meu codigo ate o primeiro momento, esse primeiro sub e do botão enviar, minha macro deveria, enviar um email para o destinatario q estaria presente na coluna 1 , toda vez q o status da coluna 6 mudasse para para Realizar compra, com apenas as as suas linhas respectivas (couluna(2) a (6)); seria isso galera. Sub Enviar() Dim EnviarPara As String Dim Mensagem As String EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1) Mensagem = ThisWorkbook.Sheets(1).Cells(i, 3) Envia_Emails EnviarPara, Mensagem End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = ActiveCell.Row - 1 If Target.Address = "$F$" & linha Then If Plan1.Cells(linha, 6) = "Realizar Compra" Then texto = "Prezado(a) " & Plan1.Cells(linha, 1) & "." & vbCrLf & vbCrLf & _ "O estoque atual e semanal consta: " & Plan1.Cells(linha, 2) & Plan1.Cells(linha, 3) & Plan1.Cells(linha, 4) & Plan1.Cells(linha, 5) & Plan1.Cells(linha, 6) & _ "Rafael. INF" & vbCrLf End If

E ae galera salve salve, Sou novo no python e estou com um probleminha que ta me tirando do serio... É o seguinte, quero pegar as strings de um arquivo e comparar os elementos dela com as frases escritas nas planilhas do meu arquivo xlsx. Só que as strings do arquivo irão ter o que está escrito na planilha mais alguns códigos.Quero que o programa faça o seguinte: Se na linha do arquivo tem o que esta na coluna que estou percorrendo: faça a instrução else: pule para a proxima linha Segue o código: #!/usr/bin/python import subprocess import xlrd arquivo = open("/home/weslei/Documentos/t.txt", "r") read = arquivo.readlines() xls = xlrd.open_workbook('chips.xlsx') plan = xls.sheets()[0] b = plan.col(0) for i in read: for n in b: if n == i[20:57]: print "instrucao" else: print "next" O arquivo que eu estou lendo tem esse conteudo: |7891515433963 |AMENDOIM SEM PELE MANIX 40G |UN|34119/6|AF 4,9900| |7897846301872 |AREIA HIG ABSORCAT 4KG |UN|32306/2|AF 7,9900| |7898948468012 |ARROZ CARRIJO TIPO1 5KG |UN|32471/7|AF 13,8000| |7896290300974 |ARROZ PRATO FINO ORGAN INTEG 1K UN |UN|33908/7|AF 14,9500| |7896290300318 |ARROZ PRATO FINO PARBOLIZADO 2KG |UN|32034/4|AF 8,7500| |7896290300295 |ARROZ PRATO FINO PARBOLIZADO 1K UN |UN|32185/3|AF 4,3900| |0000000000000 |ARROZ PRATO RICO AGULINHA 5KG |UN|34335/0|AF 0,0000| E a planilha: ELMA CHIPS AMENDOIM SEM PELE MANIX 40G 1,79 BACONZITOS 55G 3,68 *BACONZITOS 110G 6,15 *BATATA SENSAÇÃO FG.GRELH. 90G 6,15 *CEBOLITOS 60G 3,68 *CEBOLITOS ASSADO 110G/120G 6,49 *CHEETOS 51G/ 55G/57G/59G/61G 2,49 *CHEETOS 130G/150G/160G 6,28 *DEMONTÃO RUFLES BACON. 75G 4,45 *DORITOS 55G 3,65 *DORITOS QUEIJO 96G/110G/100G 6,25 *DORITOS QUEIJO NACHO 167GR 9,98 *DORITOS 200G/220G 9,98 *FANDANGOS 63G 2,45 *FANDANGOS PRESUNTO/QUEIJO 175G 6,25 *FANDANGOS PRESUNTO 164GR 6,25 *PANETINI PRESUNTO / QUEIJO 40G 1,89 *PINGO D'OURO 65G 2,99 *PINGO D'OURO 90G 3,68 *RUFFLES 90G/100G 6,15 RUFFLES 96GR 6,15 *RUFFLES 175G 9,98 *RUFFLES 57/50G 3,50 *SALGADINHOS TORCIDA 60/50G 1,75 Detalhe: O programa emite a saida das colunas como text:u'*SALGADINHOS TORCIDA 60/50G' todas as colunas saem com o text:u , causando o erro na iteração porque no arquivo não tem text:u. sei que ficou um pouco grande galera mas tentei não deixar passar nenhum detalhe, já procurei solução em tudo e qualquer canto e não achei, se conseguirem me ajudar ficarei muito grato! obrigado.

Prezados, alguém saberia informar como configurar um formulário do Excel construído com ferramentas do Activex para que a passagem de um campo para o outro seja realizada através da tecla TAB?

Estou usando este script para preenchimento automatico da data e hora, porém só consigo disparar se a celula for da coluna anterior.. Ex.....carimba na coluna B se o disparo for na A......carimba na C se o disparo for na D. Gostaria que o disparo ficasse na A e a data e hora aparecesse na D. Outro problema é que não funciona em mobile.....smart e tablet's.....apenas em note e desk. Preencho todas as celulas mas estas não são carimbadas pelo Script com data e hora. alguém pode me ajudar? function onEdit() { var ActiveSheet= SpreadsheetApp.getActiveSheet(); var capture = ActiveSheet.getActiveCell(); if(capture.getColumn() == 1 && ActiveSheet.getSheetName()=='Página1') { var add = capture.offset(0, 1); var data = new Date(); data = Utilities.formatDate(data, "GMT-03:00","dd-MM-yyyy' 'HH:mm:ss' '"); add.setValue(data); }; } 2 - Altere Página1 para o nome da página correspondente em que o script será executado. 3 - Pressione CTRL + S. 4 - Digite qualquer nome para o projeto e click em Ok. 5 - Click no menu Executar, opção onEdit. 6 - Em autorização necessária, click em Continuar na próxima janela click no botão Aceitar. 7 - A Função será disparada e quando na coluna A o usuário digitar alguma informação na coluna B a hora e data automaticamente será carimbada. Qualquer dúvida sobre Google Drive/Docs, volte a postar. Abraço!

Estou desenvolvendo uma planilha que será compartilhada por 6 usuários diferentes, não simultaneos. Preciso bloquear as celulas após o preenchimento, para que um usuário, ou o próprio por descuido, não altere o que já foi preenchido por usuários anteriores. Já tentei o bloqueio de página e o bloqueio de colunas, mas bloquia antes de preencher a celula vazia, isto não me serve. alguém pode me ajudar?

Pessoal preciso de fazer o seguinte Coluna A | Coluna B | Coluna C | Coluna D | Coluna E (TOTAL) 1 20 11,20 15,00 18,50 ? Preciso que a celula E1, identifique qual coluna tem o menor valor (B,C ou D) e multiplique pela Quantidade (coluna A). alguém pode ajudar?

Oii gente!!! Estou fazendo um formulário em VBA... e tem uma célula que eu preciso que contenha uma fórmula... na própria planilha do Excel... (para onde serão jogados os dados do formulário)... existe alguma forma de inserir ali no código a fórmula que eu quero?? 'Carregar os dados digitados nas caixas de texto para a planilha ActiveCell.Value = cx_pac ActiveCell.Offset(0, 1).Value = cx_data.Value ActiveCell.Offset(0, 2).Value = Empty ***Ao invés de empty, queria que entrasse aqui a seguinte fórmula: =SE(DIA.DA.SEMANA(B7;2)=1;"Segunda-feira";SE(DIA.DA.SEMANA(B7;2)=2;"Terça-feira";SE(DIA.DA.SEMANA(B7;2)=3;"Quarta-feira";SE(DIA.DA.SEMANA(B7;2)=4;"Quinta-feira";SE(DIA.DA.SEMANA(B7;2)=5;"Sexta-feira";SE(DIA.DA.SEMANA(B7;2)=6;"Sábado";SE(DIA.DA.SEMANA(B7;2)=7;"Domingo";""))))))) ActiveCell.Offset(0, 3).Value = cx_horario.Value ActiveCell.Offset(0, 4).Value = cx_cod.Value ActiveCell.Offset(0, 5).Value = cx_cirurgia.Value ActiveCell.Offset(0, 6).Value = cx_hospital.Value ActiveCell.Offset(0, 7).Value = cx_atendente.Value ActiveCell.Offset(0, 8).Value = cx_exames.Value ActiveCell.Offset(0, 9).Value = cx_status.Value ActiveCell.Offset(0, 10).Value = cx_formapgto.Value ActiveCell.Offset(0, 11).Value = cx_valor.Value Agradeço desde já, Obrigada!!!

Ola boa tarde, tenho que fazer com que dois computadores (ao mesmo tempo) usando excel cadastre informações no arquivo MDB. Porem estou tendo problema para fazer isso porque se um estiver fazendo um cadastro e o outro for fazer no mesmo momento fica dando um dizendo que planilha já está sendo usada. O que fazer? Informações: Arquivo de Excel com Macro em dois computadores (acessando informações do arquivo mdb em DAO) Defeito: Erro 3054 (arquivo já está sendo usando por outro usuário em outro computador) Tipo de Conexão.

Olá, nobres confrades! Possuo uma cliente que tem a péssima mania de abrir diversos arquivos do Excel, simultaneamente. O software esta com salvamento automático e, muitas vezes, este salvamento ocasiona em um travamento completo da maquina. Não costumo trabalhar muito com programação, então, sou um pouco leigo no assunto, mas preciso de um código que monitore quantos arquivos ela possui aberto simultaneamente e que avise quando ela estiver com mais de 4 arquivos abertos. Desde já, agradeço.

Pessoal tenho uma dúvida. Estou criando uma agenda e gostaria que minhas duas textbox que recebe a hora digitada pelo usuário se autoformate durante a imputação de dados. Ex: quando o usuário digitar do 3 até o 9 ele acrescente antes o 0 e se for o 1 ou 2 não e depois do 2 caractere ele acrescente os : para separar hora do minuto. Caso o minuto for maior q 5 ele jogue automático o zero também. Alguém me da uma luz ae? Tentei usar case no evento _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) mas infelizmente não deu certo. Tentei com o evento change mas não deu certo. Como sou leito no VBA tenho certeza q é meu código q está errado. Alguém sabe como resolver isso? Segue o código (incompleto) q não funcionou adequadamente: Private Sub txtInicio_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 51 To 57 ' BackSpace(8)) e numericos (51 até 57) do 3 até o 9 If Len(txtInicio) = 1 Then txtInicio.Text = "0" & txtInicio.Text End If End Select If Len(txtInicio) = 2 Then txtInicio = txtInicio & ":" End If Select Case KeyAscii Case 48 To 50 ' BackSpace 0, 1 e 2 If Len(txtInicio) = 1 Then txtInicio.Text = txtInicio.Text End If End Select If Len(txtInicio) = 2 Then txtInicio = txtInicio + ":" End If End Sub

Pessoal estou fazendo uma aplicação em vba usando excel como bando de dados. E na minha tela de inicial gostaria que um label q eu criei exibisse a hora e escrevesse uma saudação. Criei um código mas ele infelizmente fica estático exibindo apenas a hora em que a aplicação foi aberta. Alguém me da uma mão pra ele ficar dinâmico e atualizar a label a cada segundo com a hora nova? Segue o código abaixo. Private Sub UserForm_Activate() Dim vSaudacaoHora As Integer vSaudacaoHora = Hour(Now) + TimeValue("00:00:01") Select Case vSaudacaoHora Case 1 To 5 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa madrugada!" ' retorno no Label Case 6 To 11 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha um bom dia!" Case 12 To 17 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa tarde!" Case 18 To 24 labelsaudacao.Caption = "Olá, agora " & Time & " horas, tenha uma boa noite!" End Select End Sub