Pesquisar na Comunidade

Olá pessoal, tudo bem? Estou criando uma planilha para a empresa e queria gerar um relatório simples, porém bonito, usando o UseForm, mas estou iniciando no VBA e já tem um tempo que não mexo com programação. Alguém poderia me ajudar? A dúvida é o seguinte: Irei escolher uma opção de Produto e uma opção de Embalagem. Nisso clico em gerar e gera o texto com a somatória de todas as saídas desse produto. No Excel fiz isso usando o PROCV, mas não sei aplicar no VBA. Irei mandar uma imagem do UseForm e um rascunho do possível código. Já peço desculpas pelos erros de lógica no algoritmo, estou enferrujado. Desde já agradeço com a ajuda.

Olá Pessoal ! Vejam se conseguem me ajudar... Fiz uma planilha geradora de etiquetas e fiz uma macro simples de impressão das etiquetas numa determinada impressora, e está funcionando ! Porém, são muitas etiquetas para impressão e para que eu não tivesse que ficar digitando uma por uma para imprimir, eu queria ver a possibilidade de uma impressão em série, onde eu colocaria o intervalo de etiquetas puxando do banco de dados e a impressora imprimisse uma seguida da outra.. Agradeço desde já !

Prezados, Venho por meio deste tópico solicitar uma ajuda para solucionar ou pelo menos ajudar um pouco na minha programação. Sou leigo e venho montando este mesmo arquivo desde zero, por meio de fóruns e tutoriais. Objetivo: O intuito e realizar cadastro de alunos, editar, excluir e com os dados da planilha gerar um arquivo word automaticamente já padronizado o que e pra substituir. Erros: Nesta programação onde parei, ele já puxa os dados dos alunos, já demonstra a planilha porém ao cadastrar um novo aluno ele resulta em um erro, lembrando que ainda tenho que realizar a programação de outros botões como o editar. Estou tendo muitos problemas já que sou leigo, a programação e de muitos tutoriais e fóruns já que não achei um modelo que me atendesse perfeitamente, sei que para realizar este certos tipos de programação tenho que começar do zero para evitar conflitos e erros. Em anexo mando minha planilha já montada e o (link 1) onde um usuário usa um outro projeto para realizar um contrato já montado automaticamente através da programação e dos dados na planilha. Tutoriais onde me baseei na minha programação. Projeto: https://drive.google.com/open?id=1-COPuBPWfSPCg91JN44mbu3jWT4TzBTE Link 1: (https://www.youtube.com/watch?v=W2JPjQjiLdA&t=183s) Este e o principal onde tirei a base. (Contém a programação do word que desejo) Link 2: (https://www.youtube.com/watch?v=6Da30a0vvt8) Este e onde tirei a programação da planilha dentro do VBA, entre os outros botões de adicionar, editar, excluir e alterar os alunos. Ele e em partes. O intuito deste tópico e deste trabalho e agilizar e automatizar o sistema de cadastramento de alunos, sei que tem outras linguagens e outros métodos mas por ser leigo não sei nem qual seria a melhor linguagem e por onde começar. #ParaEmpresa

Pessoal, beleza? Eu tenho a macro abaixo na minha planilha, o objetivo dela é permitir "agrupar" e "desagrupar" a planilha que esta protegida por senha, no entanto, ela bloqueia a planilha com os comandos basicos de proteção "visualizar" e "selecionar somente.........eu preciso que alem disso, ela permite realizar o FILTRO, alguém tem alguma ideia? Private Sub Workbook_Open() ThisWorkbook.Worksheets("plan1").Protect ("senha"), userInterfaceOnly:=True ThisWorkbook.Worksheets("plan1").EnableOutlining = True End Sub

Pessoal, preciso de freela que possa nos ajudar a transformar planilhas dinamicas Excel em mini aplicativos C objetivo: criar banco de dados de referencias pesquisar movimentações de dados e incrementar rotinas preditivas desejavel conhecimmento vba e linguagem c pode ser c++ conhecimentos em banco de dados interessados pode me contatar aqui ou no w app 11 95916 7597 sucesso a todos

Olha, estou precisando montar uma planilha em excel e acredito que algumas funcionalidades dela deverão ser implementadas em VBA e eu não manjo disso, poderiam me ajudar? Eu estou fazendo uma planilha (conforme imagem anexo) para acompanhar datas de conclusão de várias atividades. Eu preciso registrar o cliente e uma data prevista para uma migração. Com base nessa data, existem outras atividades que devem ser executadas antes, excluindo os finais de semana e feriados. Para isso utilizei a formula =DIATRABALHO.INTL. Também fiz uma formatação condicional com base na data. Se a data < hoje() formata em verde, se data =hoje() formata em amarelo, etc. Agora vem a parte que não consigo fazer... Nas celulas ao lado de cada data coloquei uma lista suspensa com as opções "-" e "OK". Preciso fazer com que no momento que o usuário selecionar OK na celula com a data prevista para aquela atividade (exemplo: N17=OK; M17= Dia que foi alterada a celula N17) mude para a data atual e retire a formatação, e volte para a condição anterior caso o usuário retorne a selação para "-"

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;

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!

