Pesquisar na Comunidade

Boa noite! Alguém sabe me dizer se existe uma função no Visual Basic para simular o "Atingir Meta" do Excel? Ou pode me indicar funções para fazer tal? Abraço!

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, 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, 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

Boa tarde galera, alguém poderia me ajudar? É o seguinte, preciso que uma planilha efetue uma determinada operação quando o usuário apertar a tecla enter. Como faço isso? Obrigado e aguardo.

Pessoal, estou desenvolvendo um código que copia fórmulas de uma planilha (CONSOLIDADO) para outra (VÍNCULOS), dentro de uma mesma pasta de trabalho. Essas fórmulas, na verdade, são vínculos à células de uma outra pasta de trabalho. Consegui criar tudo. Porém, durante a execução do código, a cada colagem de vínculo, abre-se a caixa de diálogo para que seja escolhida a pasta de trabalho a que se refere aquele vínculo. Preciso que essa caixa de diálogo seja fechada automaticamente a cada vez que ela é aberta ou, ainda melhor, que ela nunca seja aberta. É possível? Segue o código: Sub CopiarVínculos()For Coluna = 5 To 150For Linha = 6 To 500Sheets("VÍNCULOS").Cells(Linha, Coluna).Value = Sheets("CONSOLIDADO").Cells(Linha, Coluna).FormulaNextNextEnd Sub Desculpem se for uma pergunta simples, mas estou trabalhando com VBA há apenas 2 semanas. Obrigado, abraços!

Boa Tarde a todos, Estou com uma dúvida referente ao algoritimo para anexar arquivos em formato .pdf no e-mail (Outlook) utilizando VBA. Mudei a versão do Office para a 2013 e o algortitimo que antes funcionava perfeitamente, parou de funcionar. O Objetivo do código é procurar o nome de um arquivo específico como mostrado abaixo, caso ele não encontre o arquivo com final 04.pdf, por exemplo, ele tenta o próximo nome com final 03. Encontrado o arquivo 03, o contador passa de 0 para 1 e volta para veriricar se existem mais arquivos com o final 03. On Error Resume Next Mail.Attachments.Add DIRETORIO "\" & Numero & "04.pdf" If Mail.Attachments.Count > C Then GoTo continua On Error Resume Next Mail.Attachments.Add DIRETORIO "\" & Numero & "03.pdf" If Mail.Attachments.Count > C Then GoTo continua continua: C = C + 1 Alguém poderia me ajudar fornecendo um algoritimo parecido com a abordagem a cima ou algum solução para o problema?

Agradeço desde já, estou tentando formatar um documento word que é composto por diversas tabelas.Antes e depois de cada tabela preciso inserir um parágrafo(enter). Utilizei o método "Split" mas ele funcionou apenas para inserir o espaço depois da tabela. Tentei também os métodos "insertAfter" e "insertBefore" mas não obtive sucesso(o caracter foi colocado dentro da tabela). Além de inserir o caracter, preciso assegurar que antes e depois da tabela haverá apenas um parágrafo

Pessoal bom dia, Não sou desenvolvedor, mas estou fazendo uma planilha de orçamentos para minha empresa, a planilha será compostas por itens e estes itens serão compostos por subitens, na planilha principal ira aparecer apenas os itens, por intermédio de um botão de pesquisa já criado. Porém eu necessitaria que para cada linha de item adicionado, surgi-se um novo botão para a pesquisa dos subitens relacionados. Gostaria de saber se é possível, que esta pesquisa busque uma célula referente a linha como filtro de pesquisa. Exemplificando, gostaria de exibir apenas os subitens referente ao item selecionado. Lembrando que o botão, deverá surgir apenas quando adicionar um item na planilha. Segue abaixo uma imagem demostrativa com o botão "+", conforme necessito. Agradeço desde já pela ajuda.

Bom dia :) Estou com uma dúvida com a macro que estou fazendo eu quero mudar de texbox usando as setas. Por exemplo, se eu estiver no campo A.R e apertar a seta para cima, tem que ir para N.R. Eu sei que é usando o evento Change, mas não sei como fazer :P

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 a todos, tenho uma apresentação de 3800 slides tenho um sistema que você consegue localizar eles pelo número digitado! Porém, estou atualizando ele e colocando a função de localizar pelo texto e gostaria da ajuda de vocês! Existe por exemplo o "View.Goto" onde vou definir a INDEX do slide, então talvez vocês possam me ajudar no algoritmo em que localiza a palavra e retorna a posição do slide que ela se encontra. O seguinte código que peguei no fórum da microsoft, ele até localiza a palavra, é fácil entender ele, mas ele não vai para o slidee nem retorna nada, mas faz praticamente tudo que estou precisando. For Each sld In Application.ActivePresentation.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then Set txtRng = shp.TextFrame.TextRange Set foundText = txtRng.Find(FindWhat:="CompanyX") Do While Not (foundText Is Nothing) With foundText .Font.Bold = True Set foundText = _ txtRng.Find(FindWhat:="CompanyX", _ After:=.Start + .Length - 1) End With Loop End If Next NextNesse código, ele vai passar por todos os meus slides procurando pela palavra "Company" e formatando ela para NEGRITO, beleza, ele trabalha com a função "FIND" que localiza, mas resumindo o que preciso é: Localizar por um texto e ir até aquele slide! desde já, agradeço a todos.

Olá, preciso de ajuda com uma macro que criei para selecionar linhas de 2 planilhas diferentes e copia-las para uma terceira planilha para que eu possa comparar os dados, e o meu problema é toda vez que eu executar a macro preciso que a mesma pegue os dados das próximas linhas de baixo das planilhas correspondentes, onde o 'Rows' esta para (3:3), precisa que mude para (4:4) na próxima execução. Segue o código; Sub Compare() ' ' Compare Macro ' ' Atalho do teclado: Ctrl+i ' Sheets("Homologação").Select Rows("3:3").Select Selection.Copy Sheets("Teste").Select Range("A3").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("TIT").Select Rows("3:3").Select Selection.Copy Sheets("Teste").Select Range("A4").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

Tutoriais Word Aprenda a usar todos os recursos (básico e avançado) do Microsoft Word, o processador de textos mais utilizado no mundo todo. Vários tutoriais gratuitos ensinando passo a passo como utilizar esta poderosa ferramenta. Acesse e confira: www.tutoriaisword.com

Tutoriais Word Aprenda a usar todos os recursos (básico e avançado) do Microsoft Word, o processador de textos mais utilizado no mundo todo. Vários tutoriais gratuitos ensinando passo a passo como utilizar esta poderosa ferramenta. Acesse: www.tutoriaisword.com

bom dia a todos Sou iniciante na programação com vba e estou com muita dificuldade em fazer o código funcionar.Está aparecendo erro em tempo de execução "9" subscrito fora do intervalo. No código abaixo o erro aparece na linha " Sheets("DADOS").Select" .Já modifiquei as letras do nome da planilhas de minúsculo para maiúsculo e não fumcionu .Será que alguém poderia me ajudar. Sub CADASTRAR() Sheets("CADASTRAR").Select Range("A2:E2").Select Selection.Copy Sheets("DADOS").Select Range("A1048576").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.PasteSpecial xlPasteValues Sheets("CADASTRAR").Select Range("A2:E2").ClearContents Range("A2").Select End Sub

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

Olá, Tenho um FORM de login onde após digitar usuário e senha e clicar em ok, exibe um form de menu, mas preciso que exiba além do form do menu o de cadastro atrás. Hoje está assim ao clicar em ENTRAR no login: Private Sub BOTAO_ENTRAR_Click() Unload Me frmmenu2.Show --------------------------------------------------------------------------- Desta forma o frmmenu2 é exibido, porém preciso que um outro form chamado frmcadastro também seja exibido, mas atrás do frmmenu2 isso é possível?

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?

