Como optimizar codigo largo IF - Else

Preguntas y respuestas relacionadas

Activar o desactivar pestañas según contenido de un rango

Tengo el siguiente código: Private Sub CommandButton1_Click() If Range("B4:B10") = "ACAPULCO" Then Sheets("ACAPULCO").Visible = True Else Sheets("ACAPULCO").Visible = False End If El cual me indica error 13 no coinciden los tipos Lo que deseo es que...
1 respuesta

Ayuda para mostrar varias columnas en un listbox

Range("C5").Select Do While ActiveCell <> Empty ActiveCell.Offset(1, 0).Select ListBox1.AddItem ActiveCell Loop El código que muestro es el que uso para ver una columna de una hoja de calculo en un listbox, lo que deseo es mostrar 3 columnas al mismo...
1 respuesta

Como eliminar duplicados si se cumple una condición

Necesito crear una macro donde se pueda eliminar los duplicados si se cumple una condición, me explico tengo 5 columnas Nombre, Vehículo, Evento, Fecha, Hora, En evento tengo dos opciones normal y exceso de velocidad, lo que quiero es quitar todos...
2 respuestas

Código para Deshabilitar campo en un formulario

Feliz fin de semana! Amigo, en la BD caja de ahorro creada, agregue un nuevo campo llamado "EmpleadoActivo" en la tabla Empleado con propiedad de dato SI/NO, esto para definir cuando un empleado esta activo o esta no Activo (Vacaciones). En el...
2 respuestas

MACRO de excel para imprimir varias hojas de un mismo libro

Tengo un libro de excel que posee varias hojas. Necesito un MACRO que me permitiera imprimir las hojas que desee a la vez. Cada hoja esta predeterminado el bloque de impresión y la configuración de la página y formato. Solo se debe imprimir una...
2 respuestas

¿Cómo hacer un buscador automático en access?

Tengo el siguiente código, el cual realiza la búsqueda luego de teclear alguna palabra o parte de ella y oprimir un botón. Private Sub Form_Load() DoCmd. GoToRecord,, acNewRec Me. TxtBuscar. SetFocus 'Esto lleva el foco al control TxtBuscar. End Sub...
2 respuestas

Crear ListBox en forma Horizontal

Todo expertos Tengo el siguiente código Private Sub Workbook_Open() ActiveSheet.ListBox1.Clear For Each h In Sheets If h.Name >= "Saldos dia actual" Then ActiveSheet.ListBox1.AddItem h.Name End If Next End Sub Este me arroja los nombres de las hojas...
1 respuesta

Como dividir un rango atendiendo al valor máximo que queremos obtener

En relación a una pregunta anterior, en la que resolviste cómo dividir el valor de una celda que contiene un rango para crear una linea con cada valor único, me gustaría saber si se podría cambiar la macro para que el número que ingresemos sea el...
1 respuesta

Macro para renombrar archivos excel

Quiero saber si con una macro puedo cambiar de nombres a varios libros excel. Explico lo que hago manualmente: Paso 1: -Tengo estos libros excel, identificado con un numero de correlativo. (Como se muestra en la foto) Paso 2: Luego tengo un libro...
1 respuesta

Macro para generar un reporte de excel con condicionales

Solicito de su ayuda para realizar la siguiente operación, requiero una macro que me permita generar un reporte de excel y que se grabe en un libro nuevo de excel tomando el nombre del reporte las columnas ha exportar no son un rango ya que están...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema