Andre4

@Patropi Boa tarde, Ficou a funcionar, Obrigado.

@TomBum Era essa fórmula que eu tinha. Mas quando altero uma célula, altera a data em todas.

@Patropi Boa tarde, Está quase tudo bem. Eu queria apenas que quando apaga as células da linha 8, apagasse também a data da linha 9. Quando a linha 8 está vazia, a linha 9 também fica vazia

Tenho forma de aplicar essa vba no meu documento? Eu pretendia que ao preencher a célula D8, E8, F8, H8, I8 e J8 ele colocasse a data na linha abaixo, ou seja D9, E9, F9, H9, I9 e J9. Isto deveria acontecer nas restantes linhas do documento. É possível? TESTE.xlsx

Bom dia, Estou a tentar criar um dashboard com gráficos estatísticos de alguns dados. Para isso pretendo criar tabelas dinâmicas para acompanhar o dashboard. Eu pretendo analisar por exemplo os seguintes dados ao longo dos meses/anos - Quantidade de Pedidos Enviados - Quantidade de Pedidos Adjudicados - Valor total das vendas - Etc... Eu queria puder ter estas opções de "filtros" na segmentação de dados para que quando clicasse numa delas aparecesse o gráfico correspondente. Estava a pensar ter 3 gráficos. Um para analisar por meses, outro por anos e um a analisar anos e meses. Alguém me consegue ajudar? Exemplo.xlsx

@AfonsoMira Ficou como eu queria. Obrigado pela ajuda.

@AfonsoMira Deixo o livro em anexo. Planilha.xls Estou a utilizar este código. Alterei o numero da coluna para 39 e as células da localização do save mas não consigo que guarde apenas as folhas que eu preencho.

@AfonsoMira Não, eu queria aplicar essa vba num outro projeto mas ele está a guardar as folhas todas em vez de guardar apenas as que eu preenchi

@AfonsoMira Podes me explicar o que tenho que alterar para copiar para outro livro?

Olá, Eu queria criar um botão de guardar em pdf mas com condicionantes. Eu quero que ele grave 1, 2, 3, etc, folhas dependendo se uma célula está preenchida ou não. Explicando o exemplo que coloquei, eu preencho no L4 e no L5 e o botão guarda em PDF a folha 1 e 2. Se preencher as células L4, L5, L6 e L7 guarda em PDF a Folha 1, 2, 3 e 4. Eu quero também que ele guarde numa pasta que está definida na coluna "N". Ele pode guardar o ficheiro com o nome que está na célula L4. Alguém pode ajudar? Exemplo PDF.xlsx

Deixo o exemplo. Exemplo.xlsx

Bom dia, Eu queria ajuda para conseguir traduzir uma planilha noutra língua. Eu tenho todas as palavras dessa planilha numa tabela e eu queria poder selecionar a linguagem e traduzir automatico, Tem forma? Obrigado

@RafaVillani Sim está funcionando, eu ajustei os dados e está copiando. Mas quando eu quiser guardar em PDF guarda todas as folhas. Ou seja, eu queria que quando guarda-se em PDF guarda-se apenas as folhas que correspondem à pesquisa. Se na pesquisa tem Orç.1 e Orç.2 guardar apenas esses dois, se tiver o Orç.1 guarda só esse, está entendendo?

@RafaVillani Olá, Experimentei o código e não acontece nada.

@RafaVillani Não, não era isso que eu procurava. É como na imagem anexo.

@RafaVillani Acho que não funciona. Colei no change mas não aconteceu nada. A folha orç.1 pode ficar sempre ativa. O que pretendo é quando pesquiso pelo orç.2 , orç.3,etc, aparecer em baixo do orç.1

@RafaVillani Resultou! Ficou perfeito. Tem forma de somente quando preencher a tabela de pesquisa (Coluna AL) acrescentar novas folhas em baixo? Ou tornar a folha ativa para imprimir. Por exemplo ao preencher uma célula de pesquisa a folha se torna ativa e imprime, se não tiver preenchida não imprime.

@RafaVillani Estava usando uma forma. Eu criei uma Sub num novo módulo e colei esse código mas não funcionou.

Não funcionou. Eu colei no botão mas não deu nada.

@RafaVillani Já tenho configurado dessa forma, a imagem carregar automaticamente apenas alterando o valor de pesquisa. O que eu pretendo é colocar um botão para o caso de querer buscar manualmente por algum motivo.

Deixo modelo em anexo para facilitar. Pretendo carregar em inserir e trocar a imagem. Planilha.xls

Bom dia, Queria carregar num botão e inserir imagem numa caixa de texto em vez de uma célula. Eu utilizei este código mas insere numa célula. "" Sub Inserir_Imagem() Dim profile As String On Error GoTo 0 Dim fd As FileDialog Dim myCel As Range Set myCel = ActiveSheet.Range("F15") Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png" .ButtonName = "Select" .AllowMultiSelect = False .Title = "Choose Photo" .InitialView = msoFileDialogViewDetails .Show End With ActiveSheet.Range("E3").Select With ActiveSheet.Pictures.Insert(fd.SelectedItems(1)) i = 17 .Left = myCel.Left .Top = myCel.Top .Placement = 1 .PrintObject = True profile = .Name End With ActiveSheet.Pictures(profile).Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = myCel.Width .Height = myCel.Height End With End Sub" Eu queria inserir numa caixa de texto que renomei "foto_produto". Se alguém puder ajudar. @Basole

Pois, se eu tivesse uma cópia não estaria preocupado em recuperar o ficheiro

O winrar não lida com arquivos 7z. Já tentei reparar com o 7zip mas também não consegue. Já vi esse artigo mas não percebi bem como fazer através desse artigo.

Eu tentei extrair no local original, no servidor e deu problemas.