Como evitar copiar e colar sobre a célula com lista suspensa no Excel?
Para uma célula com lista suspensa de validação de dados, ao copiar o conteúdo de outra célula e colar nela, a lista suspensa desaparecerá e será substituída pelo novo conteúdo de colagem. Em alguns casos, você deseja evitar copiar e colar outro conteúdo sobre a célula com a lista suspensa, o que você faria para lidar com isso? Neste artigo, você obterá um método VBA para lidar com esse problema.
Impedir copiar e colar sobre a célula com a lista suspensa no Excel
Impedir copiar e colar sobre a célula com a lista suspensa no Excel
1. Abra a planilha com a célula da lista suspensa que você deseja impedir de copiar e colar.
2. Pressione outro + F11 simultaneamente para abrir o Aplicativos Microsoft Visual Basic janela.
3. No Aplicativos Microsoft Visual Basic janela, clique duas vezes no nome da planilha atual no painel esquerdo, em seguida, copie e cole o código VBA abaixo no editor de código. Veja a imagem:
Código VBA: impede copiar e colar sobre a célula com a lista suspensa
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
Dim xValue As String
Dim xCheck1 As String
Dim xCheck2 As String
Dim xRg As Range
Dim xArrCheck1() As String
Dim xArrCheck2() As String
Dim xArrValue()
Dim xCount, xJ As Integer
Dim xBol As Boolean
' If Target.Count > 1 Then
' Exit Sub
' End If
xCount = Target.Count
ReDim xArrCheck1(1 To xCount)
ReDim xArrCheck2(1 To xCount)
ReDim xArrValue(1 To xCount)
Application.EnableEvents = False
On Error Resume Next
xJ = 1
For Each xRg In Target
xArrValue(xJ) = xRg.Value
xArrCheck1(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
Application.Undo
xJ = 1
For Each xRg In Target
xArrCheck2(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
xBol = False
For xJ = 1 To xCount
If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
xBol = True
Exit For
End If
Next
If xBol Then
MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
Else
xJ = 1
For Each xRg In Target
xRg.Value = xArrValue(xJ)
xJ = xJ + 1
Next
End If
Application.EnableEvents = True
End Sub4. Pressione outro + Q chaves para sair do Aplicativos Microsoft Visual Basic janela.
5. Quando você cola conteúdo em uma célula com lista suspensa, uma caixa de diálogo aparecerá para lembrá-lo de que a colagem não é permitida. Veja a imagem:
Note: Este VBA funciona apenas na colagem de uma única célula. Se você copiar e colar em várias células, não funcionará.
Crie facilmente uma lista suspensa com caixas de seleção no Excel:
A Lista suspensa com caixas de seleção utilidade de Kutools for Excel pode ajudá-lo a criar facilmente uma lista suspensa com caixas de seleção em um intervalo especificado, planilha atual, pasta de trabalho atual ou todas as pastas de trabalho abertas com base em suas necessidades.
Baixe agora a trilha gratuita completa de 30 dias do Kutools para Excel!
Artigos relacionados:
Como criar uma lista suspensa com várias caixas de seleção no Excel?
Muitos usuários do Excel tendem a criar uma lista suspensa com várias caixas de seleção para selecionar vários itens da lista por vez. Na verdade, você não pode criar uma lista com várias caixas de seleção com a validação de dados. Neste tutorial, vamos mostrar dois métodos para criar uma lista suspensa com várias caixas de seleção no Excel. Este tutorial fornece o método para resolver o problema.
Crie uma lista suspensa de outra pasta de trabalho no Excel
É muito fácil criar uma lista suspensa de validação de dados entre as planilhas de uma pasta de trabalho. Mas se os dados da lista de que você precisa para a validação de dados estiverem em outra pasta de trabalho, o que você faria? Neste tutorial, você aprenderá como criar uma lista suspensa de outra pasta de trabalho no Excel em detalhes.
Crie uma lista suspensa pesquisável no Excel
Para uma lista suspensa com vários valores, encontrar um adequado não é um trabalho fácil. Anteriormente, introduzimos um método de preenchimento automático da lista suspensa ao inserir a primeira letra na caixa suspensa. Além da função de preenchimento automático, você também pode tornar a lista suspensa pesquisável para aumentar a eficiência de trabalho ao encontrar os valores adequados na lista suspensa. Para tornar a lista suspensa pesquisável, tente o método neste tutorial.
Preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel
Digamos que você tenha criado uma lista suspensa com base nos valores do intervalo de células B8: B14. Ao selecionar qualquer valor na lista suspensa, você deseja que os valores correspondentes no intervalo de células C8: C14 sejam preenchidos automaticamente em uma célula selecionada. Para resolver o problema, os métodos neste tutorial vão lhe fazer um favor.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
