AfonsoMira

Depois de concluir todos os passos e reiniciar a máquina contínua igual. Mas obrigada na mesma @Edson Luiz Branco

Sim persiste. Fiz desse jeito e não alterou nada. Vou reiniciar novamente depois de ter feito esses passos. Já coloco se voltou ou não.

@Allex66sandro Sim é possível. Mas teria que alterar o código!

@paulotuca Boas, ficaria algo como: Range("A1").value = Textbox1.value & "m³ x Ø" & Textbox2.value & " x " & Textbox3.value &"m" Sendo range("A1") , a célula onde deseja colocar a informação. E onde está Textbox1/2/3 colocar o nome da Textbox que você utiliza.

@Maria Eduarda Duda Lembra da plataforma onde jogava ele?

@Allex66sandro Boas, Veja se lhe ajuda: Modelo.zip

@Fabiano Rodrigues da Cunha Boas, Poderia disponibilizar a planilha para podermos ajudar melhor? Em imagem fica difícil testar fórmulas. Obrigado! Veja se este exemplo lhe ajuda. ContaSEUnicos.xlsx

@NatanSnc Boas, Experimente reinstalar o office.

Boas, Então eu tenho o office 365 instalado na minha máquina, mas também tenho o office 2010. Os meus ficheiros Excel tinham todos o ícone do office 365, mas de um momento para o outro ficaram com os ícones do office 2010(Imagem a baixo). porém ele continua abrindo os ficheiros pelo Excel 365. Alguém sabe o que pode ter acontecido? Obrigado!

Boas, disponibilize o arquivo para podermos ajudar melhor. Para anexar ficheiros com macros deve zippar eles recorrendo ao WinRar ou 7Zip, entre outros.

@sergioolisi Pode anexar outra imagem, mas desta vez com a célula J5 ativada, para ver a fórmula. Ou então copie a fórmula da célula J5 e cole aqui. Obrigado!

@sergioolisi Boas, então acrescentei aqui os períodos de férias. Eu teste com todos os mêses de 1 a 12 e todos deram certo. Caso o mês não exista ele apresenta a frase "Sem Resultados" Férias.xlsx

@sergioolisi Boas, Veja se é isto que pretende ao alterar o valor da célula K1, ele vai filtrar tendo em conta as duas colunas com datas. Espero ter ajudado. Férias.xlsx

@David dos Santos Silva Boas, já experimentou conectar em outro monitor/TV, ou então com outro cabo?

@Carlos89 Boas, o valor de I2 é para ser distribuído como?

@thiago.alves22 É uma das formas de tratamento de erros. É por conta dessa linha de código: On Error GoTo 0 Caso ocorra um erro entre ela e o "0" , ele salta todas as linhas desde o erro e recomeça após o "0". Não sei se me fiz entender.

@thiago.alves22 Foi um prazer ajudar! Mais alguma dúvida é só marcar. Não se esqueça de colocar o tópico como resolvido e deixar o gostei como forma de agradecimento!

@thiago.alves22 Ok eu atualizei esse código, pode ser que não tenha reparado. Troque esse IF If Sheets("SegundaPagina2Fotos").visible = false Then Sheets("SegundaPagina2Fotos").visible = true Sheets("SegundaPagina2Fotos").Select Sheets("SegundaPagina2Fotos").visible = false Else Sheets("SegundaPagina2Fotos").Select End if por: Sheets("SegundaPagina2Fotos").visible = true Sheets("SegundaPagina2Fotos").Select E veja se resolve. Experimente também utilizar o segundo código.

@thiago.alves22 Está a utilizar qual código? O primeiro que mandei ou o segundo?

@thiago.alves22 Colocou o código em que ficheiro? Tem esse ficheiro na mesma pasta? Caso tenha crie um ficheiro novo em uma pasta diferente, para não correr o risco de ele fechar a macro.

