Pesquisar na Comunidade

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

Pessoal, estou tentando fazer com que minha macro seja executada assim que a planilha é aberta, porém, quando executo a "Sub Auto_Open()" ela não abre a planilha o que faz com que a macro não funcione. E quando uso a "Sub Workbook_Open()" ou "Worksheet_Open" ela abre, mas não executa a macro. Estou tentando utilizar da seguinte forma, que funciona, mas não abre a planilha. Private Sub Auto_Open() If MsgBox("Deseja inserir um novo processo?", vbYesNo + vbQuestion, "Olá!") = vbYes Then InserirDados.Show Else End If End Sub Se alguém puder me ajudar ficarei muito grato!! :)

Boa tarde Pessoal, gostaria de esclarecer uma dúvida no VBA, o código a baixo envia o e-mail , porém não está enviando com a imagem no corpo do e-mail! Você conseguem me ajudar? Obs: é uma banco access com uma imagem que eu pego no arquivo do computador, quando eu comecei a fazer o código a idéia seria pegar um relatório do access e colar no corpo do e-mail como imagem, mas não consegui desenvolver o código! Private Sub SeuBotao_Click() Dim rst As DAO.Recordset Dim strDestinatarios Dim strTitulo Dim strMensagemCorpoDoEmail Set rst = CurrentDb.OpenRecordset("Con_email") Do Until rst.EOF strDestinatarios = strDestinatarios & rst("e-mail") & ";" rst.MoveNext Loop strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1) strTitulo = "Faturas Wappa à vencer" strMensagemCorpoDoEmail = "www.xxx.com.br" & vbCrLf & _ "xxxxxxxx" & vbCrLf & _ strMensagemCorpoDoEmail = "<img src=cid C:\Users\xxxxx.PNG>"

"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

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.

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

Boa tarde, meu nome é Vanio e após muitos acessos no fórum estou criando meu primeiro post. Desenvolvi uma aplicação vba no excel onde os usuários realizam cadastros de pessoas e veículos, e registram determinadas ocorrências diárias relacionadas a estes registros. Cada ocorrência gera um ticket que é impresso em uma impressora térmica, e ao final de cada período específico é impresso um relatório em uma impressora laser. No início havia 2 computadores e cada um fazia uma parte do trabalho (um deles gerava e imprimia os tickets, o outro imprimia os relatórios) e funcionava perfeitamente usando o comando de impressão: Sheets(a).PrintOut Copies:=copias, To:=nPgs, Preview:=view Para evitar retrabalho e aumentar o rendimento resolvi fazer tudo em cada computador. Agora preciso definir em qual impressora enviar o comando de impressão. Usei então para os relatórios: Sheets(a).PrintOut Copies:=copias, To:=nPgs, Preview:=view, ActivePrinter:="HP LaserJet 1015 PCL5e Series" e para os tickets: Sheets("Ticket").PrintOut ActivePrinter:="MP-4200 TH" Na teoria parece-me correto mas na prática não é bem assim, eventualmente a impressão sai na impressora ERRADA. Imagino que seja necessário inserir algum tipo de flush a cada início de função, mas desconheço a existência do mesmo. Se alguém puder me ajudar, desde já agradeço!

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

Boa dia! Estou tentando criar um vba para inserir a função "=SEERRO(ÍNDICE(ATIVOS!$B:$I;CORRESP (J$2&$F4;ATIVOS!$B:$B&ATIVOS!$C:$C;0);6);" ")" em um range de células, como na planilhas. A questão é que o número de colunas é desconhecido, visto que o número de tipos de produtos financeiros podem variar dia após dia. Quanto a essa questão, posso criar um contador de colunas, até chegar no "Empty". O mesmo vale para as linhas. Em cada linha há um cliente diferente. O grande diferencial de colocar essa fórmula em VBA é a questão do tempo de cálculo. Essa planilha demora uns 10, 12 min para ser calculada e ela é de uso diário (logo pela manhâ)

Prezados boa noite, Não sei o que houve mas não consigo automatizar a planilha mostrada. Ao excutar a mesma apresenta 'Erro de excução - Tipos imcompativeis'. Estou a 7 horas tentando fazer funcionar mas não consigo. Podem me ajudar por favor? Não consigo deixar uma query fixa, pois sempre existe uma alteração nos valores descritos no range. =================================================================================================== Sub TesteMYSQL() ' ' Macro4 Macro ' Dim BSQL As String BSQL = "SELECT column1, column2 FROM tabela1 iv Left Join Tabela2 ie ON iv.column3 = ie.column4 Left Join Tabela3 e ON ie.column4 = e.column5 WHERE e.column5 is not null and iv.supervisor IN " & _ Range("L12:L380").Value & "#" With ActiveWorkbook.Connections("vendas_regiao").ODBCConnection .BackgroundQuery = True .CommandText = Array(BSQL) End With End Sub

Pessoal, preciso de uma ajuda aqui no trabalho, Preciso automatizar uma criação de certificados, então preciso de um código que copie os dados de uma planilha do excel (Nomes, datas, local, nome do curso, etc) para o word e que salve o documento word em PDF com o nome do Aluno que estiver no certificado. OBG!

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!

Olá, pessoal! Nunca usei o vba no outlook, então peço a ajuda de vocês para um código que deve ser simples. Gostaria de criar uma macro que seja apenas uma condição: se o meu endereço de email estiver como destinatário/cc/cco, abrir uma MsgBox avisando. Como recebo muitos emails de grupo (inúteis), queria um aviso dos que vêm para mim mesmo. Obrigado desde já!

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\" &amp; Range("E5") &amp; " - " &amp; Range("k7") &amp; ".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

