Boa tarde!

O que vc poderia fazer é aplicar um zoom na célula em questão.

Veja se exemplo atende!

Doni

Cara não consegui abrir o teu arquivo em anexo. Tem como mandar ele em outro formato ? ou passar a fórmula ? Obrigado!

Boa noite!

Cole o código na planilha que contem a validação.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim lZoom As Long
  Dim lZoomDV As Long
  Dim lDVType As Long
  lZoom = 100
  lZoomDV = 200
  lDVType = 0

  Application.EnableEvents = False
  On Error Resume Next
  lDVType = Target.Validation.Type
  
    On Error GoTo errHandler
    If lDVType <> 3 Then
      With ActiveWindow
        If .Zoom <> lZoom Then
          .Zoom = lZoom
        End If
      End With
    Else
      With ActiveWindow
        If .Zoom <> lZoomDV Then
          .Zoom = lZoomDV
        End If
      End With
    End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub
errHandler:
  GoTo exitHandler
End Sub

Não me resolveu :
Eu precisava que a própria caixa (a que esta inserida a listagem ao clicar) aumentasse.

"""" A verdade é que eu já consegui um código vba que faz com que os itens que aparecem na caixa de listagem ao serem selecionados virem apenas um pequeno 'código de identificação', o problema esta que eu tenho frases grandes, ex.: "Executou operação sem autorização do Supervisor", sendo que as células tem que ser pequenas porque a planilha é muito grande e depois ela tem que ser impressa em A4. """"

O único item que falta é a caixa de listagem aumentar sua dimensão! Para que eu abrir a caixa todas as frases apareçam, mesmo com a célula pequena. É possível ? Pode me ajudar ? Sabe onde posso encontrar ajuda com isto ? OBRIGADO!

A principio não é possível fazer a implementação que pretende, pelo menos até onde eu sei, lembro-me que já passou duvida parecida aqui no Forum, e na Busca encontrei o Tópico abaixo, pena que o arquivo está corrompido, mais tarde em casa svou ver se encontro o modelo e atualizo o anexo, pelo menos tem o link da fonte e pode baixar o modelo direto do site alem de ter as explicações, único incoveniente é que é em ingles, mas nada que google translator não resolva.

Lista de Validação com mais de 8 itens exibidos
viewtopic.php?f=20&t=1744&p=6971

Fonte:
Excel Data Validation Combo box Click
http://www.contextures.com/xlDataVal14.html

[]s

Bom dia!

Até onde sei com lista de validação, mesmo com VBA não é possivel, o que vc poderia fazer é mudar para um Listbox ou Combobox.

Doni

Uuuuhuu, estamos quase lá! Hahahaha! Boa a dica sobre a Caixa de listagem! Agora consigo arrumar a lista para o tamanho que eu quero e vincular ela a uma célula! Mas falta só duas coisas:

1. A Caixa de listagem não desaparece! Ela sempre está ali... Tem como ela aparecer apenas quando eu clicar na célula que ela está vinculada ?

2. Ao clicar nos itens da caixa de listagem aparecem apenas números na célula vinculada.. Tem como mudar estes números para códigos ?? ( Ex.: A.2.2 )

Sei que este post está ficando extenso.. mas é que esta nova solução criou estes 2 novos problemas... ( mas pelo menos solucionou o antigo problema do tamanho da caixa de listagem!!! )
Obrigado pela ajuda!

Mateus

mateus, não tem problema o post se prolongar, desde que cheguemos a uma solução, mas quando diz : "mas é que esta nova solução criou estes 2 novos problemas".

Quais são as novas soluções ? Qual das dicas acima utilizou ?

[]s

Mateustt, Boa Noite!

Se vc ler o link que o Mauro postou vc poderá ver que la tem todo o procedimento para colocar um ComboBox em cima Lista de Validação e esse CbBox fica oculto, só aparece quando vc clica na célula, tem mais uma planilha de exemplo para baixar.
Mauro desculpe por ter respondido o mesmo que vc, eu não tinha visto a sua postagem.
Doni

Re-Upei o anexo no Tópico que eu havia indicado, mas de qualquer forma segue o modelo que eu havia implementadonaquela época, veja se ajuda.

Lista Suspensa com ComboBox

Fonte:
Excel Data Validation Combo box Click
http://www.contextures.com/xlDataVal14.html

Faça os testes e veja se ajuda.

[]s

Mauro! Muito bom este seu exemplo! Ajudou bastante! O meu único ploblema agora ficou que não consigo transformar os valores em código sem que a célula começe a Auto-compeltar e que não dê para utilizar o Backspace.

Problemas: - Com a programação adicional não é possível mais utilizar o Backspace na Caixa de Combinação.
- Com a programação adicional a Caixa de Combinação começou a Auto-completar.

Tem como Arrumar esta programação ? Ou será que tem que fazer uma diferente para que possa transformar os itens em códigos sem dar este erro ?
Aqui está o Arquivo que estou fazendo. Tem como consertar? Obrigado! Falta pouco agora! Hahahaha

Mateus, não entendi o que quer dizer com "não consigo transformar os valores em código sem que a célula comece a Auto-completar".

Quanto a questão do BackSpace o KeyCode do mesmo é "8", então é só adicionar na relação de verificação dos Cases :

Select Case KeyCode
Case 8
MsgBox "Voce usou o BackSpace, O que quer fazer agora ?"

Case 9
ActiveCell.Offset(-1, 0).Activate
Case 13
ActiveCell.Offset(-1, 0).Activate
Case Else
'do nothing
End Select

Abaixo temos uma relação dos KeyCodes :
Key Code Constants
http://msdn.microsoft.com/en-us/library ... 25(v=vs.60).aspx

[]s

Obrigado a todos ! Consegui! Tive que arrumar o Case 8 e 46 ( BackSpace e Delete) para 'ActiveCell.ClearContents' , assim consegui utilizar ambos dentro do ComboBox. E depois tive que arrumar as propriedades do ComboBom no Item MatchEntry para '2 - fmMatchEntryNone', assim resolvi o meu problema que estava autocompletando a célula do ComboBox.
Segue Exemplo da Planilha 100% ! Se trata de um caso bem diferenciado de Caixa de Listagem!

Boa noite!!

Lembre de marcar sua post como resolvido!!!
viewtopic.php?f=7&t=3784

Att