Jump to content

Search the Community

Showing results for tags 'vba'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

  1. Bom dia, Estou a tentar criar um botão num documento do Word, que me possibilite enviar esse mesmo documento como anexo através do Outlook. Tenho conseguido indicar o assunto, remetente e destinatário através de um código que tenho utilizado, mas não consigo anexar o documento Word. Tenho até conseguido colocar no corpo da mensagem o conteúdo do ficheiro, mas o que pretendo mesmo é que o ficheiro Word seja remetido em anexo. Agradeço a vossa ajuda Private Sub CommandButton1_Click() Dim Email_Assunto As String Dim Email_Enviado_De As String Dim Email_Enviado_Par
  2. Boa tarde Gostaria de saber se alguém me podia ajudar com esta questão. O seguinte código envia via VBA um e-mail para joao@gmail.com, contendo informação acerca do array fornecedor: public sub enviaEmail() Dim Email_Subject, Email_Send_From, Email_Send_To, _ Email_Cc, Email_Bcc, Email_Body As String Dim Mail_Object, Mail_Single As Variant Email_Subject = "ALERTA AUTOMÁTICO - CONTRATOS" Email_Send_From = "joao@gmail.com" Email_Send_To = "joao@gmail.com" 'Email_Cc = "databison@gmail.com" 'Email_Bcc = "databison@gmail.com" 'If Time > "14:30:00" Then Email_Body = "Boa tarde - veri
  3. Boa tarde, Tenho uma tabela onde existem peças,com prazos de entrega diferentes. Cada peça necessita de matéria prima para ser feita. Tenho uma macro que me diz quais têm matéria e quais não têm. O problema é que ao preencher as células existem peças com prazo mais pequeno de entrega onde me diz que não tenho matéria prima, e mais a frente tenho peças com mais validade onde já acusa ter matéria prima. O que eu pretendia fazer era: Ele verificava onde não tinha e iria substituir, mas retirando matéria as peças com prazo maior. Alguém me consegue
  4. Olá, estou com um loop infinito e não sei como resolver. Estou usando o evento change para saber se a célula foi altera. Em seguida vou passando por algumas Sub's. Ocorre que no célula data entro em loop sem sair. 01 - Imagem https://www.dropbox.com/s/csfh2iuwurzwuqy/vba_change.png?dl=0 02 - Codigo WorkSheet_Change Option Explicit Private Sub WorkSheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Range("$C$2").NumberFormat = "dd/mm/yyyy" Valida_Data End If If Target.Address = "$E$2" Then Range("$E$2").NumberFormat
  5. RafaelFranckilin

    Iniciar programa com o windows

    Pessoal, eu preciso colocar meu programa para iniciar junto com o windows, mas meu programa tem um arquivo de configuração (app.config), como eu faço? agradeço desde já.
  6. Tenho uma planilha feita no Excel 2003. Apesar de não ter macros, protegi o VBA com senha (Alt+F11 - Propriedades de VBAProject/Proteção), pois há uma planilha oculta como: 2 - xlSheetVeryHidden Por isso protegi o VBA, para que o usuário não torne a planilha oculta. Repito: não há módulos, formulários, macros, nada. Ao abrir no Excel 2007 em modo de compatibilidade, para minha surpresa o VBA está ativo, pois a senha sumiu. No Excel 2003 continua protegido, mas no Excel 2007 não.
  7. Boa Noite, Sou Novo no VBA e estou a tentar desenvolver uma macro que me faça o seguinte: tenho Vários dados em 5 colunas e o que pretendo fazer é um filtro pela coluna [E] e que adicione novo livro em csv com o nome do filtro, mas se o livro já existir então vai colar os dados de acordo a coluna [A]. ex:macro faz filtro pela coluna E, copia linha 1, 2 para um novo livro com o nome 100, se esse livro já existe, então vai copiar os dados e colar na ultima célula preenchida se não existir as datas 15/08/2019 ou 16/08/2019, se as datas existirem então substituir os dados. O que tenho até agora é
  8. Bom dia a todos, Gostaria de saber se existe alguma forma de exportar os campos de uma tabela ou consulta no formato XML. A ideia seria criar um botão com um evento, que vai buscar os dados como por exemplo: (cliente, morada, cidade)...e exportar para XML capaz de ser guardado na área local.
  9. Ola pessoal boa tarde, sou novo ainda no VBA. Bom, eu queria um código para que quando aparecer o valor aleatório na célula x, ele gere valores impares até o valor daquela célula X. Por exemplo. Valor da célula X= 304 (valor aleatório) Gerar uma coluna inteira, do A1=5 ATE A289= 300. com os valores espaçados a cada 8 linhas entre eles. Ou seja: A1= 5 pula 8 linhas A9=10 e etc... Comecei com algo, porem quando eu digito valores aleatórios pares ele gera valores até o final da coluna. Vou agradeçer
  10. Afonso Mira

    excel SOMA.SE em VBA

    Boa tarde tenho o seguinte problema: Tenho 2 tabelas: Tabela1 com datas; Tabela2 com datas e valores; Tenho o (SOMA.SE Data da Tabela2;Data Tabela1;VALORES) numa celula da tabela 1; Em VBA tenho o seguinte código: Folha4.Range("C7").Value = WorksheetFunction.SumIf(("R:R"), "B7", ("U:U")) Mas dá-me um erro que não percebo qual seja. Alguém me consegue ajudar?
  11. Oi pessoal estou com um problema que não consigo resolver. O que eu queria fazer era o seguinte: Sempre que o valor constante linha 16 for igual ao valor da linha 9, a macro executasse automaticamente, ou seja, enviando um e-mail com a informação, segue eu precisasse digitar o valor na linha. Obs.: A linha 9 é uma fórmula, ou seja, não digito o valor. Na linha 16, o valor é digitado e quando o valor da linha 9 (que é fórmula) atingir automaticamente o valor da linha 16, o e-mail é disparado. Segue abaixo a macro que de estou tentando resolver o problema:
  12. Boa tarde, Precisava da vossa ajuda, se fosse possível, para o seguinte : Tenho um livro excel com 3 folhas (cadorc, orcamento e Sheet 1). Queria copiar dados da folha orçamento para a Sheet1. O meu problema é que por cada novo orçamento os dados da folha orcamento são apagados. Queria que a Sheet1 fosse a base de dados de todos os orçamentos , ou seja , queria copiar os dados para esta sem apagar os anteriores. Tenho uma rotina que ,embora lenta, faz a copia. Problema é qua apaga os dados anteriores, isso não queria!!!
  13. Boa tarde tenho o seguinte esquema: Folha Excel com Dados ----- Excel com Macro ----- Folha Excel recebe Dados Precisava de passar os dados da 1º folha para a 2º quando abro o Excel que contêm a macro. Alguém me poderia dar uma ideia do código que vou precisar? Obrigado! Abraços, Afonso Mira.
  14. Boas Estou com algumas dificuldades em fazer um código para ver se a célula contem ou não uma string alguém me poderia ajudar. Obrigado, Afonso Mira
  15. Necessito de uma ajudinha... Necessito criar uma macro para criação de um gráfico cuja BD pode ser numa range variável, ou seja tanto pode ser da "A1:B20" como da "A21:B28". Neste momento pelo que consegui pesquisar na internet tenho mais ou menos isto: Dim rng As Range Set rng = Application.InputBox(Prompt:="Selecione a área do gráfico", Type:=8) Worksheets("sheet1").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("rng") Range("A2").Select Consigo selecionar uma area no excel mas não faz rigorosamente nada e qu
  16. Boa noite. Tenho um ficheiro que criei no excel 2010 e que gera um pdf a partir do nome original do ficheiro, adicionando a data obtida a partir da céluda A2, como prefixo. Este ficheiro sempre correu bem até actualizar o pc para o excel2016. Deixou de gerar o pdf e dá sempre erro no VBA for Applications, na função cujo código passo a apresentar: Worksheets("Envio Cliente").Activate Dim data2 As String pdfName = ActiveSheet.Name data2 = ActiveSheet.Range("A2").Value pdfName = "_Mapa de Contagem" MsgBox data2 ChDir ActiveWorkbook.Path & "\" fileSaveName = da
  17. Trabalho numa multinacional, onde temos Excel em Inglês e em Português. A função EOMONTH funciona bem no inglês e quando se abre no português é automaticamente convertida para FIMMES. O Problema é quando se volta a abrir o ficheiro no Excel inglês, a conversão não acontece e fica a dar aquele erro de função #NAME? Já alguém passou por isso? Alguma ideia?
  18. Bom dia , estou a trabalhar num projeto no qual preciso de receber informação de diferentes ESP8266 e através de uma aplicação trabalhar esses dados . Estou a pensar em fazer utilizando Sockets ,ja procurei bastante e tenho um código fucnional , mas que apenas recebe informação de um cliente.E queria saber se alguem me pode ajudar a saber que alteração posso fazer a este código de forma a receber dados de mais de uma ESP. O código base da comunicação é o seguinte: Imports System.Net Imports System.Net.Sockets Imports System.IO Imports System.Text Imports System.Threading Public Class Form1
  19. Como consigo programar estes botões que são criados dinamicamente ? Ou informação sobre criação de botões dinâmicos Private Sub compra_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Width = pagina_inicial.Width - 1 Me.Height = pagina_inicial.Height - 1 Dim objConexao As SqlClient.SqlConnection objConexao = New SqlClient.SqlConnection() objConexao.Open() '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  20. Boa tarde amigos, gostava de saber o que e como faço para que o excel envie um e-mail quando estiver a 5 dias de atingir a data de validade do meu produto. Não consigo achar tutoriais na internet. O meu programa avisa quando faltam 5 dias para a inspeção de uma viatura. Mas gostava que ele avisasse por e-mail. http://www.mediafire.com/file/3ca2f4s4e2phtk2/Alerta_de_Inspe%C3%A7%C3%B5es.xlsm/file
  21. Boa noite, Estou a começar a mexer no VBA, contudo não tenho qualquer tipo de bases. E neste momento pelo pouco que entendo, estou a precisar de criar uma macro que a sua linha de codigo faça com que ao clicar no botao criado a numeraçao seja automatica aumentado um numero ao numero que ja la estava. Sendo mais especifico, criei um documento(fatura) e precisava de fazer um botao que ao clicar limpa-se o documento escrito e aumenta-se o numero da fatura, para escrever a fatura seguinte. Deste modo, precisar de programar algo que me fizesse isso da numeraçao automatica e da gravação,
  22. Boa Tarde, Estou tentando criar um código que, ao colar um nome na coluna D, percorra a coluna D e procura esse valor nas celulas anteriores, depois copie os valores das celulas da mesma linha da celula encontrada para a linha que está o nome que eu colei inicialmente. Por exemplo, eu digito o nome "João" na celula D100, o programa procura o nome da celula D1 até a ultima celula. Supondo que ele encontrou o nome na celula D35, ele copia a celula I35 e P35 e cola nas celulas I100 e P100 Aqui está o que eu tentei, mas não tive sucesso: Dim UltCel As Range Dim lastcel As Range Di
  23. Elabore um algoritmo que dado um número de três algarismos n=CDU (C é o algarismo das centenas, D das dezenas e U das unidades), retorne um número m constituído pelos algarismos de n em ordem inversa, isto é, m=UDC. Por exemplo, para n=123, m=321. Alguem me pode ajudar a realizar este exercicio ?
  24. Tenho um VBA no Excel, entretanto o comando salva os lançamentos como texto, então não é possível aplicar qualquer fórmula. Já fiz algumas tentativas e pesquisa mas todas foram fracassadas, segue os códigos: Private Sub CommandButton_gravar_Click() Dim valor As Currency Dim data As Date valor = TextBox_valor data = TextBox_data Range("b11").Select If Range("b12").Value <> "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(1, 0).Select Selection.Value = TextBox_data ActiveCell.Offset(0, 1).Select Selection.Value = ComboBox_categoria ActiveCell.Offset(0, 1).Select Selection.
  25. Boa tarde Sou novo neste forum e agradeço desde já qualquer ajuda que me possam dispensar. Tenho uma planilha (Peninsula 2011) com 43 colunas (A até BK) e com 5905 linhas. O que pretendo é que quando for inserido qualquer valor numerico na celula C todas as celulas a partir daí e na mesma linha fiquem bloqueadas. Por exemplo, ao inserir o valor 5500 na celula C5, bloquear tudo da D5 até à BK5 para evitar futura alteração de dados. Muito obrigado pela atenção.
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.