Estou com dificuldade tenho um banco de dados com vários nome de usuários e senhas mas quando vou fazer login so consigo logar com o nome de usuario e senha que esta em primeiro no banco de dados os demais não consigo o que esta faltando? O código é mais u menos isso: Public BD As Database 'Banco de Dados Public Colaboradores As Recordset 'Tabela Private Sub Command1_Click() If txtnome.Text = "" Then MsgBox "Digite nome de usuário!" txtnome.Text = "" txtnome.SetFocus End If If txtsenha.Text = "" Then MsgBox "Digite a senha!" txtsenha.Text = "" txtnome.SetFocus End If txtnome.SetFocus If Colaboradores("Nome") = txtnome.Text And Colaboradores("Senha") = txtsenha.Text Then FrmPrincipal.Show Unload Me Else MsgBox "Nome ou senha Incorretos.", vbCritical, "Erro" End If End Sub Private Sub Form_Load() Set BD = OpenDatabase(App.Path & "\login.mdb") Set Colaboradores = BD.OpenRecordset("login", dbOpenTable) End Sub

Pessoal, Bom Dia ! Sou novo aqui no Fórum, ultimamente tenho trabalhado bastante com demandas de automatização em planilhas de Excel. Estou com o seguinte problema: Criei uma planilha com uma interface simples onde os valores de algumas células serão atualizadas como novos registros em um Banco de Dados Access, porém ao verificar os valores das variáveis, os valores estão aparecendo como 0, ou 00:00:00 horas e 30/12/1899 para datas, sendo que os registros nas células do excel estão preenchidas corretamente e devidamente formatadas. A única variável que traz corretamente é a informação do usuário que eu pego ObjNetwork.UserName, todas as demais vindas do Excel, vem com valores zerados. Aparentemente o conexão com o Banco de Dados esta funcionando corretamente, pois os valores estão sendo registrados. Utilizo o seguinte código para associar as informações; Dim vdata As Date Dim vOR As Integer vOR = Sheets("Formulario").Range(D5).Value vdata = Sheets("Formulario").Range(D3).Value ........ objRecordSet.AddNew objRecordSet("OR") = vOR objRecordSet("Data") = vdata Se alguém tiver uma luz para me ajudar !!! Obrigado Hugo Santos

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

Boa tarde pessoal! Eu trabalho com distribuição de jornais e precisei criar um pequeno arquivo em Excel VBA para repartir os jornais que recebo do Globo, Dia, Extra, Lance, Expresso, Povo, Voz da serra(Jornal da minha cidade) Meia hora, Valor e por aew vai... Eu fiz esse arquivo Excel e incrementei pesquisando no google e vendo como incluir alguns comandos em fóruns inclusive através deste forum. Eu não sou muito conhecedor de VBA Excel e por isso gostaria de saber se alguém pode ma ajudar. A planilha REPARTE é assim: Nesta planilha acima, cada ponto recebe uma quantidade. Até aí beleza. Criei a planilha outra IMPRIMIR para que tudo que eu distribuir na Planilha REPARTE seja inserido ou modificado na planilha IMPRIMIR dinamicamente. Cheguei num ponto onde preciso imprimir então os romaneios ou comandas que vão junto com os jornais para cada ponto que distribuo e acabo tendo um problema que é o seguinte. Existem pontos que não recebem certos jornais em determinados dias, e essa informação eu não tenho como ficar alterando todo vez que preciso retirar no reparte algum jornal para determinado ponto e acabo ao ter que imprimir deixar que seja impresso em determinado ponto que certo jornal não vai por exemplo: Gostaria de saber se existe a possibilidade de criar uma macro para que a impressão desses romaneios ou comandas seja feitas (Não sei se posso dizer) "dinamicamente" onde esse comando reconheça automaticamente que se certo ponto esta com reparte 00 para algum jornal e não seja impresso no romaneio e pule para o próximo jornal que esteja lançado para aquele ponto. E automaticamente pule para o ponto 002, faça a mesma coisa imprima, passe para o 003 depois 004 e assim sucessivamente ate acabar de imprimir o ultimo ponto. Quem puder ajudar me ajudaria muito. O arquivo que criei esta aqui nesse link --> Baixar a planilha Desde já muito Obrigado!

<>

Boa tarde, Este é meu primeiro post. Bom eu estou fazendo o seguinte: Criei uma mala direta com base em uma planilha do Excel que contem alguns campos dentre eles um chamado CAT, no arquivo do word esse campo é referido ao "Vinculo", porem no "Vinculo" existem 3 check box com as palavras EFETIVADO, ADMITIDO e EM COMISSAO. Na tabela do Excel a coluna CAT representa o vinculo se o funcionário é Efetivado, Admitido e Em Comissão, o que gostaria de fazer é o seguinte: Uma macro que será executada assim que abrir o arquivo; Uma regra em que quando o valor recebido por um dos 3 citados acima, a caixa de seleção correspondente seja marcada; Para que quando eu for visualizando os resultados da mala direta, cada funcionário tenha a caixa marcada de acordo com o seu vinculo. Como seria possível fazer isso? Eu fiz toda a logica das caixas de seleção, porem não sei como faço para que uma variável receba os valores da coluna CAT da planilha do Excel. Não tenho ideia de como declara-la. Desde já, 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