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
1,004 Visualizações
RSS
zanni
 zanni
(@zanni)
Posts: 27
Eminent 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.

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

 
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

Osvaldo

 
Postado : 01/06/2016 7:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico