AfonsoMira

@DiegoFreitas1983 Boas penso que neste caso teria que utilizar macro VBA. Vou tentar fazer aqui um exemplo. Ora teste ai Cópia de Etiquetas 2.zip

Boas veja se é assim que pretende? VISUALIZAÇÃO IMAGENS TESTE.xlsx

Veja se atende às suas necessidades. Caso dê algum erro diga me para poder corrigir. Ficheiro em anexo. Abraços. exemplo.zip

Boas desde já peço desculpas pela demora estava fazendo outros pedidos. Vou tentar acabar aqui o seu e envio assim que possível.

Penso que assim dê. Ps. Não testei aqui. Selection.AutoFill Destintatio:=Range(Cells(linha, 6), Cells(linha,8)), Type:=xlFillDefault

Boas começe com o pedido = 1. Na célula I4 ponha 1. Cada vez que for imprimir corra este código. Ele altera o valor da célula I4 e acrescenta mais 1. Range("I4").Value = Range("I4").Value + 1

Boas adicione na sua planilha com uma cor diferente o resultado desejado. Obrigado!

Sim foi um erro meu na digitação na fórmula peço desculpas. Veja se assim está melhor: Matriz priorização Afonso.xlsx

Boas veja se seria isso. Matriz priorização Afonso.xlsx

Boas penso que com o comando beep consiga. Adicione algo como: Private Sub Worksheet_Change(ByVal Target as Range) If range("A1") > 0 then beep End Sub

@Michel Guidetti Quando abre o form clique no novo e ele automaticamente irá adiconar na nova linha Caso o seu apareça em inglês clique em "New" Como na imagem abaixo.

@Alfredo Henrique Boas amigo, eu vou tentar ajudar você. Seria possível anexar o seu ficheiro ou um modelo dele para não ter que reconstruir tudo do 0? Obrigado!

@Michel Guidetti De nada! Não se esqueça de marcar como resolvido. Deixe um like na resposta é uma forma de agradecer. Obrigado!

Boas seria algo deste género? Inventario.zip

Boas para o poder ajudar melhor peço que adicione o ficheiro em anexo ou então um exemplo dele com informações ficticias, mas com a mesma macro. Obrigado.

Sim

@TheVoid188 Boas eu penso que dê sim. Penso que para o computador iniciar a Bios precisa da CPU(Processador) e da Memória RAM apenas.

@Rafael nunes da silva Será isto? popupTotal_AfonsoMira.zip

@Rafael nunes da silva Boas veja se é isso que deseja? Ficheiro em anexo. popupTotal_AfonsoMira.zip

@Adriano Ap Bardini Veja se é assim que deseja. Forum vba.zip

Boas veja se isto lhe ajuda. Forum vba.zip

Boas foi um erro meu aqui na digitação da Macro. Ora teste agora sff RELATORIO NFE_AfonsoMira.zip

Boas tentei criar uma macro aqui. Veja se é isso que pretende? Caso não seja estou disposto ajudar mais. RELATORIO NFE_AfonsoMira.zip

Sim têm toda a razão. Erro meu aqui. Ora experimente da seguinte maneira: Private Sub UserForm_Initialize() Dim arquivo As String, pasta As String, diretorio As String ListBox1.Clear diretorio = "Caminho COMPLETO do ficheiro" While diretorio <> "" If diretorio <> "*.*" Or diretorio <> "" Or diretorio <> "." Or diretorio <> ".." Then ListBox1.AddItem diretorio diretorio = Dir() Else diretorio = Dir() End If Wend End Sub

Boas, tudo bom, penso que você tenha que informar o caminho completo desse ficheiro, pois em computadores diferentes o caminho que usa agora pode variar. Exemplo no seu PC a pasta de logistica de rede tem o seguinte caminho: "J:logistica..." já em outro PC poderá ter: "L:logistica..." a diferença entre o J e o L já faz com que o VBA não consiga localizar a pasta. O que eu sugiro é o seguinte. Vá no ficheiro escolhido, clique com o botão direito do mouse em cima, selecione propriedades, de seguida vá na aba segurança e onde está nome do objeto, esse será o caminho que todos os PC's irão reconhecer. Depois altere o seu código para este e preencha o que falta (falta indicar o caminho completo esse ai em cima que mostrei como se pega). Código: Private Sub UserForm_Initialize() Dim arquivo As String, pasta As String, diretorio As String ListBox1.Clear diretorio = "Caminho COMPLETO do ficheiro" pasta = ThisWorkbook.Path arquivo = diretorio & pasta While arquivo <> "" If arquivo <> "*.*" Or arquivo <> "" Or arquivo <> "." Or arquivo <> ".." Then ListBox1.AddItem arquivo arquivo = Dir() Else arquivo = Dir() End If Wend End Sub Alguma dúvida, é só perguntar.