Olá, após procurar muito e não encontrar resolvi me cadastrar no site e tentar solicitar ajuda... Estou tentando criar uma macro que envia WhatsApp para clientes, porem encontro um problema onde não consigo enviar a msg. 1° Localizo o cliente 2° Abro a janela de conversa 3° Edito o innerText da div (local onde escreve a msg) *4° Clicar no botao enviar btn = Doc.getElementById("main").getElementsByClassName("icon btn-icon icon-send send-container") *4° O botao está desabilitado, o mesmo só hanilita após mudar o conteúdo da div (3° passo, porem ao rodar pela macro ele não habilita automaticamente). Forço habilitar pelo comando btn.disabled = false (visualmente falando ele habilita, mas em seguida executo o comando btn.click e não acontece nada). Obs: Se rodar a macro no F8 e no momento em que ele atribui a msg para o cliente eu fizer qualquer ação na div o botao é habilitado e o comando "btn.click" funciona Obrigado!!

Ola aluem poderia me ajudar preciso salvar meu formulário em pdf com nome e numero do pedido,para entender melhor eu tenho um formulário do salão com numero da OS data, nome ,tel1,tel2,10 tipos de tratamento 10 valores, na planilha fica muito extenso tenho o codigo para salvar a planilha mas quero salvar o formulário. vou deixar o codigo para quem quiser salvar a planilha funciona corretamente me ajudem com o codigo que preciso Salvar em pdf com nome e numero do pedido (abra uma pasta com nome de pedido e salve na área de trabalho Dim nome As String nome1 = Range("A1") nome2 = Range("b2") nome = nome1 & " " & nome2 ChDir "C:\Users\Planilhas Excel\Documents\’coloque aqui a pasta’" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ V_Caminho & "pasta" & nome, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True MsgBox "Salvo com sucesso!" + Chr(13) + Chr(13) & nome

Olá amigos, estou com um probleminha aqui em um código vba, estou desenvolvendo um controle de biblioteca com menu iniciar, para selecionar as ações de cadastro, devolução, emprestimo etc.., tudo funcionando beleza, o problema é que não estou conseguindo gerar um código para ao clicar no botão fechar (x), esse feche o userform (exemplo: cadastro) que está sendo usado e retorne ao menu iniciar. se alguém tiver alguma dica, agradeço desde já. O código que estu usando temporariamente é esse que segue abaixo, mas o que ele faz é salvar o trabalho que foi feito até o momento e fecha o workbook por completo: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then 'SALVAR ARQUIVO ThisWorkbook.Save 'SAIR DO EXCEL Application.Quit End If

Precisando de uma ajudam, estou precisando montar um código para chamar dados de umas listview de acorda com a coluna chamar os dados da coluna da frente. Ex: Ao clicar em um botão encontra o texto na coluna 2 da listview e pega o texto da coluna 3 na mesma linha e joga nas textboxs. Tenho um código já esta funcionando, encontrei esse código com preenchimento de uma textbox e fiz a alteração para outras não sei se esta correto o Código: txtclient8 = "" txtserv8 = "" txtclient83 = "" txtserv83 = "" txtclient9.Text = "" txtserv9.Text = "" Dim A8 As ListItem Dim A83 As ListItem Dim A9 As ListItem For Each A8 In lvwadriana.ListItems If A8.SubItems(2) = "08:00" Then txtclient8.Text = A8.SubItems(3) txtserv8.Text = A8.SubItems(4) Exit For End If For Each A83 In lvwadriana.ListItems If A83.SubItems(2) = "08:30" Then txtclient83.Text = A83.SubItems(3) txtserv83.Text = A83.SubItems(4) Exit For End If For Each A9 In lvwadriana.ListItems If A9.SubItems(2) = "09:00" Then txtclient9.Text = A9.SubItems(3) txtserv9.Text = A9.SubItems(4) Exit For End If Next Next Next

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