Skip to main content
conteúdo editado
Fonte Link
Gabriel Rodrigues
  • 16,2mil
  • 14
  • 62
  • 124

temTem como sim, para isto vamos criar um ComboBox temporário para interagir, pois, precisamos de um componente editável para isto e a Lista não é editável!

tem como sim, para isto vamos criar um ComboBox temporário para interagir, pois, precisamos de um componente editável para isto e a Lista não é editável!

Tem como sim, para isto vamos criar um ComboBox temporário para interagir, pois, precisamos de um componente editável para isto e a Lista não é editável!

adicionou 83 caracteres ao conteúdo
Fonte Link
Junior Moreira
  • 7mil
  • 4
  • 22
  • 50

Feche o Visual Basic, onde a Lista foi criada será substituída pelo ComboBox!

Faça os testes, aguardo o feedback!

Faça os testes, aguardo o feedback!

Feche o Visual Basic, onde a Lista foi criada será substituída pelo ComboBox!

Faça os testes, aguardo o feedback!

Fonte Link
Junior Moreira
  • 7mil
  • 4
  • 22
  • 50

tem como sim, para isto vamos criar um ComboBox temporário para interagir, pois, precisamos de um componente editável para isto e a Lista não é editável!

Mãos a obra!

  1. Crie uma lista qualquer com algumas opções em Maiúsculo e Minúsculo (que é seu caso).
  2. Agora, abra a Aba Desenvolvedor (se não estiver disponível, Abra o Menu Arquivo/Opções/Personalize a Faixa de Opções). Insira em qualquer local um Controle ActiveX ComboBox e altere seu nome para ComboBoxTemp.
  3. Ainda na aba Desenvolvedor, clique sobre o botão Visual Basic, de um clique duplo sobre a planilha onde esta o componente e a lista (atenção, é importante estar no local correto) e adicione (copie e cole) este código!
Option Explicit
 

Private Sub ComboBoxTemp_KeyDown(ByVal _
        KeyCode As MSForms.ReturnInteger, _
        ByVal Shift As Integer)
 
    'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab
    Select Case KeyCode
        Case 9
            ActiveCell.Offset(0, 1).Activate
        Case 13
            ActiveCell.Offset(1, 0).Activate
        Case Else
            'Nada
    End Select
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim str As String
    Dim cboTemp As OLEObject
    Dim ws As Worksheet
    Dim wsList As Worksheet
 
    Set ws = ActiveSheet
    Set wsList = Sheets(Me.Name)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    If Application.CutCopyMode Then
      'Permite copiar e colar na planilha
      GoTo errHandler
    End If
 
    Set cboTemp = ws.OLEObjects("ComboBoxTemp")
      On Error Resume Next
      With cboTemp
        .Top = 10
        .Left = 10
        .Width = 0
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
        .Value = ""
      End With
 
    On Error GoTo errHandler
      If Target.Validation.Type = 3 Then
        Application.EnableEvents = False
        str = Target.Validation.Formula1
        str = Right(str, Len(str) - 1)
        With cboTemp
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 15
            .Height = Target.Height + 5
            .ListFillRange = str
            .LinkedCell = Target.Address
        End With
        cboTemp.Activate
 
        'Abrir a lista suspensa automaticamente
        Me.ComboBoxTemp.DropDown
        Me.ComboBoxTemp.MatchEntry = fmMatchEntryNone 'Aqui faz acontecer o que você deseja
        Me.ComboBoxTemp.AutoWordSelect = False
        End If
 
errHandler:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Exit Sub
 
End Sub

Faça os testes, aguardo o feedback!