Elsa Matilde

Siguiendo los primeros registros de tu ejemplo, la fórmula utilizada para la SUMA de comisiones, estaría bien, pero te recomiendo cambiar el segundo argumento por el contenido de la celda de la tablita. Esto para evitar errores de tipeo ... a veces...

Te dejo el código ajustado, uniendo los 2 procesos tal como solicitaste. Private Sub CommandButton2_Click() 'si el combo se encuentra vacío, no se ejecuta If ComboBox1 = "" Then Exit Sub 'se declaran la hoja y el rango Set h = Sheets("T_APPS") Set b...

Con la función PROMEDIO. SI podrás obtener una lista de promedios de tus artículos. Dejo en imagen un pequeño ejemplo. Ajustar nombre de la Tabla. Para los que no tengan sus datos en formato de Tabla, deben colocar el rango, por ejemplo:...

A partir de la versión Office 2019 y también en la 365, contamos con la función: MAX. SI. CONJUNTO cuya sintaxis es: =MAX.SI.CONJUNTO(rango_valores; rango_criterio1;criterio1; rango_criterio2;criterio2;….) En la imagen dejo un pequeño ejemplo. Solo...

Te dejo una macro que puede resolver tu consulta. No se cómo estableces el dato a buscar, por lo que en mi ejemplo se toma el valor de alguna celda de la hoja activa. Lo que hará la macro es detenerse en cada celda encontrada y mostrarte un mensaje y...

Los códigos que encuentres en otras consultas, especialmente cuando no están explicadas como para hacerles un seguimiento, no son tan fáciles de adaptar ya que fueron creadas para un ejemplo puntual. Tampoco podemos resolverla si no nos indicas tus...

Corrí la macro y funciona bien. Si te envía el depurador debieras mostrarnos el mensaje de error que te aparece. -Puede ser que la hoja esté protegida y no puede eliminar fila. -Puedes poner un punto de interrupción en la línea del For. Al detenerse...

Desde la sección Funciones de mi sitio web que dejo al pie, o desde este enlace podrás descargar un listado de funciones a partir de las versiones xlsm. Allí, como gentilmente te lo indicó la usuaria Darak, aparecen los cambios de nombre en las de...

Te dejo la instrucción que falta, utilizo una variable 'x'. Private Sub ComboBox1_Change() Dim CFilas, I, Y As Long Dim Item As String Dim x As Byte CFilas = Hoja1.Range("E" & Rows.Count).End(xlUp).Row ListBox1.Clear x = 10 'para recorrer la tablita...

No se acumulan en la lista porque cada vez que presionas el botón, limpias la lista. Retirá esa línea y probalo nuevamente. Private Sub CommandButton1_Click() On Error GoTo Errores If Me.ComboBox1.Value = "" Then Exit Sub 'Me.ListBox1.Clear j = 1...