@thiago.alves22 Sim precisa. Troque a linha de código: Sheets("SegundaPagina2Fotos").Select Por: Sheets("SegundaPagina2Fotos").visible = true Sheets("SegundaPagina2Fotos").Select O que vai fazer é caso a worksheet(SegundaPagina2Fotos) não esteja visível ele vai tornar visível.

@thiago.alves22 Então fiz aqui dois códigos: Um com o caminho da pasta e da imagem já dentro do código: Sub loopFoto() Dim MinhaPasta As String, MeuFicheiro As String, MinhaImagem As String MinhaPasta = "C:\Users\thiago.vasconcelos\OneDrive - Axess AS\Desktop\Axess\Axess\Modelo" MinhaImagem = "C:\Users\thiago.vasconcelos\OneDrive - Axess AS\Desktop\Axess\Axess\Assinatura Lincon\Assinaturas\Assinatura Lincon Daquilla.jpeg" Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Application.Calculation = xlCalculationManual MeuFicheiro = Dir(MinhaPasta & "\", vbReadOnly) Do While MeuFicheiro <> "" DoEvents On Error GoTo 0 Workbooks.Open Filename:=MinhaPasta & "\" & MeuFicheiro, UpdateLinks:=False 'Aqui vai o nome da WorkSheet Sheets("SegundaPagina2Fotos").Select With ActiveSheet.Pictures.Insert(MinhaImagem) With .ShapeRange .LockAspectRatio = msoTrue .Width = 75 'Alterar tamanho .Height = 100 'Alterar tamanho End With .Left = ActiveSheet.Range("Q59").Left .Top = ActiveSheet.Range("Q59").Top .Placement = 1 .PrintObject = True End With 0 Workbooks(MeuFicheiro).Close SaveChanges:=True MeuFicheiro = Dir Loop Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True Application.Calculation = xlCalculationManual End Sub Outro com a possibilidade de escolher a pasta e a imagem: Sub loopFoto() Dim MinhaPasta As String, MeuFicheiro As String, MinhaImagem As String MsgBox "Selecione a pasta!", vbOKOnly With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show MinhaPasta = .SelectedItems(1) Err.Clear End With MsgBox "Selecione a imagem!", vbOKOnly With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear .Filters.Add "JPG", "*.JPG" .Filters.Add "JPEG File Interchange Format", "*.JPEG" .Filters.Add "Graphics Interchange Format", "*.GIF" .Filters.Add "Portable Network Graphics", "*.PNG" .Filters.Add "Tag Image File Format", "*.TIFF" .Filters.Add "All Pictures", "*.*" .AllowMultiSelect = False .Show MinhaImagem = .SelectedItems(1) Err.Clear End With Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Application.Calculation = xlCalculationManual MeuFicheiro = Dir(MinhaPasta & "\", vbReadOnly) Do While MeuFicheiro <> "" DoEvents On Error GoTo 0 Workbooks.Open Filename:=MinhaPasta & "\" & MeuFicheiro, UpdateLinks:=False Sheets("SegundaPagina2Fotos").Select With ActiveSheet.Pictures.Insert(MinhaImagem) With .ShapeRange .LockAspectRatio = msoTrue .Width = 75 .Height = 100 End With .Left = ActiveSheet.Range("Q59").Left .Top = ActiveSheet.Range("Q59").Top .Placement = 1 .PrintObject = True End With 0 Workbooks(MeuFicheiro).Close SaveChanges:=True MeuFicheiro = Dir Loop Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True Application.Calculation = xlCalculationManual End Sub Espero que lhe ajude! Ps. Certifique-se que dentro da pasta apenas existem ficheiros Excel caso contrário vai causar erro.

@thiago.alves22 Qual a célula que deseja colocar a imagem?

@thiago.alves22 Qual o nome da worksheet? Qual o nome da imagem? E o caminho dela?

Veja se lhe ajuda: Apresentar gráficos em UserForm - Diário Excel Não sei se conhece, mas deixo aqui este site para aprender mais sobre VBA: Macoratti .NET