Luis Mondelo

La macro correcta sería esta: Private Sub TextBox2_Change() ListBox1.Clear codigo = TextBox2.Value If TextBox2.Value = "" Then ListBox1.Clear Set busca = Sheets("Base Datos ALMACEN").Range("b3:d" & Sheets("Base Datos...

Te mando mi solución: Los datos los tenemos desde A1 hacia abajo. En la celda B1 escribe esto y después la copias hacia abajo: =SI(NO(ESERROR(HALLAR("geminis";A1)));"geminis";"") En la celda C1 escribe esto y después la copias hacia abajo:...

Te mando una solución con una pequeña macro: Sub prueba() dato = Application.WorksheetFunction.CountIf(Range("j2", Range("j65000").End(xlUp)).SpecialCells(xlCellTypeVisible), ">50%") MsgBox dato End Sub re

Te paso un link con un video explicativo donde lo explico al detalle http://es.tbox.ws/29YJOu Recuerda finalizar y puntuar

Te paso un link con un video en el que lo explico al detalle http://es.tbox.ws/29YJOu No olvides finalizar y puntuar la consulta

Te mando mi solución: Tenemos la columna A completada desde A1 hasta A193 y la columna B tiene datos alternos. Ejecuta esta macro y todo listo: Sub valores() 'macro creada por Luismondelo Range("b1").Select Do While ActiveCell.Offset(0, -1).Value <>...

Esta es la fórmula que tienes que escribir desde D2 hacia abajo =SUMA(SI(($A$2:$A$19=A2);$B$2:$B$19)) ¡ATENCION! Es una fórmula matricial para poder aceptarla tendrás que pulsar los botones CONTROL + SHIFT + ENTER

Prueba ejecutando esta macro en dicha hoja Sub borra_imagenes() ActiveSheet.DrawingObjects.Select Selection.Delete End Sub recuerda finalizar y puntuar

Esta es la fórmula: =SI(Y(R5>=4001;R5<=5000);Q5*0,004;0) Recuerda finalizar y puntuar

Te mando mi solución: Esta macro puedes ejecutarla al pulsar un botón o puedes llamarla auto_close para que se autoejecute al salir del archivo y hará lo siguiente: Comprobará si existe la carpeta correspondiente al día y si no existe la crea. Por...