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. Olá, programadores em Excel VBA. Minha dúvida é como formatar uma célula ativa, sem que seja necessário escolher um período inteiro. A fórmula abaixo mostra isso, mas eu não quero um período inteiro fixo [A1:A10]. Eu preciso apenas que esse comando seja feito somente na célula ativa, independente onde a seleção esteja. Esse é o comando que preciso mudar: For Each cell In [A1:A10] If cell > "" Then numero = Str(cell.Value) cell.Activate ActiveCell.FormulaR1C1 = numero Else End If Next E aí? Tem como tirar a seleção [A1:A10] e trocar por algo do
  2. Olá, programadores em VBA Excel! Minha necessidade existe quando preciso realizar uma somatória automática e flexível. Vejam que na TABELA 01 os valores são lançados aleatoriamente, mas na TABELA 02 ficam separados grupos por SETOR e somados automaticamente. Mas este é um modelo que eu não consegui fazer. Alguém pode me ajudar? TABELA 01 TAEBLA 02 NOME SETOR VENDA -------> NOME SETOR VENDA José Vendas 100,00 José Ve
  3. Olá, programadores em VBA Excel! Minha necessidade existe quando preciso realizar uma somatória automática e flexível. Vejam que na TABELA 01 os valores são lançados aleatoriamente, mas na TABELA 02 ficam separados por SETOR e somados automaticamente. Mas este é um modelo que eu não consegui fazer. Alguém pode me ajudar? TABELA 01 TAEBLA 02 NOME SETOR VENDA -------> NOME SETOR VENDA José Vendas 100,00 José Vendas
  4. Conforme a tabela abaixo, preciso Filtrar em ordem alfabética AZ a Coluna DATA. Mas o TxtBoxData sempre lança nas células datas em formato de texto e assim fica impossível o Excel filtrar a partir da data mais recente até a mais antiga. Não adianta formatar "dd/mm/yyyy" por que depois que são lançadas pelo TxtBoxData se transformam em texto (nunca em número). Como resolver esse problema? DATA 02/01/2001 05/04/2000 22/02/2002 22/08/1892 12/12/1500
  5. Boas pessoal, eu sou novo nestas andanças e precisava da vossa ajuda. Precisava de uma macro que me fizesse o copiar e o colar de uma zona defenida, copiar os valores do modulo 1 até ao modulo 2 e assim sucessivamente até ao modulo 6. eu ja consegui fazer uma macro que me consegue copiar e colar, so que ja defeni essa zona, se houver colocação de mais uma linha altera me tudo. A 1 modulo 1 2 1564 3 235 4 3468 5 modulo 2 6 567 7 809 cumprimentos Fabio Sá
  6. Sou autodidata e curiosa por natureza, estou criando uma planilha de controle de estoque e movimentação porém toda com formulário, pois minha intenção é que a planilha fique invisível no final. Ela já está praticamente pronta, porém está acontecendo um problema que estou quebrando a cabeça, mas não consigo identificar o porque dele. Quando eu preencho o rowsource da ListBox de pesquisa de produtos. E vou rodar o Formulário Inicial de Estoque e Movimentação, ao clicar em Movimentar Estoque, acontece um erro de tempo de execução '-2147467259 (800004005)': Erro não especificado. Ao clicar
  7. Olá, num file excel, estou a criar uma macro para abrir um file word. Porém, o file word é um relatório que utiliza dados do excel e tem uma macro que é executada no início e que vai gerar um relatório por aluno. Quando executo o file word, a macro gera os relatórios, mas quando o inicio a partir do excel, ele não importa os dados para gerar os relatórios. O código que estou a utilizar é este (com pesquisa aqui no fórum): Sub word() Set wordapp = CreateObject("word.Application") wordapp.documents.Open "D:\\autoaval_sem_new_new.docm" wordapp.Visible = True En
  8. Antonio Augusto Crovador

    Imprimir dados da listview

    boa tarde amigos, estou tentando imprimir mais não estou tendo exito, alguem pode ajudar-me ? Function Imprimir() If lv.ListItems.Count = 0 Then MsgBox "Não há dados para ser impresso.", vbInformation, "AVISO" Else Dim i%, LVWidth%, NewTab%, j% Dim itmX As ListItem Dim ContaLinha% LVWidth = 0 For i = 1 To lv.ColumnHeaders.Count LVWidth = LVWidth + lv.ColumnHeaders(i).Width Next NewTab = 0 'imprime o cabeçalho For i = 1 To lv.ColumnHeaders.Count NewTab = NewTab + CInt(lv.ColumnHeaders(i).Width * Printer.ScaleWidth / LVWidth) Pri
  9. Boa tarde, Tenho 1 tabela em access na qual tem 2 campos, num tem o ID e no outro nomes ID Nomes 1 Ana 2 Maria 1 Silvia 2 Cristina Queria que ficasse assim ID Nomes 1 Ana, Silvia 2 Maria, Cristina Alguém pode-me ajudar arranjar q solução. Podem dar-me informação de quais campos deveriam constar? Public Function ConcatRelated(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrder
  10. Olá! Pretendo que ao colar um valor na célula A2 a célula A3 assuma a data do sistema, e assim sucessivamente ao longo de todas as duas colunas. Ao tentar colocar este pequeno código numa folha de Excel: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 2 Then Cells(Target.Row, 2) = Data End If End Sub Surge-me sempre o erro de: Run-Time Error -2147417848 (80010108) Uma das soluções indicadas que descobri é o "congelar/fixar" umas linhas, mas não resultou. Obrigado desde já. (URL Imagem/erro:https://www.dropbox.com/s/nsklvq
  11. No Excel faço uma conexão SQL em uma pasta de trabalho com outra pasta de trabalho, conforme código abaixo. Antes verifico se o arquivo existe ou se está aberto em rede. Minha pergunta é: como e onde utilizo as propriedades ConnectionTimeout e CommandTimeout? Se a conexão cair antes do tempo, como faço para verificar e onde insiro a verificação? E se preciso verificar, antes de abrir a conexão, se a mesma está em aberto, pois outras pastas de trabalho também retornam via SQL os dados da mesma pasta de trabalho de origem: fiquei na dúvida se a conexão para os dados de origem
  12. Ola, alguém me poderia ajudar estou a passar um programa de visual Basic 2019 para Visual Basic 2010 Criei uma class e coloquei la dentro um modulo e está me a dar erro no seguinte codigo: Dim bs As New BindingSource bs.DataSource = dtFATURA bs.Filter = "ID_ENTREGA =" & FATURA xlivro.Range("B5").Value = FATURA xlivro.Range("B6").Value = DATA xlivro.Range("B8").Value = CLIENTE xlivro.Range("B7").Value = MORADA For Each view As DataRowView In bs Dim row = view.Row CODIGO = row("CODIGO")
  13. Caros Colegas, Desde já parabéns pelo vosso excelente forum. Preciso de uma ajuda de excel se for possível sff. - Tenho um Excel que tem uma Lista de Nomes + 12 Células com Números, do lado direito tem mais uma tabela com os números que saem por semana. https://ibb.co/7gvn5Nv 1º A Ideia aqui, era, sempre que eu introduzisse na tabela direita determinados números, a tabela do lado esquerdo vai ficando colorida se em cada linha tiver o número correspondente. 2º Numa coluna ao lado dos 12 Número chamada "Contagem", ter a contagem das células que estão a cor, ou seja, se
  14. Bom dia! Pessoal, preciso de ajudar nesse formato de carregamento. as linha 11, 12 e 13 preciso que seja no formato de número, porem está carregando como texto o que impede de formulas, alguém consegue ajudar? .Cells(linha, 1) = Format(Sheets(I).Cells(Lin, 1), "DD/MM/YYYY") .Cells(linha, 2) = Sheets(I).Cells(Lin, 2) .Cells(linha, 3) = Sheets(I).Cells(Lin, 3) .Cells(linha, 4) = Sheets(I).Cells(Lin, 4) .Cells(linha, 5) = Sheets(I).Cells(Lin, 5) .Cells(linha, 6) = Sheets(I).Cells(Lin, 6) .Cells(linha, 7) = Sheets(I).Cells(Lin, 7) .Cells(linha, 8) = Sheets(I).Cells(Lin, 8) .Cells(lin
  15. 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
  16. 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
  17. fala galera sou novo aqui , nao entendo muito sobre o VBA no exel mas estou com um problema nao cosigo fazer o msgbox da minha planilha disparar quando um valor de uma celula é maior do que a outra parametros Sub alerta() If Range("T3").Value >= Range("N3").Value Then MsgBox "mensagem de teste", vbExclamation, "ALERTA" Else End If End Sub mas ela nao executa, e nem menos dispara quando o valor da celula T3 é maior ou igual ao valor da celula N3 me ajudem por gentileza, nao consegui resolver esse problema
  18. 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
  19. 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.
  20. 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 é
  21. 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á.
  22. 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?
  23. 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.
  24. 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
  25. 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:
×
×
  • 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.