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

@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

8 minutos atrás, ricardo_br disse:

O ideal seria se tivesse uma cópia em algum HD externo ou algo assim.

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

42 minutos atrás, T1000_2015 disse:

@Andre4 encontrei esta dica abaixo.

Não sei se o winrar lida com arquivos 7z, mas de uma olhada;

 

How to Repair Corrupt Archive Files (Zip, RAR, TAR (.gz), 7z)

Open your WinRAR application.Locate your RAR, ZIP or 7z file.Select the file and click on “Tools” or “ALT + S“Click on Repair Archive tab.Click on the Radio Button followed by “Treat the Corrupt Archive as Zip“The Repair process will start.

 

Tem este artigo do site do 7zip, de uma olhada também:

 

 

https://www.7-zip.org/recover.html

 

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.

4 minutos atrás, bngomes disse:

Se não tiver volumes de recuperação e está dando erro de CRC é praticamente impossível de recuperar... mas se você está copiando do servidor para uma maquina local ou tentando extrair do servidor pra maquina local, os dados podem estar sendo perdidos no trafego...

 

Tente extrair localmente no servidor... e só depois copie... 71 GB é um arquivo muito grande pra baixar por uma rede local.. a chance de erro é enorme...

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

52 minutos atrás, T1000_2015 disse:

@Andre4 ja tentou rodar um scandisk na unidade que está com o arquivo para verificar erros no disco?

O arquivo está numa rede de servidor, não apresenta erros nos discos