Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ativar lista suspen...
 
Notifications
Clear all

Ativar lista suspensa quando célula selecionada

 
2024 - VBA & Macros
Post Recente por Osvaldomp 8 anos atrás
2 Posts
2 Usuários
0 Reactions
999 Visualizações
RSS
 zanni
(@zanni)
Posts: 0
New Member
Topic starter
 

Boa tarde!!

Existe algum jeito de, quando uma célula com lista suspensa for selecionada, ela automaticamente aparece a lista com as informações, sem a necessidade de clicar com o mouse para que ela apareça.

Espero ter sido claro, obrigado.

 
Postado : 01/06/2016 9:32 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Instale este código no módulo da planilha de interesse.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If InStr(ActiveCell.SpecialCells(xlCellTypeAllValidation).Address, ActiveCell.Address) > 0 Then
  Application.SendKeys ("%{Down}")
 End If
End Sub
 
Postado : 01/06/2016 7:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico