Pesquisar na Comunidade

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

Boa tarde , Pessoal. Peço minhas sinceras desculpas se não seria nesse tópico que teria que postar essa minha duvida. Preciso de um código em VBA , pois tenho um planilha como a em anexo " modo com erro" e gostaria que ficasse como a foto "pronto". Explicando melhor seguindo a coluna dos títulos sequencial quando não tiver o numero Sequencial vai adicionar uma linha e incluir o numero de titulo que falta Sequencial.

Olá pessoal, Devido a uma necessidade que eu tinha de aprender VBA, mas só achava na net vídeos ou blogs a respeito, resolvi desenvolver junto com um grande amigo o próprio site de ensino gratuito. https://superexcelvba.com Será uma honra ter a visita de vocês, e agradeço se puderem dar um feedback (se tiverem sugestões, críticas ou elogios) Obrigado a todos e tenham um ótimo dia. Luiz

Pessoal, bom dia.Meu projeto refere-se ao nº de resets que são feitos nos sistemas que os operadores utilizam. Eu tenho uma listview onde são carregados todas as colunas que são carregadas em planilha de excel. Porém teria como criar critérios para exportar, tipo: quantidade de resets por operador, quantidade de resets por período e assim por diante. Com base nesses resultados é gerado o gráfico.Tem como ser assim?Obrigado.

Boa tarde, pessoal. Estou há dias quebrando a cabeça com uma rotina e gostaria da ajuda de vocês. Fiz uns formulários que serão utilizados em uma clínica. Um desses formulários é o de fluxo de caixa. Nele é possível inserir despesas e ver o total de despesas por período (período que o usuário digita em 2 textbox). Isso funcionou certinho porque a inserção da despesa é em 1 dia, ficando fácil a comparação entre datas. O que não estou conseguindo fazer é um código que retorne as receitas, haja vista que a clínica tem planos individual, mensal, trimestral e semestral. Explicando melhor: Quando se faz o cadastro do paciente, se escolhe o plano no formulário (combobox) e se insere a data de início do serviço. Um código automaticamente calcula a data de fim (1 mês, 3 meses ou 6 meses) e registra isso numa planilha. A rotina das receitas, então, deve ir nessa planilha, verificar se as datas de início e fim do serviço estão dentro do período digitado pelo usuário em 2 textbox (um para início e outra para data do fim do período). Uma vez que retorne um valor verdadeiro, deve verificar o plano: Se é trimestral e o período inserido pelo usuário é de um mês, deve pegar o valor total pago e dividir por 3.. se o período inserido é de 2 meses, deve pegar o valor total, dividir por 3 e então multiplicar por 2.. se o período for igual a 3 meses ou mais, retorna o valor total pago. Há solução para isso? Desde já agradeço. OBS; segue abaixo o que tentei fazer Private Sub CmbBuscar3_Click() If TxtDataInicio2.Text <> "" And TxtDataFim2.Text <> "" Then 'datainicio2 e datafim2 são os txtbox para inserção, pelo usuários, do período desejado periodo = DateDiff("m", DateValue(TxtDataInicio2.Value), DateValue(TxtDataFim2.Value)) Else MsgBox "Digite uma data de início e fim para a pesquisa" GoTo Rotulo1 End If nalunos = Sheets("ALUNOS").Cells(Rows.Count, 1).End(xlUp).Row dinheiro = 0 debito = 0 credito = 0 Total = 0 For i = 2 To nalunos If DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "N") And DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "N") Then If Sheets("ALUNOS").Cells(i, "J") = "Trimestral" Then If periodo <= 1 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If End If If 1 < periodo And periodo <= 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If End If If periodo > 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If End If If Sheets("ALUNOS").Cells(i, "J") = "Semestral" Then If periodo <= 1 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If End If If 1 < periodo And periodo <= 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If End If If 2 < periodo And periodo <= 3 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If End If If 3 < periodo And periodo <= 4 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If End If If 4 < periodo And periodo <= 5 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If End If If 5 < periodo Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If End If End If If Sheets("ALUNOS").Cells(i, "J") = "Individual" Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If If Sheets("ALUNOS").Cells(i, "J") = "Mensal" Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If End If continue: Next Total = credito + debito + dinheiro TxtReceitas.Text = "Receita em cartão de crédito: R$ " & credito & vbCrLf 'txtreceitas é onde irá retornar os cálculos TxtReceitas.Text = TxtReceitas.Text & "Receita em cartão de débito: R$ " & debito & vbCrLf TxtReceitas.Text = TxtReceitas.Text & "Receita em dinheiro: R$ " & dinheiro & vbCrLf TxtReceitas.Text = TxtReceitas.Text & "Receita Total: R$ " & Total & vbCrLf Rotulo1: End Sub

Tenho um banco de dados access que é atualizado constantemente, gostaria de consultar periodicamente esse banco de dados e enviar e-mail's a partir dos resultados da consulta.

Boa noite. Não entendo nada de VBA mas estou precisando automatizar umas funções no meu serviço e acho que esse é o caminho. Gostaria de saber se é possível eu extrair dados (datas, nomes, dentre outros) de uma planilha (relatório) enviada por outra pessoa para uma planilha de controle minha, sendo que são diversos relatórios de enviadas por diversas pessoas. Desde já agradeço!

Bom dia!Pessoal preciso de uma ajuda urgente!!Estou com problema nos meus códigos, preciso fazer um formulário do qual numa única TextBox seja possível atingir duas linhas. Então, segue a planilha fiz alguns exemplos e espero que esteja claro: Exemplo 1 e Exemplo 2Obrigado e tenham um ótimo dia!Lonx.

Olá amigos, sábios, jedis, magos e mestres do VBA e outros colaboradores. Criei uma macro que, através de uma variável, realiza uma importação dos dados de uma página web da intranet do meu trabalho. Tudo funciona bem, mas somente após eu fazer uma acesso à página pelo próprio Excel. Nesta pasta tenho duas planilhas: a "DadosImportados" que é uma planilha vazia, para importação dos dados; e a planilha "ROTEIRO" que é preenchida com os dados importados. Quando eu abro a planilha, se eu clicar imediatamente no botão de importação, me ocorre o "Erro de tempo em execução '91' A variavel do objeto ou a variavel do bloco with não foi definida". Fazendo o debug passo-a-passo com F8 percebi que os dados não estão sendo importados. Depois de alguns testes descobri que a macro só funciona corretamente após ir na planilha "DadosImportados" e clicar com o direito do mouse, escolher a opção "Editar consulta". Feito isso abre o navegador do excel e não preciso esperar a página carregar, apenas clico no botão "Cancelar". Após fazer isso a macro funciona corretamente. Gostaria de utilizar a pasta sem precisar ter que ir em "Editar Consulta". É como se fizesse necessário acessar a página antes para a consulta funcionar. Sub ImportaDadosS400() ' ' Macro para importação de dados do S400 ' 'Declaração das variáveis Dim sicad As String Dim nome As String Dim cpf As String Dim agencia As String Dim status As String Dim val_cad As String Dim val_cad_date As Date Dim porte As String Dim segmento As String Dim atividade As String Dim renda As String Dim renda_num As Currency Dim logradouro As String Dim bairro As String Dim cidade As String Dim cep As String Dim endereco As String Dim filiacao As String Dim naturalidade As String Dim dt_nascimento As String Dim identidade As String Dim org_expedidor As String Dim dt_emissao As String Dim estado_civil As String Dim p As LongPtr Dim i As LongPtr Application.ScreenUpdating = False sicad = Sheets("ROTEIRO").Range("SICAD1").Value Sheets("DadosImportados").Select If sicad = "" Then MsgBox "Favor preencher o sicad apenas com números." & Chr(10) & "" & Chr(10) & " Clique em OK", vbOKOnly, "SICAD NÃO PREENCHIDO" Sheets("ROTEIRO").Select Range("SICAD1").Select Exit Sub Else MsgBox "O processo de busca dura entre 10 e 40 segundos." & Chr(10) & "" & Chr(10) & " Clique em OK", vbOKCancel, "FIQUE TRANQUILO" With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://d001mfp1/S400-CCClientes/faces/_rlvid.jsp?_rap=pc_ConsultarCadastrosLista.doRowAction1Action&_rvip=/consultarCadastros.jsp&codigoClienteParam=" & sicad _ , Destination:=Range("$A$1")) .Name = "cadastro" & sicad .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = """tabelaFiltroSecao""" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Sheets("DadosImportados").Select Cells.Find(What:="Nome", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate nome = ActiveCell.Value Cells.Find(What:="CPF", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate cpf = ActiveCell.Value Cells.Find(What:="Agência Responsável", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate agencia = ActiveCell.Value Cells.Find(What:="Situação de Cadastro", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate status = ActiveCell.Value Cells.Find(What:="Próxima Renovação", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate val_cad = ActiveCell.Value Cells.Find(What:="Porte", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate porte = ActiveCell.Value Cells.Find(What:="Segmento", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate segmento = ActiveCell.Value Cells.Find(What:="Atividade Principal", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate atividade = ActiveCell.Value Cells.Find(What:="Renda Bruta Mensal", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate renda = ActiveCell.Value Cells.Find(What:="ENDEREÇO RESIDENCIAL", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Select logradouro = ActiveCell.Value ActiveCell.Offset(1, 0).Select bairro = ActiveCell.Value Cells.Find(What:="cidade", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate cidade = ActiveCell.Value Cells.Find(What:="CEP", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate cep = ActiveCell.Value Cells.Find(What:="Filiação", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate filiacao = ActiveCell.Value Cells.Find(What:="Natural de", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate naturalidade = ActiveCell.Value Cells.Find(What:="Data de Nascimento", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate dt_nascimento = ActiveCell.Value Cells.Find(What:="Identidade", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate identidade = ActiveCell.Value Cells.Find(What:="Órgão Emissor", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate org_expedidor = ActiveCell.Value Cells.Find(What:="Data de Emissão", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate dt_emissao = ActiveCell.Value Cells.Find(What:="Estado Civil", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate estado_civil = ActiveCell.Value nome = Replace(nome, "Nome: ", "") cpf = Replace(cpf, "CPF: ", "") agencia = Replace(agencia, "Agência Responsável: ", "") agencia = Left(agencia, 3) status = Replace(status, "Situação de Cadastro: ", "") val_cad = Replace(val_cad, "Próxima Renovação: ", "") val_cad_date = val_cad porte = Replace(porte, "Porte: ", "") segmento = Replace(segmento, "Segmento: ", "") atividade = Replace(atividade, "Atividade Principal: ", "") renda = Replace(renda, "Renda Bruta Mensal: R$ ", "") renda_num = renda logradouro = Replace(logradouro, "Logradouro: ", "") bairro = Replace(bairro, "Bairro: ", "") cidade = Replace(cidade, "Cidade: ", "") endereco = logradouro & ", " & bairro & ", " & cidade & ", " & cep filiacao = Replace(filiacao, "Filiação: ", "") naturalidade = Replace(naturalidade, "Natural de: ", "") dt_nascimento = Replace(dt_nascimento, "Data de Nascimento: ", "") identidade = Replace(identidade, "Identidade: ", "") org_expedidor = Replace(org_expedidor, "Órgão Emissor: ", "") dt_emissao = Replace(dt_emissao, "Data de Emissão: ", "") estado_civil = Replace(estado_civil, "Estado Civil: ", "") Sheets("ROTEIRO").Select Sheets("ROTEIRO").Range("NOME").Value = nome Sheets("ROTEIRO").Range("CPFNOME").Value = cpf Sheets("ROTEIRO").Range("AGENCIA1").Value = agencia Sheets("ROTEIRO").Range("STATUS_CADASTRO1").Value = status Sheets("ROTEIRO").Range("VALIDADE_CADASTRO1").Value = val_cad_date Sheets("ROTEIRO").Range("PORTE1").Value = porte Sheets("ROTEIRO").Range("SEGMENTO1").Value = segmento Sheets("ROTEIRO").Range("ATIVIDADE1").Value = atividade Sheets("ROTEIRO").Range("RENDA1").Value = renda_num Sheets("ROTEIRO").Range("ENDERECO1").Value = endereco Sheets("ROTEIRO").Range("FILIACAO1").Value = filiacao Sheets("ROTEIRO").Range("NATURALIDADE1").Value = naturalidade Sheets("ROTEIRO").Range("DT_NASCIMENTO1").Value = dt_nascimento Sheets("ROTEIRO").Range("IDENTIDADE1").Value = identidade Sheets("ROTEIRO").Range("ORG_EMISSOR1").Value = org_expedidor Sheets("ROTEIRO").Range("DT_EMISSAO1").Value = dt_emissao Sheets("ROTEIRO").Range("EST_CIVIL1").Value = estado_civil 'Sheets("DadosImportados").Range("b26").Value = DateValue(data) Sheets("DadosImportados").Select Cells.Select Selection.ClearContents 'Call Excluiplanilha End If MsgBox "Dados importados com sucesso!" & Chr(10) & "" & Chr(10) & " Clique em OK e verifique os dados.", vbOKOnly, "Importação concluída" Application.ScreenUpdating = True Sheets("ROTEIRO").Select Range("STATUS_CADASTRO").Select End Sub

