Victor Comparini

Olá, @Marcelo_gs 
 
Veja se esse modelo atende sua necessidade:
 
EXEMPLO CDH.xlsx

Olá @Williams Matos
 
Segue a Planilha resolvida!
 
Pasta1.xlsx

Olá @Rodrigues77,
 
Você tem duas opções nesse caso. Uma Visual e outra com fórmula, deixarei as duas anexadas na planilha abaixo. Após a explicação.
 
A Primeira é uma formatação condicional, basta você selecionar a coluna que você quer verificar os dados selecionados e em "Formatação Condicional" escolher a opção "Regras de Realce de Células -> Valores Duplicados.


A Segunda opção é uma Fórmula "=CONT.SE" na célula de contagem, com o critério sendo o valor que está na coluna:
Nesse caso foi =CONT.SE(A:A;A2). A fórmula funciona =CONT.SE(Área de Critérios; Critério). A área são as células que você quer verificar se existem valores duplicados, e o critério e o valor a ser verificado nessa área.

 
Espero ter esclarecido sua dúvida.
Como mencionei, a planilha utilizada no exemplo está anexada abaixo:
 
contagem.xlsx

@Rafael nunes da silva
 
Olá
 
Consegui resolver seu problema da maneira que você descreveu.
 
INPUTBOX_Atualizado.rar

Olá,
Sim, consegui entender agora.
Essa na verdade é uma configuração que você faria em toda a planilha, mas não é necessário.

Segue o passo a passo:
Com detalhe que o passo 1 e 2 não são exatamente necessário, mas é recomendável que você defina quais células poderão ser alteradas. No caso de ser todas as células, menos essa ou essa e alguma outra, basta seguir todos os passos.

Passo 1: Clique sobre a seta acima dos números da coluna e a esquerda das letras para selecionar todas as células da planilha.


Passo 2: Clique com o botão direito sobre qualquer célula e selecione Formatar Células > Proteção. E desmarque a opção Bloqueadas
 
LEMBRANDO QUE: Isso vai permitir que todas as suas células podem ser alteradas, e no próximo passo vamos decidir quais não serão.
 
 
Passo 3: Selecione somente a célula com a sua fórmula e marque a opção Bloqueadas.
Obs: a opção Oculta servirá para que se alguém selecionando sua célula, não poderá ver qual fórmula foi usada para o resultado.

 
Passo 4: Como podemos ler, na mensagem abaixo dessas opções, isso não tem efeito até configurarmos corretamente, então vamos proteger a planilha em Revisão > Proteger Planilha.

 
Passo 5: Aqui há várias opções, porém focando na nossa necessidade, se você clicar em OK, já será suficiente, para que a sua célula bloqueada não possa ser alterada, mas você ainda pode:
Escolher uma senha para a sua planilha Escolher se essa célula pode ser selecionada quando a planilha estiver protegida. Se a célula não puder ser selecionada, desmarque a opção Selecionar células bloqueadas, mas isso não é necessário para que funcione.
Depois que clicar em OK, sua planilha estará protegida, e essa célula bloqueada já não poderá ser alterada.
 
Fique a vontade para voltar a perguntar, e se já foi suficiente para sanar sua dúvida, lembre-se de marcar o tópico como Resolvido.

Olá @naty90

Esse erro acontece porque o tipo "Literal" não existe.
Para o nome, não seria utilizado o tipo "caractere"?
 
Exemplo:
 
var palavra : caractere comprimento : inteiro inicio escreval("Digite uma palavra:") leia(palavra) comprimento <- Compr(palavra) escreval ("A palavra ", palavra, " possui ", comprimento, " caracteres") fimalgoritmo  

Olá!
 
Vamos ver se minha solução com Links ajuda.
Ao fim do post vou deixar meu arquivo de exemplo.
 
Passo a Passo:
Um slide com as bandeiras;
4 slides, um para cada língua do texto.
 
1. A primeira coisa é ocultar esses slides para eles não aparecerem durante a apresentação, pois, só serão acessados quando a pessoa clicar sobre a bandeira.

 
2. Depois, é só atribuir cada link para a respectiva bandeira. Clique com o botão direito e procure a opção de Link, depois na seta > e lá embaixo em inserir Link...

 
3. Por ultimo, Clique na opção Colocar neste documento, e selecione o seu slide.

 
Pronto!! Durante a apresentação, basta clicar sobre cada bandeira que irá para o respectivo slide, e passando a apresentação normalmente, eles não aparecerão.
Durante o modo de edição do slide, segure CTRL e clique na bandeira para ir até o slide indicado.
 
Espero ter ajudado, e caso não seja o que necessite, sinta-se a vontade para questionar e voltar a explicar.
 
Documento do exemplo:
Exemplo Link.pptx

Olá
 
testando aqui, consegui assim:
 
    With ActiveWorkbook.Worksheets("Planilha1").Sort
        .SetRange Range("J11:J58")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 
IMPORTANTE: Certifique-se de que os número estão formatados como números, pois se estiverem como texto, pode ser ele irá manter a formatação que você colocou a baixo.

Olá
 
Tente utilizar essa macro no word:
 
Não esqueça de trocar o local do arquivo e o formato
Sub AddArquivos() 'Código desenvolvido por: Vics Dim localArquivo As String Dim arquivo As String Dim formato As String localArquivo = "SEU LOCAL" 'local do seu arquivo Exemplo: C:\Users\Usuario\Desktop\ formato = ".png" 'formato dos arquivos arquivo = 1 arquivo = Format(arquivo, "0000") Do While arquivo <= 100 Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo + 3 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo - 1 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo - 1 arquivo = Format(arquivo, "0000") Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _ LinkToFile:=False, SaveWithDocument:=True arquivo = arquivo + 3 arquivo = Format(arquivo, "0000") Loop End Sub Espero ter ajudado,
Qualquer dúvida estou a disposição.

Bom dia,
 
Segue sua planilha.
 
Qualquer dúvida estou a disposição.
 
Bingo.zip