Search the Community

Olá a todos, Queria pedir-vos opinião relativamente a melhor forma de trabalhar 2 folhas de excel. Exemplo pratico: Tenho uma aplicação que diz o número de Km's que um carro fez e tenho depois uma outra aplicação que diz o que foi gasto em cartão combustível . Gostava de criar algo que fosse depois pratico qualquer utilizador usar, em vez de estar todos os meses a trabalhar o excel. Que forma pratica conhecem que me ajude neste processo ? Obrigado!

Boa tarde, gostaria de saber se podiam dar uma ajuda com uma questão que tenho no excel. Como posso mudar o horário conforme a data selecionada? Em baixo envio imagem para tentarem perceber o que quero tentar dizer. https://postimg.cc/gallery/NfSwSxH A parte de mudar a data está a funcionar, mas não sei como mudar a parte do horário em si, podem ajudar?

boa noite. tenho um formulario em excel vba , e estou a tentar gravar os dados mas quando um campo esteja vazio ele não mude os valores desse campo na folha excel. o codigo que utilizo é este: private Sub botao_gravar_Click() 'CODIGO PARA GRAVAR VALORES NA FOLHA MAPA MENSAL' On Error GoTo error Dim Plan As Worksheet Dim Numero 'As Integer Dim linha Set Plan = Sheets("Mapa Mensal") linha = 2 Numero = cboMatricula 'codigo Plan.Select linha = Plan.Range("B:B").Find(Numero).Row With Plan .Cells(linha, 4) = UserForm.TxtKmRevisao.Text .Cells(linha, 5) = UserForm.TxtDiaRevisao.Text .Cells(linha, 11) = UserForm.TxtDistribuicao.Text .Cells(linha, 18) = UserForm.cmb_pneus.Text .Cells(linha, 19) = UserForm.TxtKmPneus.Text .Cells(linha, 20) = UserForm.TxtDiaPneus.Text END WITH END SUB e o que acontece é que ele grava bem os valores nas suas celulas, mas as vezes existe campos que nao preencho e ele grava na celula ficando vazia, e eu queria adaptar o codigo para se ele tiver o campo vazio deixar estar o valor da celula igual, isto é, se o campo do formulario nao estiver preenchido ele nao mudifica a celula. espero que lguem me onsiga dar uma dica e ajudar, obrigado

Ola Pessoal, Tenho 2 listiview (ListDisponivel ListCautelar). Eu seleciono o checkbox dentro do ListDisponivel e clicando em um botão item marcado é exportado ao ListCautelar, e após confirmação(usando outro botão) esse item tem uma coluna alterada dentro da Planilha(de Disponível para o Nome de quem cautelou o equipmanto), mas enquanto esse botão não é executado essa célula não é alterada(e essa Célula que possui o critério da busca). Usei a rotina de excluir a linha ao exportar, e funciona mas ao realizar a busca de novo o item volta ao listDisponivel. O que preciso então seria de uma rotina que pesquisasse os IDs já inseridos no listCautelar e após realizasse uma pesquisa desses ID's no ListDisponivel e não tornasse visível esse item. Empaquei nessa parte e não consigo sair disso, me falta conhecimento para resolver isso. Agradeço desde já quem puder me dar uma forma Private Sub btnTransCautelar_Click() 'Exporta linhas do ListDisponivel para listCautelar e exclui Linhha do ListDisponivel Dim x, y As Integer Dim Li As Object Dim sItem As Long ''Exporta Linhas For y = 1 To listDisponivel.ListItems.Count If listDisponivel.ListItems.Item(y).Checked Then Set Li = listCautelar.ListItems.Add(Text:=listDisponivel.ListItems.Item(y)) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(1) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(2) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(3) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(4) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(5) Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(6) End If Next y lblTotalDisponivel.Caption = listDisponivel.ListItems.Count End Sub http://get2.imglarger.com:8889/results/oD86RzXy_2x.jpg http://get2.imglarger.com:8889/results/j7f3025G_2x.jpg Link da Planilha https://drive.google.com/file/d/1AwBE6-htyCu1Ja842s4oUMJWjRlqwQsf/view?usp=share_link

Boa Noite Estou a tentar fazer num excel com uma dropdown com filtros, ou seja tenho os dias do mês e em baixo de cada dia tenho uma dropdown com A e B e depois tenho outra tabela da seguinte forma: A: 1/1/2023 B: 19/1/2023 E com esta tabela na dropdown de dia 1 só deve aparecer o A e na dropdown de dia 19 só deve aparecer o B nos outros dias devem aparecer os dois, estou a usar a data validation para fazer as dropdowns ? Alguém sabe se isto é possivel de fazer ? Desde já Obrigado

Boas Um problema complexo para o meu nivel de conhecimento Fotografia do formulário e folha de excel para ajudar a compreensão Eu introduzo valores na caixa de texto 252, 253 , 255, 256 and 267 e elas retornam valores na folha4.range(a2:e2) depois click no commandbutton8 e tenho uma macro que armazena os valores na folha5.$a:$e 1- como configuro a textbox 253,255,256 e 257 para ter valores de moeda 2- como fazer para que os valores dessas textbox que estão a ser mostrados sejam apagados apos carregar no commandbutton8 apos terem sido armazenados na folha5 Private Sub TextBox252_Change() Folha4.Range("a2").Value = TextBox252 End Sub Private Sub TextBox253_Change() Folha4.Range("b2").Value = TextBox253 End Sub Private Sub TextBox255_Change() Folha4.Range("c2").Value = TextBox255 End Sub Private Sub TextBox256_Change() Folha4.Range("d2").Value = TextBox256 End Sub Private Sub TextBox257_Change() Folha4.Range("e2").Value = TextBox257 End Sub Private Sub TextBox258_Change() Folha5.Range("h2").Value = TextBox258 End Sub Private Sub CommandButton8_Click() Call grava End Sub 3- a Combobox1 está a mostrar os valores armazenados na folha5 quando clico em commandbutton8 mas apenas os últimos valores antes de carregar o formulário, como fazer para ele mostrar os valores recentemente inseridos quando clico no button8 4- Quando clico commandbutton9 queria que agarra-se nos valores que selecionei na combobox1 e os ponha na folha5.range(h2:L2) que retorna os valores na textbox262, 261 , 260, 259 Private Sub ComboBox1_Change() End Sub Private Sub CommandButton9_Click() Me.TextBox262.Text = Folha5.Range("i3").Text Me.TextBox260.Text = Folha5.Range("j3").Text Me.TextBox261.Text = Folha5.Range("k3").Text Me.TextBox259.Text = Folha5.Range("l3").Text End Sub Outra questão, é possivel por o formulário a maximizar ou a fazer scroll? como? visto que em monitores com menos resolução não aparece todo? Obrigado antecipadamente desculpem a newbice

Saudações, estimados programadores! Devo - antecipadamente - pedir desculpa a todos aqui porque me sinto um total inflitrado; A verdade é que não tenho conhecimento suficiente sequer para frequentar este fórum e estou aqui apenas para resolver um problema. Antes de mais, devo dizer que estou disposto a financiar - caso exijam - a solução a este meu problema. Suponho que para pessoas experientes na área como muitos de vocês isto seja um problema relativamente fácil, mas para mim, não é de todo. Estou a tentar extrair parcialmente alguns dados de uma página on-line para uma folha de google sheets. A página é esta . Apenas a tabela com esses dados todos aí debitados. Haverá solução? Antes de mais, muito obrigado pela atenção. (E se eu tiver colocado o post no sub errado, por favor movam)

Bom dia, Preciso de uma macro para copiar valores de uma célula para outras células quando outras 2 células forem iguais, passo a explicar o que preciso: Na folha com o nome Gráfico_SDemand_22, quando o valor da célula D3 for igual ao valor da célula A3 da folha com o nome Targets, copia o valor da célula B27 da folha Gráfico_SDemand_22 e cola na célula D6 da folha Gráfico_SDemand_22. Na folha com o nome Gráfico_SDemand_22, quando o valor da célula E3 for igual ao valor da célula A3 da folha com o nome Targets, copia o valor da célula B27 da folha Gráfico_SDemand_22 e cola na célula E6 da folha Gráfico_SDemand_22. e continua a fazer o mesmo até à coluna O inclusive. Podem ajudar? Grato antecipadamente

Olá! Tenho uma planilha de centro de custos aparentemente simples que ao mesmo tempo, dado a quantidade de dados, acaba ficando um pouco complexa sua análise por isso, minha necessidade é criar formas alternativas de somar esses centros de custos em suas mais variadas categorias e subcategorias baseadas no período inicial e período final. Vou explicar como funciona a planilha e qual minha dificuldade e espero poder contar com o apoio da comunidade a encontrar uma fórmula de solução. Exemplo: LINHA 1 estão cadastrados os CÓDIGOS LINHA 2 estão cadastrados as DESCRIÇÕES LINHA 3 estão cadastrados as CATEGORIAS LINHA 4 estão cadastrados as SUB-CATEGORIAS COLUNA A estão cadastrados o PERIODO (Meses) COLUNA CO retorna o TOTAL das RECEITAS dos CENTRO DE CUSTO naquele período COLUNA CQ retorna o TOTAL das DESPESAS dos CENTRO DE CUSTO naquele periodo ANALISANDO CENTRO DE CUSTOS Minha necessidade é uma fórmula (ou codigo VBA) que retorne na célula G440 a SOMATORIA de todas as RECEITAS (Categorias que estão na linha 3) COMUNS (Sub-Categorias que estão na linha 4) lançadas no período inicial C440 e período final D440. Encontrando esse código o mesmo deverá ser aplicado nas linhas e colunas retornando as somas das demais. Feito isso, criarei uma tabela dinâmica que me permita explorar mais as análises dos números. Deixo anexo, a planilha em questão. https://docs.google.com/spreadsheets/d/1DvuSN34rWWV7YrNYg9FueUvt2h4QNQwo/edit?usp=sharing&ouid=109509961137052622741&rtpof=true&sd=true Conto com a ajuda de vocês. Obrigado. Guilherme Santos

Olá. Por favor me ajudem. Preciso mudar os títulos da ListView e não consigo. Após nomear os títulos com .ColumnHeaders.Add Text:="Nome", Width:=100........ (Etc), eu nunca consigo trocar ou excluir esses títulos. Caso eu tente limpar ListView1.Clear.... ao carregar de novo, os títulos SOMAM, ou seja, aumentam em quantidade, um título após o outro. Enfim, como apgar os títulos, modificá-los ou mesmo excluí-los?

Boa Tarde Arranjei há cerca de 1 ano, um emprego para melhorar alguma folhas de excel, que faziam a gestão dos recursos humanos, logística, entre outras coisas da empresa. Na altura tudo se baseava em Excel, pelo que, numa situação provisória, foi preciso melhorar os processos já existentes. Neste momento através do VBA, já se consegui incrementar bastantes funções e automatismos, no entanto, tudo ainda se baseia 100% em ficheiros excel colocados no Onedrive. Isto trás imensos problemas ao nível de multi-utilizadores, bem como da estabilidade das bases de dados em folhas de excel. Agora que tudo funciona, mais ou menos bem e de forma estável, foi-me proposto passar para uma segunda fase, usando uma linguagem de programação mais sólida. E aqui deparo com alguns problemas. Programei bastante quando ainda se utilizava programas de bases de dados que hoje já pouco se usa, por isso, vejo-me na necessidade de escolher uma via, que me seja confortável e que não me exija ter de aprender uma ou mais linguagens de raíz. Neste momento estou confortável com a sintaxe VBA e estou a dar uma olhada para o MySQL, que apesar de ser novo para mim, o conetio de base de dados e relacionamentos, não me é novo. Sei que neste momento de crise, não gostaría de perder esta oportunidade de emprego, por isso peço a vossa ajuda para poder saber qual o melhor caminho a tomar, nas seguintes escolhas: 1ª Qual a linguagem e a base de dados que me permita desenvolver um novo programa, com a menor curva de aprendizagem possível e semelhante ao VBA que já utilizo hoje em dia ?. 2º Penso que o ideal sería o PHP que permite utilização online, mas sería uma aprendizagem do zero e bastante dificil nesta altura em que continuo a ter de dar apoio ás folhas de Excel 3º A principal necessidade será a capacidade do programa poder ser usado por mais de 1 utilizador, que podem não estar no mesmo espaço físico. Neste momento a opção foi colocar o ficheiro no Onedrive. 4º É fácil arranjar alguém que possa acompanhar o projecto e que esteja disponível quando for preciso resolver algum problema que não consiga resolver, explicando-me a solução? Obrigado pela ajuda que me possam dar e se for preciso mais algum tipo de informação, o interesse em explicar melhor será meu 🙂

Boas a todos como consigo ultrapassar este erro no excell 2016 obrigado pelas dicas

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!

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

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.

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

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á

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

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.

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?

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

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.

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

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

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?