Bom dia a todos do canal. Estou começando a me aventurar na programação e como qualquer mortal me deparo com zilhões de dúvidas a cada código escrito. Preciso salvar um planilha automaticamente com dados gerados do Mysql. Estudando um pouco sobre abertura e fechamento de arquivos com Php, consegui achar alguns comandos que fazem este trabalho mas estou com algumas dificuldades de aplicá-los em meu código. Segue ele: <?php $connect = mysqli_connect("localhost", "root", "1234", "wifi"); $output = ''; if(isset($_POST["export_excel"])) { $sql = "SELECT * FROM cadastro_wifi ORDER BY ID"; $result = mysqli_query($connect, $sql); $fp = fopen("teste.xls", "a"); "ABERTURA DO ARQUIVO" "NESTE PONTO NÃO SEI COMO PASSAR OS PARÂMETROS DE ESCRITA" "O SCRIPT FUNCIONA DIREITINHO MAS PEDE PARA SALVAR OU ABRIR" if(mysqli_num_rows($result) > 0) { $output .= ' <table class="table" bordered="1"> <tr> <th>Username</th> <th>Nome_Completo</th> <th>Primeiro_Nome</th> <th>Inicial</th> <th>Sobrenome</th> <th>Password</th> <th>Office</th> <th>Mail</th> <th>Cargo</th> <th>Departamento</th> <th>Descricao</th> <th>Telefone</th> </tr> '; while($row = mysqli_fetch_array($result)) { $output .= ' <tr> <td>'.$row["Username"].'</td> <td>'.$row["Nome_Completo"].'</td> <td>'.$row["Primeiro_Nome"].'</td> <td>'.$row["Inicial"].'</td> <td>'.$row["Sobrenome"].'</td> <td>'.$row["Password"].'</td> <td>'.$row["Office"].'</td> <td>'.$row["Mail"].'</td> <td>'.$row["Cargo"].'</td> <td>'.$row["Departamento"].'</td> <td>'.$row["Descricao"].'</td> <td>'.$row["Telefone"].'</td> </tr> '; } $output .= '</table>'; //header("Content-Type: application/xls"); //header("Content-Disposition: attachment; filename=teste.xls"); echo $output; } } fclose($fp); "FECHAMENTO DO ARQUIVO" ?> Desde já agradeço. Obrigado

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

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?

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 pessoal... Estou com um pequeno problema com a configuração do meu sistema em VBA... Estou realizando alguns procedimentos e no final coloco -> ActiveWorkbook.Save Com o intuito do VBA salvar a planilha automaticamente, mas acaba que ela não salva e sempre que tento fechar ela pede para eu salvar manualmente. O código completo que estou usando vou deixar abaixo: ------------------------------------------- Private Sub CommandButton7_Click() 'Declarar uma variavel para verificar os campos que estão em branco e informar ao usuário que deve ser preenchido Dim campo(16) As String 'Campos digitados manualmente para que o excel exiba os campos de cada um. campo(1) = "Código" campo(2) = "Nome do Fornecedor" campo(3) = "CNPJ" campo(4) = "Marca" campo(5) = "Nome do Representante" campo(6) = "Contato" campo(7) = "Estado" campo(8) = "Cidade" campo(9) = "Bairro" campo(10) = "Endereço" campo(11) = "Nº" campo(12) = "Complemento" campo(13) = "Status" campo(14) = "Email" campo(15) = "Site" campo(16) = "Descrição do Fornecedor" 'Perguntar ao usuário se ele realmente deseja gravar os dados na base Resposta = Msgbox("Deseja cadastrar/alterar o Fornecedor?", vbQuestion + vbYesNo, "Atenção Usuário") If Resposta = vbNo Then Exit Sub End If 'Caso o usuário queira realmente salvar, então exibir mensagem informando que o Fornecedor foi salvo com sucesso. Msgbox "Fornecedor cadastrado/alterado com sucesso", vbInformation, "Atenção Usuário" 'Declarar variavel que será utilizada para gravar os dados no excel (ln) Dim ln As Integer 'Mandar o Excel procurar a base de dados na qual encontra-se o pedido de compra e adicionar o novo Fornecedor na próxima linha ln = Range("base_fornecedores").Rows.Count + 1 'Gravar os dados na planilha de Cadastro de Produtos For a = 1 To 16 Plan5.Cells(ln, a) = controle_de_cadastro_de_fornecedores(a) Plan5.Range("base_fornecedores").CurrentRegion.Name = "base_fornecedores" Next 'Mandar o excel salvar o arquivo do excel no computador, para que o usuário possa fechar sem ter que salvar manualmente ActiveWorkbook.Save End Sub ------------------------- Se alguém poder me ajudar ficarei bastante grato

Bom dia caros, Estou fazendo uma aplicação em VBA usando o Excel para cadastro de projetos com vários 'forms' O primeiro 'form' chama-se frmCLIENTES que cadastra os dados do cliente O segundo 'form' chama-se frmPROJETOS que cadastra os dados do projeto Estou fazendo assim porque podem existir vários projetos para cada cliente. Os dados do 'form' frmCLIENTES salva na planilha CLIENTES, e o 'form' frmPROJETOS salva na planilha PROJETOS. No frmPROJETOS tenho uma ComboBox que lista o nome de todos os clientes cadastrados na planilha CLIENTES. Quando eu salvo o projeto, o valor da ComboBox é salvo na coluna A da planilha PROJETOS. Até ai tudo certo. O problema vem agora: Eu não gostaria de salvar o valor da ComboBox, gostaria de salvar a referência da célula na planilha CLIENTES onde está localizado o respectivo cliente, ou seja, na coluna A da planilha PROJETOS salvar =CLIENTES!A2 ao invés do valor apresentado na ComboBox. Por que isto? Porque quando eu editar o nome do cliente, os projetos associados tenha o registro também alterado de forma automática. Alguém saberia me ajudar com qual linha de comando eu posso fazer isso? A planilha CLIENTES está assim: E gostaria que a planilha PROJETOS ficasse assim: Claro que no Excel a célula A2 em PROJETOS exibiria o valor "CLIENTE 1" Obrigado. Rafael.

Tipo assim eu quero deixar ela em aberto no meu site, "Explicita" já diz tudo, pra tipo eu criar um ponto de Update para quando eu atualizar os usuarios tambem atualizarem

Tipo assim eu quero deixar ela em aberto no meu site, "Explicita" já diz tudo, pra tipo eu criar um ponto de Update para quando eu atualizar os usuarios tambem atualizarem

Boa tarde, Pessoal. Preciso de uma ajuda. Tenho uma Query que traz uma série de dados de clientes em uma planilha. Gostaria de pesquisar um código de cliente utilizando VBA e que me retorne vários registros que contenham o mesmo código de cliente. Por exemplo: Tenho uma lista de itens comprados por um mesmo cliente: Cliente Orçamento VIN OS Qtde Item Valor Peça Valor Total de Peça NF Peça Valor de Mão de Obra NF Mão de obra TOTAL 2965 2730 9321FJKJ4DD627724 20640 1 62908-08 R$ 480,02 R$ 480,02 12345 R$ 94,50 13456 R$ 574,52 2965 2726 9324LFGJ2CD429529 20919 1 71682-06A R$ 201,07 R$ 201,07 12346 R$ 52,50 12356 R$ 253,57 2970 2725 9324HM2J0DD402295 21150 1 68926-07 R$ 136,63 R$ 136,63 12567 R$ 31,50 12678 R$ 168,13 2970 2724 9321KL5J3DD022017 21172 1 66000065 R$ 632,74 R$ 632,74 13579 R$ 52,50 13578 R$ 685,24 Gostaria de inserir o número do Cliente e então me retornasse apenas as informações das compras desse cliente, por exemplo: Ao digitar em um Userform o cliente 2965, preencher uma planilha apenas com as informações deste cliente. PS. A query fica na mesma planilha, apenas em uma outra aba. Muito obrigado pela ajuda. Caso tenham alguma dúvida, me informar, por favor. Vinicius Viana

Alô galera da Script Brasil, Estou com um problema aqui, sou iniciante no VB e estou com um problema num código, ocorre o seguinte: Estou com um planilha aqui que não foi feita por mim, toda vez que o mês acaba e eu crio o próximo, aparece pra mim um erro de compilação Sub barraAjusteZoom_Change() Sub botaoImprimir_Click() Call FazbotaoImprimir '19 End Sub Sub botaoAlteraElimina_Click() Call FazBotaoAltera '17 End Sub Sub botaoNovo_Click() Call FazBotaoNovo '16 End Sub Call FazAjusteZoom '18 End Sub A linha "Sub barraAjusteZoom_Change()" sempre aparece no topo da fórmula, quando deveria aparecer na penúltima linha, já rodei todo o código pra tentar achar o porquê disso mas não consegui, alguém pode me dar uma luz?