Dante Amor

Fórmula para válidos =SUMAPRODUCTO(SUBTOTALES(3,DESREF(A1,FILA($A$1:$A$10)-FILA($A$1),,1))*($A$1:$A$10="válido")) Para la condición "inválidos" =SUMAPRODUCTO(SUBTOTALES(3,DESREF(A1,FILA($A$1:$A$10)-FILA($A$1),,1))*($A$1:$A$10="inválido"))

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:B10")) Is Nothing Then If UCase(Target.Value) = "HOLA" Then macro1 End If End If End Sub ;R ecuerda valorar la respuesta.

Te anexo el código para desactivar botones Private Sub userform_initialize() 'Call QuitabotonX(Me. Caption) 'Desactivar botones u = Hoja8.Range("B" & Rows.Count).End(xlUp).Row usuario = Hoja8.Cells(u, "B") Set b = Hoja10.Columns("A").Find(usuario,...

H o l a : Puedes enviarme tu archivo con un par de ejemplos de lo que quieres generar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Patricia Flores” y el título de esta pregunta.

H o l a: Tengo que ver cómo estás cargando los datos en el listbox. Envíame tu archivo, me dices cómo se llama tu userform Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Adri Bautista” y el título de esta pregunta....

H o l a : Describe con ejemplos detallados lo que realizas y en qué parte necesitas la ayuda.

Si tu combobox es un ControlActiveX Pon lo siguiente en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("F11")) Is Nothing Then ActiveSheet.ComboBox1.Activate End If End Sub...

H o l a : Te anexo la macro. Los datos deberán empezar en la celda A2. Lo probé con 4000 registros y se tardó 4 segundo, así que no deberás tener problemas de tiempo. Sub BorrarDuplicados() 'Por.Dante Amor Application.ScreenUpdating = False For i = 2...

Si pones lo siguiente en un mismo módulo y ejecutas la macro "Principal", si me funciona. Sub guarda1() 'Por.Lis 'guarda_completo Dim Nom_Carpeta As String Nom_Carpeta = Range("x11").Value If Nom_Carpeta = "" Then Exit Sub End If Dim Nom_SubCarpeta...

La macro funciona bien. ¿Estás poniendo la macro en los eventos de ThisWorkbook? Instrucciones para poner la macro en los eventos ThisWorkbook Abre tu libro de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11Del lado izquierdo...