AfonsoMira

Boas @Angelo Campos , Qual a sua versão do Excel ?

@Martti Caso precise de alterações é só dizer.

Então veja se é mais ou menos isto que deseja. IMAGE_DATA.zip

Boas, Na macro pretende alterar apenas o número do ID ? Ou o número da Ordem também é para alterar conforme o ID ? Obrigado!

Então mais vale formatar mesmo e instalar de novo. kkkkk Muito Obrigado @GuilhermeGB

Boas @Martti , Já que não consegue colocar o ficheiro original, consegue colocar a simulação para poder ajudar melhor. Penso que lhe consiga criar uma macro para a sua necessidade.

Obrigado pela resposta! Quando montar, atualizo o post dizendo se deu certo ou não. Tinha mais uma dúvida! No meu setup antigo já tenho o HD com o Windows 10 instalado. Terei que formatar o HD e instalar novamente o Windows ou posso ligar o HD na placa-mãe nova e ele abre logo tudo? Obrigado @GuilhermeGB

Boas, @DouglasRS9 Consegue disponibilizar o ficheiro? @DouglasRS9 Experimente mudar a impressora padrão do Windows, para por exemplo "Microsoft XPS"

Boas, Atualizei recentemente o meu PC. Mas ainda não montei E gostava de saber se vai ser necessário fazer uma atualização na BIOS da MotherBoard. Setup Antigo: Processador: Intel Core i5 6400 2.70GHz Placa de vídeo: NVIDIA GeForce GTX 1650 4GB Placa-mãe: HP IPM 17-DD Memória: 1 x Micron Technology MT16KTF1G64AZ-1G9P1 DDR3L 8GB Setup Novo: Processador: AMD Ryzen 5 3600 3.6 GHz Placa de vídeo: NVIDIA GeForce GTX 1650 4GB Placa-mãe: Motherboard ASUS TUF B450M-PRO S Memória: RAM DDR4 CORSAIR CMW16GX4M2C3200C16 (2 x 8 GB - 3200 MHz - CL 16 - Preto)

Boas, Veja se é isto que deseja: Alterações que fiz estão a verde: Private Sub CommandButton1_Click() If TextBox1.Value <> "" Then If MsgBox("Aplicar alterações no registro selecionado?", vbQuestion + vbYesNo, "Atualizar informações") = vbYes Then On Error GoTo erro ListBox1.List(ListBox1.ListIndex, 0) = TextBox1.Text With ThisWorkbook.Sheets("tipomaterial") .Cells(ActiveCell.Row, "A") = TextBox1 End With MsgBox "Alteração realizada com sucesso!", vbInformation, "Atualização de dados" Unload Me telalistagemtipodemateriais.Show End If End If If TextBox1.Value = "" Then If MsgBox("Aplicar alterações no registro selecionado?", vbQuestion + vbYesNo, "Atualizar informações") = vbYes Then MsgBox "É necessário informar o novo nome", vbInformation, "Atualização de dados" Unload Me editartipodemateriais.Show End If End If Sheets("MENU").Activate Exit Sub erro: MsgBox "É necessário selecionar um item e digitar o novo nome" Sheets("MENU").Activate End Sub Editar listbox.zip

Veja se é isto que deseja: Teste - Banco de Dados.xlsx Ps. Apenas testei no Office 365

Boas, Veja se seria isto: HelpPlease.xlsx

Boas veja se isto ajuda:

@Netobarbuio Boas, Veja se isso ajuda. Vai ter que colocar uma aba no ficheiro com o nome "Controle" e na célula A1 inserir a quantidade de vezes que pode abrir até eliminar o ficheiro. Cria um módulo novo e cola a seguinte macro: Sub ApagaFicheiro() Dim xNomeCompleto As String xNomeCompleto = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xNomeCompleto Application.ActiveWorkbook.Close False End Sub Depois no evento do Livro: 'Antes de fechar ele retira 1 do valor de A1 Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Controle").Range("A1").Value = Sheets("Controle").Range("A1").Value - 1 End Sub 'Ao abrir verifica se o valor de A1 é 0, caso seja verdade ele chama a macro ApagaFicheiro Private Sub Workbook_Open() On Error Resume Next Dim vezes As Integer Dim sh As Worksheet vezes = Sheets("Controle").Range("A1").Value If vezes = 0 Then ApagaFicheiro End If End Sub

Boas, Consegue anexar o ficheiro com as macros ? Terá que zipar o ficheiro para ser compatível.

@maskzao1 É um prazer ajudar, se precisar de alterações é só avisar. :)

Boas, Veja se lhe ajuda: Planilha de acompanhamento de documento offshore.zip

Boas, Caso consiga disponibilize o ficheiro para podermos ajudar melhor.

@Gabriel Divino Boas, Não percebi muito bem o que pretende, mas veja se seria algo assim: Teste1.xlsx

Boas, Um cabo HDMI 2.0 penso que até possa dar caso o monitor seja novo. Mas o recomendado mesmo será o DisplayPort. Para fazer o OutPut de vídeo em 3 situações diferentes: 1. A 1080p com 144Hz, vai precisar de um dual-link DVI, um DisplayPort ou um HDMI 1.3 ou maior. 2. A 1440p com 144Hz, vai precisar pelo menos de um HDMI 2.0 ou um DisplayPort 1.2 . 3. A 4K com 144Hz, vai precisar de um HDMI 2.1 ou um DisplayPort 1.4 .

@Gutelo Boas, veja se este código lhe ajuda. Sub copiaEcola() y = 1 ultimaLinha = Sheets("DadosOriginais").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To ultimaLinha Step 2 Sheets("DadosNovos").Cells(y, 1) = Sheets("DadosOriginais").Cells(i, 1) Sheets("DadosNovos").Cells(y, 2) = Sheets("DadosOriginais").Cells(i + 1, 1) y = y + 1 Next i End Sub Sendo que vai copiar em uma folha e colar em outra. A folha onde terá a lista: A1 = Contato A2 = Telefone A3 = Contato A4 = Telefone Tem o nome de "DadosOriginais" Já a folha onde vai colar os dados novos tem o nome de "DadosNovos"

@Jefferson TS Boas, Então o erro acontece, pois a variável nasc está declarada como data, como está a atribuir o valor "" como este não é uma data então dá o erro. Experimente algo como isso, ele verifica se o valor é "" ou não.

@GENECIOFICIAL Boas, Veja se é isto que deseja. format-cond-2-coincid.xlsx

@Diclas Boas, Não tenho 100% certezas, mas penso que seja por o Excel já se encontrar aberto. Editado: Estive pesquisando e parece ser um bug do Excel. Encontrei aqui o que parece ser uma solução, de uma olhada e veja se resolve.

@crownics Sim dá, fica algo como: Public Function CorCelula(rng As Range) CorCelula = rng.Interior.Color 'Vai buscar a cor da célula 'Se a cor for branca então If CorCelula = 16777215 Then CorCelula = 0 'Se diferente de branco Else CorCelula = 1 End If End Function