Reiniciar Listas Desplegables Dependientes (conVBA)

Поділитися
Вставка
  • Опубліковано 18 вер 2024
  • Descarga el archivo de trabajo aquí: excel-mee.netl...
    Aprende como reiniciar listas desplegables dependientes.
    Suscríbanse y dejen sus dudas en los comentarios.
    Videos para generar listas desplegables dependientes:
    • Listas Desplegables De...
    • Listas Desplegables De...

КОМЕНТАРІ • 44

  • @spencerreyes1592
    @spencerreyes1592 4 місяці тому

    Precisa y directa. Muy bien. Gracias por compartir la informacion.

  • @hectorricaldiavila3466
    @hectorricaldiavila3466 4 роки тому +3

    Muchas gracias ... me sirvió de mucho ( el aprender es mi camino).

  • @jechavarriar
    @jechavarriar Рік тому

    Gran aporte, la explicación impecable y una simpleza extraordinaria. Felicitaciones y muchas gracias

  • @jeannettelindgreengarcia6122

    ¡Por fin! Solo contigo lo he conseguido, he visto numerosos vídeos y ninguno me había ayudado como tú, además, con un código muy sencillo, ¡gracias!

  • @ferg9359
    @ferg9359 Рік тому

    Muy buen video, un paso bastante sencillo mientras que otros tutoriales hacen tanta cosa para poco, muchas gracias

    • @MarioEugenioExcel
      @MarioEugenioExcel  10 місяців тому

      Hola! Que gusto saber que el archivo te fue de utilidad. Saludos y éxitos en tus proyectos de excel.

  • @haybertakeo4258
    @haybertakeo4258 Рік тому +1

    QUE INZANO ME FUNCIONO DE MARRAVILLA

  • @fgutierreza1
    @fgutierreza1 9 місяців тому

    Simple y directo, una maravilla, muchas gracias.

  • @gabrielaguilar9757
    @gabrielaguilar9757 Рік тому

    Muchas gracias. Me ayudó a resolver el problema.

  • @dannyfiguera9861
    @dannyfiguera9861 Рік тому

    Excelente y muy sencillo para el aprendiz!!!

    • @MarioEugenioExcel
      @MarioEugenioExcel  10 місяців тому

      Muchas gracias por tu comentario Danny, que gusto saber que la información te fue de utilidad!

  • @gonzalezcrx
    @gonzalezcrx 13 днів тому

    Funcionó muy bien. Gracias!

  • @armandolopezperez8246
    @armandolopezperez8246 2 роки тому +1

    Grande Hermano, muchas gracias por tu paciencia y ganas de ayudar

  • @jbd7256
    @jbd7256 10 місяців тому

    Muchas gracias por tu explicación, clara e instructiva.
    Para mi caso, tengo un problema para borrar el contenido de una celda dependiente, cuando cambio el contenido de la celda desplegable de la que depende.
    Intento realizar un registro de datos, agregando datos por fechas a nuevas filas del listado y solo funciona para el borrado de la celda dependiente de la primera fila. He intentado eliminar el $ del numero de la fila, para que en cada linea se tomase como referencia el valor de la celda desplegable de la que depende, pero no funciona.
    Si puedes ayudarme, te lo agradezco
    Muchas gracias

  • @andreagabrielagodoysalazar7988
    @andreagabrielagodoysalazar7988 7 місяців тому

    Buenísimo

  • @michaelgustavocairohuaraca4083
    @michaelgustavocairohuaraca4083 2 роки тому

    Gracias CRACK ...lo explicaste muy bien

  • @callofdutylive_
    @callofdutylive_ Рік тому

    Hola, de ante mano muchas gracias porque este video me ha ayudado un montón. Tengo un problema y quisiera saber si podrías ayudarme, hice un calendario con listas desplegables en excel y quise agregarle notas debajo de cada dia del mes. El problema es que cuando cambio de mes y/o año las notas se reinician (quedando en blanco), lo que quiero es que las notas queden registradas en correspondencia del dia/mes/año seleccionado. Sabrías que código debería de usar? Muchísimas gracias y un saludo.

  • @mamukinder
    @mamukinder 4 місяці тому

    Hola, he colocado el mismo código pero no me borra la información, existe algún problema si la lista se encuentra en varias celdas combinadas?

  • @lizmarielmartinezcardenas783
    @lizmarielmartinezcardenas783 3 роки тому +1

    Hola Mario, muchas gracias que fórmula podría usar para limpiar si tengo 3 listas desplegables dependientes, y cada una tiene 3 niveles, por ejempl tengo la lista Ropa, 2 nivel, Camisas, Pantalones, Short y 3er nivel Talla, por ejemplo si selecciono Pantalones las tallas serian 26, 28, 30 y si cambio a Camisas deberia limpiar el 3er nivel y decir S, M, L

    • @MarioEugenioExcel
      @MarioEugenioExcel  3 роки тому +1

      Hola, supongamos que tienes la lista base en la celda A1, la lista dependiente 1 en la celda B1 y la lista dependiente 2 en la celda C1, con estos supuestos, el código que deberías usar para limpiar todas las listas sería el siguiente (solo debes editar los valores de A1, B1 y C1 por las celdas en las que hayas ubicado tus listas desplegables):
      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$A$1" Then
      Range("B1,C1") = ""
      ElseIf Target.Address = "$B$1" Then
      Range("C1") = ""
      End If
      End Sub
      Espero te sea de utilidad. Saludos y éxitos en tus proyectos de Excel!

    • @lizmarielmartinezcardenas783
      @lizmarielmartinezcardenas783 3 роки тому

      @@MarioEugenioExcel mil gracias, funcionó a la perfección !!

    • @allanca4
      @allanca4 3 роки тому

      @@MarioEugenioExcel Hola Mario. En el mismo caso comentado por Liz, cómo debería indicar el código si lo que tengo son varias celdas con listas desplegables. Por ejemplo, la lista desplegable 1 abarca un rango desde A1 hasta A20.

    • @MarioEugenioExcel
      @MarioEugenioExcel  3 роки тому +1

      @@allanca4 Hola! También tienes 3 niveles como en el caso de Liz?

    • @allanca4
      @allanca4 3 роки тому

      @@MarioEugenioExcel Exacto. Primer nivel es provincia, segundo nivel es cantón y tercer nivel es distrito, solo que acá no es una única celda con listas desplegables.

  • @josealbertolopeztoledo621
    @josealbertolopeztoledo621 3 роки тому

    Excelente día @Mario Javier Eugenio Estrada, tengo una duda, tengo un problema, tu en el ejemplo nos da la opción de limpiar muchas celdas al cambiar solo una celda, pero como le podría hacer para limpiar por ejemplo G6 al cambiar sólo F6, y así muchas celdas más ejemplo G8 al cambiar F8, G4756 al cambiar F4756 etc etc etc. saludos

    • @MarioEugenioExcel
      @MarioEugenioExcel  3 роки тому +10

      Hola José! Para lograr lo que necesitas, debes utilizar este código:
      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Range("F:F"), Target) Is Nothing Then
      Range("G" & Target.Row & ":G" & Target.Row) = ""
      End If
      End Sub
      Espero te sea de utilidad. Saludos y éxitos en tus proyectos de Excel.

    • @josealbertolopeztoledo621
      @josealbertolopeztoledo621 3 роки тому

      @@MarioEugenioExcel te agradezco infinitamente!!! gracias por compartir tus conocimientos pero sobre todo por despejar este tipo de dudas!!! mucho éxito y bendiciones. saludos

    • @diegoabregu9264
      @diegoabregu9264 2 роки тому

      @@MarioEugenioExcel Excelente mi hermano estaba buscando esto por días, gracias.

    • @sandyguadalupechucpoot3233
      @sandyguadalupechucpoot3233 2 роки тому

      @@MarioEugenioExcel wow!!! Días intentanto hacer esto y nadamas no podia, gracias infinitas por compartir.

    • @666999alexis
      @666999alexis Рік тому +1

      ​@@MarioEugenioExcel Excelente explicación y funciona de maravilla, ya solo tendría una duda al respecto del código, este código analiza toda la columna F, y si deseara que el análisis lo iniciara desde "F6" específicamente y hasta el final, como podría modificarlo, gracias de antemano.
      Me respondí antes de publicar, por si a alguien le sirve y les sirve, así lo puse:
      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Range("F6:F1048576"), Target) Is Nothing Then
      Range("G" & Target.Row & ":G" & Target.Row) = ""
      End If
      End Sub
      Gracias nuevamente.

  • @cesaradrianroquerodriguez7083
    @cesaradrianroquerodriguez7083 2 роки тому

    Gracias por el video!, una consulta, como seria el codigo si es que en la misma hoja hayan dos listas dependientes distintas y que no se relacionan. Por ejemplo, tengo la lista en la celda F4 y al cambiarlo tendría que limpiarse la celda F5; y a parte tengo otra lista en la celda J7 y al cambiarlo tendría que limpiarse la celda J8. Saludos.

    • @MarioEugenioExcel
      @MarioEugenioExcel  2 роки тому +1

      Hola Adrian, lo más sencillo sin entrar en complicaciones es definir una linea de código para cada lista, el código quedaría así:
      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$F$4" Then
      Range("F5") = ""
      End If
      If Target.Address = "$J$7" Then
      Range("J8") = ""
      End If
      End Sub

    • @cesaradrianroquerodriguez7083
      @cesaradrianroquerodriguez7083 2 роки тому

      Amigo, muchas gracias, me sirvió bastante. Una consulta, que institución me recomendarías para aprender Macros y Visual Basic.

    • @MarioEugenioExcel
      @MarioEugenioExcel  2 роки тому

      @@cesaradrianroquerodriguez7083 no hace falta matricularse en ninguna institución, en internet tienes a la mano muchas alternativas para aprender por tus propios medios. Te sugiero aprender algún lenguaje "matriz" que te permita luego entender de forma sencilla casi cualquier lenguaje de programación como C o C++.

    • @pedrojesusdariofloresatoch6044
      @pedrojesusdariofloresatoch6044 2 роки тому

      @@MarioEugenioExcel Hola buenas noches, una consulta y si tuviese la misma situación pero al cambiar una lista por ejemplo C4 quede las celdas D6, E6, F6 en blanco y viceversa con cada una de las celdas (D6, E6, F6). ¿Se aplicaría el mismo código?

  • @jonathanomargamonalnunez4653

    Lo hago correctamente y no me funciona... No coloca en blanco las celdas

    • @MarioEugenioExcel
      @MarioEugenioExcel  Рік тому

      Hola Jonathan, si es posible envíame tu archivo a marioeugenioe@gmail.com para poder revisarlo.

  • @laurafernandacarvajal3159
    @laurafernandacarvajal3159 2 роки тому

    Hola Mario, quisiera decir que me sale error cuando introduzco el codigo
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1:A20"), Target) Is Nothing Then
    Range("B" & Target.Row & ":C" & Target.Row) = ""
    ElseIf Not Intersect(Range("B1:B20"), Target) Is Nothing Then
    Range("C" & Target.Row) = ""
    End If
    End Sub
    Que deberia hacer? espero me puedas colaborar, gracias.

    • @MarioEugenioExcel
      @MarioEugenioExcel  2 роки тому

      Hola Laura! Es complicado saberlo sin tener más información, en donde pegaste el código? Que error sale? En que línea? Si deseas enviame tu archivo a marioeugenioe@gmail.com para poder revisarlo e indicarte como solucionarlo.