Jump to content

Search the Community

Showing results for tags 'excel'.

  • 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. mmcosta

    excel ultrapassar erro vba

    Boas a todos como consigo ultrapassar este erro no excell 2016 obrigado pelas dicas
  2. Como criar um formulário onde tenha um Combobox de cargos... em que ele abre uma ListBox com os nomes dos Cargos... podendo clicar em várias linhas (ao mesmo tempo) da ListBox para excluir alguns cargos e apagar na Planilha?
  3. Ao exibir uma Listbox, preciso que o Mouse selecione uma linha do ListBox. Ao selecionar essa linha do ListBox, queria que um botão ("Apagar") pudesse deletar (ou editar) apenas um Célula da planilha, e não toda a linha. Ou seja, não pretendo deletar toda a linha, apenas deletar (ou editar) uma célula que stá nessa linha. Como faço?
  4. Olá tenho uma tarefa, de macro em Excel, para resolver que me ocupa a cabeça já há vários dias... Já fiz e refiz , até achei um código nesta plataforma que me auxiliou muito. Porém, estou com um problema em uma estrutura de repetição nesse código. Vou deixar aqui o exercício, bem como a minha tentativa , na esperança que alguém me possa direcionar no caminho, sinto que estou perto mas alguma coisa falha.. //Exercício Fazer uma macro que possa garantir o preenchimento automático de um dado específico na planilha. Esse dado, que será preenchido automaticamente, depende de outros dados específicos do preenchimento da planilha mas que estão correlacionados à ele. //Código feito Private Sub tbx2_Change() 'Dentro do campo anterior, do dado a ser preenchido automaticamente, comecei o código e chamei a macro relacionada que executará o programa principal. If cx1.Value = "Novo" Then 'Ele terá a opção de não ser "novo", por isso tem esse If. If cx2.Value = "PNM" Then 'Ele terá a opção de não ser "PNM", por isso tem esse If. If tbx2.Value = "001" Then 'Ele terá a opção de não ser "PNM", por isso tem esse If. Call Comparacao 'Chamando a macro End If End If End If End Sub //Macro Sub Comparacao() Dim L As Range For Each L In Range("D5:D100") 'D5:D100 será o tamanho da coluna que a estrutura For Each terá que ler If L.Value <> "001A" Then 'Estou com dificuldades para fazer a estrutura If, pois preciso garantir a fidelidade de que não entre novamente no mesmo If 'quando sair e entrar no formulário para novo cadastro, pois não poderá repetir os valores de preenchimento automático (Valores 'para preenchimento automático serão: 001A, 002A, 003A... UserForm1.tbx3.Value = "001A" ElseIf L.Value <> 002A Then UserForm1.tbx3.Value = "002A" ElseIf L.Value <> 003A Then UserForm1.tbx3.Value = "003A" ElseIf L.Value <>"004A" Then UserForm1.tbx3.Value = "004A" Else: UserForm1.tbx3.Value = "001A" End If Exit Sub Next End Sub //Dificuldades encontrada: Toda que entro no formulário para o preenchimento, o dado a ser preenchido automaticamente, é preenchido com valor repetido. Pois como a estrutura de repetição lê as linhas em vazio ela interpretará como valor diferente. Atenciosamente, Ariane. Fico no aguardo, de uma possível ajuda. Obrigada!
  5. Nunoalturas

    excel Excel-Afazeres

    Boa tarde! desde ja peço desculpas se não estou no tópico certo mas eu penso que seja este! Eu tenho uma duvida que é a seguinte: Eu gostaria de fazer uma tabela mestra que vai buscar automaticamente os dados a outras tabelas noutros separadores... Por Exemplo Tabela mestra (que me va buscar dados atraves da data a outras tabelas) Tabela Escola (com os afazeres da escola) Tabela Viaturas (com os afazeres das viaturas) Tabela Casa (com os afazeres da Casa) e assim sucessivamente ou seja eu so ia preenchendo as tabelas secundarias e automaticamente a tabela mestra era actualizada . Desde ja o muito obrigado por quem me possa ajudar! cumprimentos
  6. 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 tipo [Selection]... etc. Por favor, me ajudem.
  7. Bom dia Preciso de ajuda pois nao sei como criar um formulario... Ja criei a base do formulario numa folha do excel (botao abrir formulario EM CIMA) mas agora nao sei como fazer para introduzir os dados que estão na folha... Obectivo: o formulario dar para introduzir dados e gravar na folha do excel existente e chamar os dados pelo campo "CODIGO" - 1 campo da folha do excel Assim teria 2 formas de introduzir os dados, ou na folha do excel ou pelo formulario. Gostava que o formulario tivesse setas para: Seguinte - Anterior - Desproteger - Pesquisar (pelo "codigo" do barco) Se existir ele mostra o registo . Ou seja: Depois de procurar o regista na folha do excel deveria ter um botao para desproteger e deixar alterar ou registo ou preencher e no final gravar e colocar na folha do excel. Obrigado Joao Em anexo o ficheiro do excel ja com dados.. https://meocloud.pt/link/97673688-57ee-4f73-a352-4a6125bee3b6/__Mapa Base TorreiraV3.xlsm/ Muito Obrigado pela colaboraçao
  8. 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á
  9. 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 End Sub Uma ajuda seria muito bem vinda ... obrigado
  10. Boa noite, Tenho ficheiros Excel com macros que acedem a ficheiros DBF para obter informação. Para isso utilizo o OLEDB do Visual Fox Pro. Mas não funciona nas versões 64 bits. E ainda não arranjei solução. Alguém sabe como posso, a partir de um Excel, ligar a ficheiros DBF em 64 bits?
  11. 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 dar uma luz de como posso fazer isso ? Já estou de roda disto a uma semana mas ainda não consegui lá chegar. Obrigado, Afonso Mira
  12. Boa Tarde, Tenho um script que até então funcionava muito bem em todos os computadores. Mas, aparentemente após alguma actualização do W10 (pelo menos no meu computador), começou a apresentar problemas na configuração e comparação de datas. As datas estão configuradas desta forma ==> objSheet(obj_x).Range("B09:B39").NumberFormat = "yyyy/mm/dd" Quando abre o Excel para todas as maquinas é apresentada a data na célula desta forma ==> 2019-09-01 E até ai tudo as mil maravilhas. O problema é que em um dos computadores, quando abre o Excel a data apresentada está aparecendo ==> 2019/09/01 E ai, começa o problema na comparação de datas. Verifiquei no Excel aberto em computadores diferentes as seguintes formatações: Computador 1 com dada aaaa-mm-dd (Portugues) -> Format - Categoria -> Data *14-03-2012, Categoria -> Personalizado dd-mm-aaaa Computador 2 com dada aaaa/mm/dd (Inglês) -> Format - Category -> Date *14/03/2012, Category -> Custom dd/mm/aaaa Há alguma maneira de efectuar a formatação padronizada para os computadores em causa. Nota: Penso que o problema não deva ser o idioma e sim a formatação da data.
  13. 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?
  14. 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 muito se der para ajudarem. Private Sub BtExecuta_Click() Dim w As Worksheet Dim ln As Long Dim col As Integer Dim varray() As Long Set w = Plan6 ln = 5 col = 1 Do Until ln = Plan6.Cells(1, 3).Value w.Cells(ln, col).Value = ln ln = ln + 5 Loop End Sub
  15. 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.
  16. 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
  17. Boa tarde, Quero usar vários critérios numa formula, mas a formula não está a funcionar. Já tentei com & com , com mais ( ou menos ) e não funciona. Al´guém pode ajudar? a ideia é a formula calcular o aeging de uma coluna de datas mas em vez de aplicar uma formula de cada vez, quero ter tudo numa só. criteriaFormula, isoladas: 0-30 DaysIF(AND($D$1-D3<30),"0-30 Days" 31-60 DaysIF(AND($D$1-D3>31),AND($D$1-D3<60),"31-60 Days") 61-90 DaysIF(AND($D$1-D3>61),AND($D$1-D3<90),"61-90 Days") +90 DaysIF(AND($D$1-D3>90),"+ 90 Days" Juntas: =IF(AND($D$1-D3<30),"0-30 Days",IF(AND($D$1-D3>31),AND($D$1-D3<60),"31-60 Days"),IF(AND($D$1-D3>61),AND($D$1-D3<90),"61-90 Days"),IF(AND($D$1-D3>90),"+ 90 Days" Será que me podem ajudar a perceber o erro? Obrigada
  18. Boa noite Utilizo uma excel que funciona corretamente. Mas agora quero fazer a mesma coisa que faço no Excel mas numa aplicação Android (memento database) que tem um campo que permite introduzir código Javascript. Já tentei, mas não estou a conseguir por causa das funções ^2 e EXP() que não são iguais em JS. A 1ª formula em Excel: =SE($G$6>0;0,8+0,1894393 * EXP(-0,012778*G6*1440)+0,2989558* EXP(-0,1932605*G6*1440);0) A 2ª formula em Excel: =SE(E($E$6>0;$G$6>0);(1/(29,54 + 5,000663 * ($I$6*0,88) - 0,007546 * ($I$6*0,88)^2)*1609,344/1440);"-") sendo que em JS a célula G6 = "TEMPO" E6 = "DISTANCIA" (não irei utilizar em JS) I6 = "VDOT" Tentei as seguintes opções: Para 1ª formula ficaria assim em JS: 0,8+0,1894393 * Math.exp(-0,012778*TEMPO*1440)+0,2989558* Math.exp(-0,1932605*TEMPO*1440) (mas o resultado devolvido não está certo...) Para a 2ª formula em JS: (1/Math.pow(29,54 + 5,000663 * (VDOT*0,88) - 0,007546 * (VDOT*0,88),2)*1609,344/1440) (aqui o resultado também não é o correto. Alguém me pode dar uma ajuda?
  19. 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 = data2 & pdfname ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ fileSaveName _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Aque MsgBox serviu para perceber qual seria o valor que estaria a ser lido na célula A2 e é sempre dd/mm/yyyy o que faz com que não possa ser usado para nome de ficheiro. Já tentei formatar a data no excel de todas as formas, desde pontos a hifenes. Retorna sempre aquele valor com as barras. Já andei a tentar ver se há algum workaround, mas não consegui nada. Se alguém tiver alguma sugestão, agradeço.
  20. Boa noite, Estou usando parte do codigo abaixo para enviar e-mails de forma automatica pelo excel, mas quero que o inicial do range que no memento é A6 seja mutavel de acordo com o valor especifico de uma celula, Set IntervaloMailing = WrkS.Range("A6:A7") Por exemplo: Se a celula que eu vou usar como referencia estiver com o valor A5 Esta parte codigo ficaria: Set IntervaloMailing = WrkS.Range("A5:A7") ou seja o primeiro valor do range precisa mudar de acordo com o valor que for digitavel na minha celular de referencia que neste caso poderia ser a primeira celula da planilha Segue o codigo que eu estou usando Public WrkB As Workbook 'Cria variavel da Pasta de Trabalho Public WrkS As Worksheet 'Cria variavel da Planilha Public IntervaloMailing As Range 'Cria Variavel com o Intervalo do Mailing Public Celula As Range 'Cria Variavel com o registro do Mailing Public AppOutk As Outlook.Application 'Cria Variavel com a Aplicacao do Outlook Public MailOutk As Outlook.MailItem 'Cria Variavel com o objeto "Email" do Outlook Public Sub MandarEmail() Set WrkB = ThisWorkbook 'Define a pasta de Trabalho Set WrkS = WrkB.Sheets("Mailing") 'Define a Planilha com os dados Set IntervaloMailing = WrkS.Range("A7:A7") 'Define qual o intervalo do Mailing <<<< esta parte que preciso que seja variavel With WrkS .Select For Each Celula In IntervaloMailing Call CriaEmail 'Chama a Rotina para Criar o Email Next End With End Sub Atenciosamente Nate
  21. bom dia. Necessitava de uma pequena ajuda, se possível claro. Sou técnico de Automação e manutenção industrial, gostaria de saber existe alguma folha de calculo para realizar a gestão de manutenção em equipamentos. Neste momento tenho um documento em Word, onde realizo o registo das Ordem de Serviço (maquina, código, tipo de anomalia, intervenção realizada, material usado, tempo disponibilizado na resolução avaria..), e posteriormente numa folha de calculo em excel faço o registo e atualizo o stok das peças usadas (código, designação peça, nome maquina, quantidade, valor, localização na prateleira,...). Pretendia uma folha de calculo que pode-se juntar o que realizo já no word e excel. Basicamente um 2 em 1. Pretendia algo em que: Quando realizo o registo da manutenção na OS, esta introduzi-se automaticamente o produto (através de código ou designação) e atualiza-se o stok na folha de existências de peças; E se possível apresentar o valor total de peças usadas em máquina; Obrigado pela sua atenção Atenciosamente Miguel Nicolau
  22. Boas, este é o meu primeiro tópico neste fórum. Então é o seguinte, numa fase final do processo do correr do meu programa, tenho uma datagridview com dados e quando carrego no botão , passa os dados da DGV para o excel. O código que uso é este: If DataGridView1.Rows.Count > 0 Then Dim wapp As Microsoft.Office.Interop.Excel.Application Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet Dim wbook As Microsoft.Office.Interop.Excel.Workbook wapp = New Microsoft.Office.Interop.Excel.Application wapp.Visible = True wbook = wapp.Workbooks.Add() wsheet = wbook.ActiveSheet Dim iX As Integer Dim iY As Integer Dim iC As Integer For iC = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText wsheet.Cells(1, iC + 1).Font.Bold = True Next For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value Next Next wsheet.Columns.AutoFit() End If Onde o erro aparece é nesta parte do código: (...) For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value <-- É nesta linha que dá erro. Next Next (...) Mensagem do erro. ---------------------- Aproveito este tópico para perguntar se alguém sabe como faço com que dados apareçam por baixo e não ao lado como aparece nesta imagem? O código usado para guardar o dado no ficheiro texto é este: (...) If CB_tercaadicionar.Checked Then My.Computer.FileSystem.WriteAllText("D:\Terca_Feira.txt", TB_Adicionarhora.Text, True) My.Computer.FileSystem.WriteAllText("D:\numhora_Terca_Feira.txt", TB_numhora.Text, True) End If (...) Obrigado!
  23. PsySc0rpi0n

    Lei Quadrática do Excel em C

    Boas pessoal. Por curiosidade apenas, alguém sabe como implementar o método que o Excel usa para calcular a equação de uma Linha de Tendência de uma curva pela Lei Quadrática? Muito por alto o que o Excel faz é uso das seguintes funções: 2nd Order Polynomial Trendline Equation: y = (c2 * x^2) + (c1 * x ^1) + b c2: =INDEX(LINEST(y,x^{1,2}),1) C1: =INDEX(LINEST(y,x^{1,2}),1,2) b: =INDEX(LINEST(y,x^{1,2}),1,3) Lendo a descrição das funções INDEX e LINEST, respectivamente, dizem: INDEX - returns the value of an element in a table or an array, selected by the row and column number indexes LINEST - returns statistics that describe a linear trend matching known data points, by fitting a straight line using the least squares method.
  24. dementor4842

    excel Mostrar texto por dia do Mes

    Boa Noite. Estou com uma duvida no excel para a qual necessito de ajuda. Estou a criar um documento para o trabalho, o qual e impresso todos os dias pelos colaboradores. Cada dia quero dar um "Target" diferente. Ou seja basicamente tenho a "folha 1" que é a capa da folha que é impressa em que todas as manhas o colaborador abre e por cada dia do mês tem um objectivo diferente, Esses objetivos ficariam numa "folha 2" a qual o colaborador não tem acesso pois os objetivos são definidos por mim para um mês. Basta fazer 31 dias, ou seja todos os dias 1 de cada mês é sempre o mesmo objetivo. Obrigado amigos
  25. Boas venho pedir ajuda para me ajudarem a resolver este problema bastante simples (apesar de para mim não ser simples porque começei a aprender excel a sério hoje) Estou a fazer uma gestão de stocks e já tenho o que quero só não sei por os espaços entre os valores eis o problema: https://imgur.com/a/HI22z Obrigado pela atenção e ajuda !
×
×
  • 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.