Pesquisar na Comunidade

E ai pessoal, tudo bem? Preciso de um super help com o meu projeto, estou inserindo dados de uma Form do Excel no Mysql , preciso inserir o horario que uma form abre e outro horário que ela fecha e o intervalo entre elas, Assim: Tabela: horario1 DATETIME, horario2 DATETIME, Diferenca DATETIME Form1: Private Sub UserForm_Initialize() inicio = Now() End Sub Private Sub UserForm_Terminate() fim = Now() diferenca = DateDiff("n", inicio, fim) 'Não sei se essa é a forma correta Conectar_BD End Sub Módulo do VBA: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim fld As ADODB.Field Dim sql As String Dim inicio As Date Dim fim As Date Dim diferenca As Date Sub Conectar_BD() 'connect to MySQL server using Connector/ODBC Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER=MySQL ODBC 5.3 Unicode Driver;" _ & "SERVER=localhost;" _ & " DATABASE=horario;" _ & "UID=root;PWD=senha;" & "OPTION=3;" conn.Open conn.Execute "insert into horario (horario1, horario2, diferenca) values ('" & horario1 & "', '" &horario2& "', '" & diferenca & "')" End Sub Neste caso eu preciso que grave no Mysql em formato de data em uma única linha os dados, ex: horario1 horario2 diferenca 23/02/2016 10:30:10 23/02/2016 10:35:10 23/02/2016 00:05:00 Obrigado fico no aguardo. Pessoal, me desculpem não sei como apareceu um tópico repetido esse é o tópico com a revisão.

E ai pessoal, tudo bem? Preciso de um super help com o meu projeto, estou inserindo dados de uma Form do Excel no Mysql , preciso inserir o horario que uma form abre e outro horário que ela fecha e o intervalo entre elas, Assim: Tabela: horario1 DATETIME, horario2 DATETIME, Diferenca DATETIME Form1: Private Sub UserForm_Initialize() inicio = Now() End Sub Private Sub UserForm_Terminate() fim = Now() diferenca = DateDiff("n", inicio, fim) 'Não sei se essa é a forma correta Conectar_BD End Sub Módulo do VBA: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim fld As ADODB.Field Dim sql As String Dim inicio As Date Dim fim As Date Dim diferenca As Date Sub Conectar_BD() 'connect to MySQL server using Connector/ODBC Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER=MySQL ODBC 5.3 Unicode Driver;" _ & "SERVER=localhost;" _ & " DATABASE=horario;" _ & "UID=root;PWD=senha;" & "OPTION=3;" conn.Open conn.Execute "insert into horario (horario1, horario2, diferenca) values ('" & horario1 & "', '" &horario2& "', '" & diferenca & "')" End Sub Neste caso eu preciso que grave no Mysql em formato de data em uma única linha os dados, ex: horario1 horario2 diferenca 23/02/2016 10:30:10 23/02/2016 10:35:10 Obrigado fico no aguardo.

Olá galera, bom dia/tarde/noite. Primeiramente gostaria de agradecer por estar dedicando seu tempo para ajudar pessoas com problemas no Excel/vba. Seguinte, meu problema é na realidade bem banal pra alguns de vocês. Estou tentando fazer uma "procv" para dois critérios, nesse caso, seria o "produto" e o "sabor". Utilizo o Index e o Match para poder realizar a busca onde o valor coincida com o produto e o sabor que a pessoa digitou. O código que fiz foi este: Infelizmente, quando você tenta procurar por um produto que não seja o primeiro da lista ele retorna um erro (1003) alertando que não foi possível obter a propriedade Index. Através de pesquisas descobri que a função Match no VBA só lhe retorna o primeiro valor, se não for o mesmo, ele dará erro. Entretudo, pelo que entendi o Match usado como Application.Match retorna o primeiro valor, mas não estou usando esse em questão, e sim uma função da planilha, porém não tenho certeza se difere. Muito obrigado por dedicar seu tempo ao meu tópico, se puder me ajudar, agradeço. :D Planilha: http://1drv.ms/1mYlnRy

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

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

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.

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

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

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?

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

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