Hola, muchas gracias a todo aquel que pueda ayudarme. Necesitaría de la ayuda para poder aplicar una macro según el valor seleccionado en una lista desplegable. Aquí les comparto la macro que he creado pero siempre me indica error en la en rojo, no soy un experto y es por eso que busco la ayuda de ustedes: Sub Listadesplegable() Dim intCaseSel As Integer Sheets("Sheet1").Select intCaseSel = Sheets("Sheet1").Cells(1, "D").Value Select Case intCaseSel Case 1: Call ClearAll Case 2: Call Renewals Case 3: Call EsconderFilas Case 4: Call MostrarFilas End Select End Sub Sub ClearAll() ' ' ClearAll Macro ' ' Range("B6:R6").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("D1").Select End Sub Sub Renewals() ' ' Renewals Macro ' ' Range("B6").Select ActiveCell.FormulaR1C1 = "=IF(RC[6]="""","""",RC[-1])" Range("C6").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(RC[-1],query_export_results.csv!R6C1:R1167C17,2,FALSE)=0,""Please, complete this info in TW"",VLOOKUP(RC[-1],query_export_results.csv!R6C1:R1167C17,2,FALSE)),"""")" Range("D6").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(RC[-2],query_export_results.csv!R6C1:R1167C17,3,FALSE)=0,""Please, complete this info in TW"",VLOOKUP(RC[-2],query_export_results.csv!R6C1:R1167C17,3,FALSE)),"""")" Range("E6").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(RC[-3],query_export_results.csv!R6C1:R1167C17,5,FALSE)=0,""Please, complete this info in TW"",VLOOKUP(RC[-3],query_export_results.csv!R6C1:R1167C17,5,FALSE)),"""")" Range("F6").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(RC[-4],query_export_results.csv!R6C1:R1167C17,6,FALSE)=0,""Please, complete this info in TW"",VLOOKUP(RC[-4],query_export_results.csv!R6C1:R1167C17,6,FALSE)),"""")" Range("G6").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(IF(VLOOKUP(RC[-5],query_export_results.csv!R6C1:R1167C17,10,FALSE)=0,""Please, complete this info in TW"",VLOOKUP(RC[-5],query_export_results.csv!R6C1:R1167C17,10,FALSE)),"""")" Range("H6").Select ActiveCell.FormulaR1C1 = "=IF(RC[14] =R1C7,RC[14],""""),"""")" Range("I6").Select ActiveCell.FormulaR1C1 = "=IFERROR(SUM(RC[-1]-90),"""")" Range("B6:I6").Select Selection.AutoFill Destination:=Range("B6:I1165") Range("B6:I1165").Select Range("B6").Select End Sub Sub EsconderFilas() Application.ScreenUpdating = False Dim Rango As Range, c As Range Set Rango = Range("B4:B1163") For Each c In Rango c.EntireRow.Hidden = _ (c.Value = 0 Or c.Value = "") Next c Application.ScreenUpdating = True End Sub Sub MostrarFilas() Application.ScreenUpdating = False Dim Rango As Range, c As Range Set Rango = Range("B4:B1163") For Each c In Rango c.EntireRow.Hidden = False Next c Application.ScreenUpdating = True End Sub Gracias!! Saludos. Luciano.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro aplicada según lista desplegable

Autor del tema LuchoMartín
Fecha de inicio 11 Jul 2014

LuchoMartín

New member

11 Jul 2014

Hola, muchas gracias a todo aquel que pueda ayudarme.
Necesitaría de la ayuda para poder aplicar una macro según el valor seleccionado en una lista desplegable.

Aquí les comparto la macro que he...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro

Respuestas: 3

Lunes a la(s) 16:43

Leopoldo Blancas

Resuelto

Macro para hacer una fórmula de Buscar

Respuestas: 6

Miércoles a la(s) 14:11

Marielos Gil

Resuelto

Macro demasiado grande y pesada.

Respuestas: 8

4 Ago 2026

Leopoldo Blancas

Pregunta

Liberar memoria en macro

Respuestas: 2

8 Jul 2026

jeandro

Pregunta

Ejecución de macro 2 incidencias

Respuestas: 12

14 Jul 2026

jelsir79

Pregunta

Ayuda con Macro Excel

Respuestas: 2

1 Jul 2026

Leopoldo Blancas

Pregunta

No funciona macro de agregar unidades

Respuestas: 4

10 Jun 2026

Luisaco

Resuelto

Ayuda con macro para buscar y modificar datos de un listbox

Respuestas: 5

28 May 2026

katto

Pregunta

Ayuda con mi macro

Respuestas: 2

20 May 2026

Leopoldo Blancas

Pregunta

en excel 2021 la macro que contiene on error goto no me funciona.

Respuestas: 2

2 May 2026

JSD

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba