Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo mostrar el primer elemento en la lista desplegable en lugar de en blanco?

lista desplegable de doc por defecto para arriba 1

La lista desplegable en una hoja de trabajo puede ayudarnos a facilitar la entrada de datos, solo tenemos que seleccionar los artículos sin escribirlos uno por uno. Pero, en algún momento, cuando hace clic en la lista desplegable, salta primero a los elementos en blanco en lugar del primer elemento de datos como se muestra en la siguiente captura de pantalla, esto puede deberse a eliminar los datos de origen al final de la lista. Puede ser molesto que tenga que volver al principio de una larga lista para cada celda de validación de datos en blanco. En este artículo, hablaré sobre cómo mostrar siempre el primer elemento en la lista desplegable.

Mostrar el primer elemento en la lista desplegable en lugar de en blanco con la función de Validación de datos

Mostrar automáticamente el primer elemento en la lista desplegable en lugar de en blanco con el código VBA


flecha azul burbuja derecha Mostrar el primer elemento en la lista desplegable en lugar de en blanco con la función de Validación de datos


En realidad, para lograr este trabajo, solo necesita aplicar una fórmula específica cuando crea una lista desplegable, haga lo siguiente:

1. Seleccione las celdas donde desea insertar la lista desplegable y haga clic Gestión de datos > Validación de datos > Validación de datos, mira la captura de pantalla:

lista desplegable de doc por defecto para arriba 2

2. En el estallado Validación de datos cuadro de diálogo, debajo del Ajustes pestaña, elegir Lista del permitir sección, y luego ingrese esta fórmula: = OFFSET (Sheet3! $ A $ 1,0,0, COUNTA (Sheet3! $ A: $ A) -1,1) en el Fuente cuadro de texto, ver captura de pantalla:

Nota: En esta fórmula, Sheet3 es la hoja de trabajo contiene la lista de datos fuente, y A1 es el primer valor de celda en la lista.

lista desplegable de doc por defecto para arriba 3

3. Luego haga clic OK botón, ahora, cuando hace clic en las celdas de la lista desplegable, el primer elemento de datos siempre se muestra en la parte superior si hay valores de celda eliminados al final de los datos de origen, vea la captura de pantalla:

lista desplegable de doc por defecto para arriba 4


flecha azul burbuja derecha Mostrar automáticamente el primer elemento en la lista desplegable en lugar de en blanco con el código VBA

Aquí, también puedo introducir un código VBA que puede ayudarlo a mostrar el primer elemento en la lista desplegable automáticamente cuando hace clic en las celdas de validación de datos.

1. Después de insertar la lista desplegable, seleccione la pestaña de la hoja de trabajo que contiene la lista desplegable y haga clic con el botón secundario para elegir Ver código desde el menú contextual para ir al Microsoft Visual Basic para aplicaciones ventana, y luego copie y pegue el siguiente código en el Módulo:

Código de VBA: muestra automáticamente el primer elemento de datos en la lista desplegable:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
    Dim xFormula As String
    On Error GoTo Out:
    xFormula = Target.Cells(1).Validation.Formula1
    If Left(xFormula, 1) = "=" Then
        Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
    End If
Out:
End Sub

lista desplegable de doc por defecto para arriba 5

2. Luego guarde y cierre la ventana de código, y ahora, cuando haga clic en la celda de la lista desplegable, se mostrará el primer elemento de datos a la vez.


Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 30-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jason · 1 months ago
    Doesn't work for me. I keep getting an error message that says, "There's a problem with this formula. Not trying to type a formula? When the first character is an equal (+) or minus (-) sign, Exel thinks it's a formula.... To get around this, type an apostrophe (') first..."
  • To post as a guest, your comment is unpublished.
    Justin · 10 months ago
    Hello!

    How can I set a data validation list such that if the drop down value in the cell is deleted, the cell will automatically show a default value (i.e. "-Select-")?

    For example, I have a worksheet with multiple drop down lists that I want to show a default value of "-Select-" once the sheet is opened. A user will select values from the lists that will impact the result of calculations throughout the entire spreadsheet. A user may accidentally "delete" the cell contents of the lists. If this happens, rather than the cell becoming blank, I want the cell to show a default value of "-Select-". This scenario occurs in multiple random locations throughout the spreadsheet, not just in one localized place.

    I was able to find the following VBA code so far, but it only applies the concept over a range, rather than just individual cells that contain drop down lists. The problem with what I have coded so far is that every single blank cell in the range ends up with "-Select-" in it. Some of the lists are in ranges, but some are also scattered throughout the sheet. The problem I'm having with my current code is that every single blank cell in the range ends up with "-Select-" in it. I'm trying to get this to apply over the entire worksheet to ONLY cells that are drop down lists.

    Is what I'm trying to accomplish even possible?

    Example file can be found here:
    https://drive.google.com/file/d/1VoO8VgFs3IJ0ALwqfk0i8gt69UE4vEKW/view?usp=sharing

    Example code:

    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    ' If Target.Cells.Count > 1 Then Exit Sub 'turning this off allows multiple cells to be selected and deleted at the same time
    If Not Intersect(Target, Range("f2:p17")) Is Nothing Then
    For Each cel In Range("f2:p17")
    Application.EnableEvents = False
    If IsEmpty(cel.Value) Then cel.Value = "-Select-"
    Next cel
    End If
    Application.EnableEvents = True
    End Sub


    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Justin · 10 months ago
    How can I set a data validation list such that if the drop down value in the cell is deleted, the cell will automatically show the a default value (i.e. "-Select-")?

    For example, I have a worksheet with multiple drop down lists that I want to show a default value of "-Select-" once the sheet is opened. A user will select values from the lists that will impact the result of calculations throughout the entire spreadsheet. A user may accidentally "delete" the cell contents. If this happens, rather than the cell becoming blank, I want the cell to show a default value of "-Select-". This scenario occurs in multiple random locations throughout the spreadsheet, not just in one localized place.

    I was able to come up with the following VBA code so far, but I've only figured out how to apply the concept over a range, rather than just cells that contain a drop down list. The problem with what I have coded so far is that every single blank cell in the range ends up with "-Select-" in it.

    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    ' If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("f2:p17")) Is Nothing Then
    For Each cel In Range("f2:p17")
    Application.EnableEvents = False
    If IsEmpty(cel.Value) Then cel.Value = "-Select-"
    Next cel
    End If
    Application.EnableEvents = True
    End Sub
  • To post as a guest, your comment is unpublished.
    frans eilering · 1 years ago
    select the cell in which you have put the listitem
    the range for the listitem is "Opleiding"
    in your VBA code:

    selection.Value = Range("opleiding").Cells(2, 1)

    the result is that the selected item of the listItem is the second item in the range "Opleiding"
  • To post as a guest, your comment is unpublished.
    DHARAMVIR · 2 years ago
    After scroll down select to cells numeric data not come in series only first cell data come
    select 1,2 different cells and scroll down value not coming 1,2,3,4,5....... only first cell value coming 1,1,1,1,....