Como criar um código onde o mesmo inicia assim que o documento é aberto? Fiz uma programação de login no Access através da programação VBA, mas não sei fazer com que assim que abra o documento ele fixe a tela de login até preencher seus dados.

Boa tarde a todos, Gostaria muito da ajuda, pois não encontrei nas minhas pesquisas para resolver meu problema. Tenho uma planilha que ela tem mais de mil linhas, basicamente a macro que gravei é simples: ela pega a primeira linha, cola em outra planilha, copia os valores, depois volta pra planilha inicial compia a segunda linha e cola na outra planilha e copia valores. No entanto, é inviável eu gravar a macro para todas as linhas, por isso quero criar um loop que reproduza a mesma gravação para todas as linhas da planilha até encontrar uma linha vazia, que acaba o loop. Alguém consegue me ajudar inserindo o loop nos códigos?? Sub teste() ' ' teste Macro ' ' Range("A4:O4").Select Selection.Copy Range("A1").Select ActiveSheet.Paste Sheets("Planilha3").Select Range("A2").Select ActiveSheet.Paste Range("P2:T2").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Planilha2").Select Range("A5:O5").Select Application.CutCopyMode = False Selection.Copy Range("A1").Select ActiveSheet.Paste Sheets("Planilha3").Select Range("A3").Select ActiveSheet.Paste Range("P3:T3").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

Aprenda a programar em VBA e automatize diversas tarefas do Word. e-Book Word 2010 VBA Número de Páginas: 596 Formato PDF Mais detalhes acesse: https://www.tutoriaisword.com/programacao-vba.htm

Boa tarde. Sou novo em programação estou tentando fazer um projeto para um trabalho Estou criando uma macro para abrir uma outra planilha no Excel sendo o que a planilha fica em meu diretório e ela é atualizada toda segunda feira quando ela e atualizada o nome muda gostaria de deixar automático para não precisar ficar alterando o nome toda segunda. O que consegui fazer esta abaixo mas quando ele não encontra a 1 não prossegue com a depuração da um erro de arquivo não localizado e não continua. ______________________________________________________________________________ Sub Main() Application.DisplayAlerts = False If retval = xlsm Then ChDir "C:\planilha atualizada" Workbooks.Open Filename:="C:\planilha atualizada\19112018.xlsm" ElseIf retval = xlsm Then ChDir "C:\planilha atualizada" Workbooks.Open Filename:="C:\planilha atualizada\12112018.xlsm" End If End Sub ______________________________________________________________________________

Bom dia amigos... sou novo no forum, e estou começando com VBA.Tenho um formulário em pdf, porém está em inglês. Estou fazendo o mesmo formulário em português, no excel, porém estou com um problema: quando clico em algumas células, ela insere um marcador. Eu gostaria de limitar os marcadores para apenas uma das células da coluna ou seja, quando clico em outra célula o marcador se apaga e é inserido na nova célula que eu cliquei.estou utilizando o seguinte código, porém ele não faz o que eu quero, ele só insere o marcador, porém mantém todos, não apaga um para inserir outro:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not Intersect(Target, Range("e7:e12")) Is Nothing ThenApplication.EnableEvents = FalseIf ActiveCell.Value = ChrW(&H2713) ThenActiveCell.ClearContentsElseActiveCell.Value = ChrW(&H2713)End IfCancel = TrueEnd IfApplication.EnableEvents = TrueEnd subObservação: estou fazendo uma planilha no excel, traduzida para o português, com base em um arquivo interativo em pdf... eu quero fazer na minha planilha o que faz no pdf interativo. O pdf etá nesse endereço: http://www.ergonomiesite.be/documenten/tillen/KIM-tillen-interactief.pdf

Olá, Tenho a seguinte dúvida. Estou criando um chat usando duas textbox, para receber mensagens e a outra que seria as mensagens que enviei, e quero deixa-lo organizado da mesma maneira que um chat ao enviar as mensagens. Por exemplo, na texbox1 (a que recebe minhas mensagens enviadas) está com multLine ativo (ambas estão), então quando exceder o espaço dela, quebrará para próxima linha. Quando receber dados na textbox2 (a que recebe as mensagens de resposta) ele deverá contar as linhas da textbox1 e pular na textbox2, começando a exibir os dados somente a partir do número de linhas utilizado na textbox1. Porém não conseguir fazer isso funcionar... Estava tentando usar laço de repetição, porém do jeito que tentei não funcionou... Private Sub btnEnviar_Click() If txtChatEnv = "" Then Else txtEnvResp.Text = txtEnvResp.Text & (" - " & Now()) & vbCrLf txtEnvResp.Text = txtEnvResp.Text & txtChatEnv.Text & vbCrLf txtEnvResp.SetFocus L = txtEnvResp.LineCount txtRecResp.SetFocus P = txtRecResp.LineCount Do Until P <> L txtRecResp.SetFocus P = P + 1 txtRecResp.Text = txtRecResp.Text & vbCrLf Loop txtRecResp.Text = "teste" txtChatEnv.SetFocus txtChatEnv = "" End If End Sub Se alguém souber como fazer isso funcionar, desde já agradeço!

Boa tarde, tenho um código que filtra uma tabela pela data. Porém, está dando erro, pois, o VBA não entende que o formato que está na CÉLULA é dd/mm/yyyy, ele entende mm/dd/yyyy. Alguém pode me ajudar ? Sub Filtro_Data() Application.Calculation = xlAutomatic Dim data_ini As Date Dim data_fin As Date data_ini = DateValue(Format(Range("F2"), "dd/mm/yyyy")) data_fin = DateValue(Format(Range("G2"), "dd/mm/yyyy")) Sheets("BACABA").Select Selection.AutoFilter ActiveSheet.Range("$c$5:d$50000").AutoFilter Field:=2, Criteria1:= _ ">=" & data_ini, Operator:=xlAnd, Criteria2:="<=" & data_fin End Sub

Boa tarde, Estou tentanto criar um formulário que pesquisa dados no meu ficheiro em excel, mas não estou conseguindo, dá sempre erro: "Run-time error '1004': Select Method of worksheet class field" E não consigo passar daqui. Código: Private Sub CommandButton1_Click() Pesquisa_Venda.Show False End Sub Private Sub TextBox1_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Long Dim pequisa Dim mensagem codigo = TextBox1.Text Sheets("Serviços").Select Set intervalo = Range("A10:N100000") On Error GoTo trataErro Parceiro = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) Nomeclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) NIFclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) Tarifario = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) datarec = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) datareg = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) estado = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) TextBox2.Text = Nomeclt TextBox3.Text = Parceiro TextBox4.Text = NIFclt TextBox5.Text = Tarifario TextBox6.Text = datarec TextBox7.Text = datareg TextBox8.Text = estado TextBox1.SetFocus Exit Sub trataErro: texto = "O NIF indicado não consta na base de dados" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub Private Sub UserForm_Click() End Sub

Pessoal eu preciso muito de ajuda com o seguinte, Eu preciso criar uma Sub no vba que me traga uma msgbox "Ultrapassa 45 dias " quando a diferença em dias da data que for inclusa em qualquer célula da coluna b for superior a 45 dias em relação a data que for inclusa na célula que estiver na mesma linha na coluna C. E além da msgbox eu queria que o Excel excluísse o conteúdo da célula C para que o usuário não consiga colocar uma data que ultrapasse os 45 dias em relação a data inicial que deve ser escrita na coluna B. Alguém me ajuda por favor a msgbox eu até consegui incluir combinando( If , datediff e msgbox) mas excluir o conteúdo eu não estou conseguindo.

Bom dia, Ainda sei pouco sobre VBA e preciso de ajuda para fazer um código que, a partir de um número especificado de parcelas, insira em outra guia todas as parcelas até chegar neste número. Por exemplo: Se eu adicionar em na guia inicial - Número de Parcelas: 10 Em outra guia, precisaria: A1 = 1 A2 = 2 ... A10 = 10 Alguém poderia me auxiliar?

Alguém manja como fazer uma macro que fique rodando o aleatório e ela parar automaticamente quando um determinado objetivo for atingido?

Boa tarde Pessoal, Tenho uma planilha que no caso seria minha planilha principal onde em uma coluna da mesma possui-se o nome de outras planilhas (abas de trabalho ou no caso outras Worksheets), gostaria de uma função que ao selecionar esse coluna que tem o nome das planilhas e indicar uma celular, Ex: "C1", ele fosse até a planilha em questão na célula em questão e me retorna-se o valor da mesma. Já tentei de diversas formas, porém ou dá erro de referência ou erro de valor, abaixo segue uma das funções que criei: Function VALORES(nomePlan As Range, refe As String) ActiveCell.Value = Worksheets(nomePlan.Value).Range(refe).Value End Function Se puderem me ajudar agradeço.

Bom Dia galera! Alguém sabe se é possível, carregar email de uma caixa de Entrada do Lotus Notes , em uma base Excel, temos uma caixa de email genérica e nela trabalham algumas pessoas tratando reclamações via email, gostaria de uma forma que separar por usuário para que um não trate o mesmo que outro, a única forma que me ocorreu foi carregando a caixa de entrada em uma planilha achei alguns códigos mas para outlook. Ajudaria se alguém que soube também aonde encontro as bibliotecas do Notes! Obrigado Galera!!!!!!!!!!

Boa noite, Tenho ficheiro onde através de um formulário ele guarda os dados do mesmo numa tabela à parte, no entanto precisava que ao pressionar enviar, o formulário além de guardar os dados nessa tabela, enviasse também por mail todo o conteúdo, ou seja, o texto e imagens. Além disso gostava também que o mail assumisse no assunto e no corpo do mail dados do preenchimento do formulário. Abaixo imagem do formulário e mail que é pretendido enviar. Formulário: https://uploaddeimagens.com.br/imagens/sem_titulo-jpg-0b6713c0-2d3f-4921-b79a-220bb6940d2e Mail: https://uploaddeimagens.com.br/imagens/sem_titulo_2-jpg-465a1b46-3071-4c79-b94e-114578b3156b O pretendido é que mediante a Tecnologia escolhida, ele envie o mail para uma caixa de mail, exemplo: Fibra: mail1@mailteste.pt ADSL: mail2@mailteste.pt E que onde representei as variáveis, as mesmas sejam substituídas pelos dados do formulário que se encontram nos campos correspondentes ás mesmas, incluindo também a imagem carregada no formulário, no corpo do mail, tal como está no anexo. Será que me podem ajudar? Obrigado.

Tenho um problema com meu código de transcodificação. Eu tenho essa função translate o qual codifica e descodifica uma mesnagem, mas quando ela descodifica, a mensagem sai toda errada. Eis o código abaixo. ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Function translator(ByVal text As String, ByVal from As String, ByVal dest As String) As String Dim i As Integer For i = 1 To Len(from) Debug.Print Mid(from, i, 1) & vbTab & "#" & Format$(i, "00") & "#" text = Replace(text, Mid(from, i, 1), "#" & Format$(i, "00") & "#") i = i + 1 Next For i = 1 To Len(from) Debug.Print "#" & Format$(i, "00") & "#" & vbTab & Mid(dest, i, 1) text = Replace(text, "#" & Format$(i, "00") & "#", Mid(dest, i, 1)) i = i + 1 Next translator = text End Function ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Agradeço a ajuda.

Boa noite pessoal, preciso da ajuda de vocês pra algo que parece simples, mas por falta de prática não estou conseguindo fazer. Tenho um formulário que esta sendo alimentado pelo meu bd, quero filtrar ele quando marco um checkbox. Por exemplo, tem uma coluna no meu bd que chama "Premium", quero filtrar somente os clientes Premium quando marcar essa checkbox. Consegui um código que esta funcionando, porém, não atualiza o formulário deixando somente os clientes Premium visíveis. Private Sub FiltroPremium_AfterUpdate() If Me.FiltroPremium = -1 Then Me.Filter = "Premium = 'Sim'" Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If End Sub Desde já, muito obrigado.