Combobox oculta sob uma condição


#1

Pessoal,

Eu coloquei uma Caixa de Combinação (formulário) em minha planilha e gostaria que ela apenas ficasse visível, caso uma célula dessa planilha fosse preenchida.
Ex.: Quando a célula A1 tiver qualquer valor, a combobox ficará visível, caso contrário, permanece oculta.
Como posso fazer isso de forma simples?
Obrigado!!


#2

Segue:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
    If Target.Value <> "" Then
        Plan1.Shapes.Range(Array("Drop Down 1")).Visible = True
    Else
        Plan1.Shapes.Range(Array("Drop Down 1")).Visible = False
    End If
End If
End Sub

Visivel e Invisivel.xlsm (16,4 KB)


#3

Valeu, Obrigado pela ajuda!!!
A propósito, não há como fazer sem marcro para que a planilha fique com a extensão xlsx?
Imaginei que não daria mesmo!!
Obrigado novamente!
Abraço,


#4

Dá pra salvar .xls

Continua a funcionar normalmente…


#5

Que estranho! A minha aqui parou de funciionar!!
Rs


#6

Estranho. Isso não deveria acontecer…