Enrique Bernal

Pega esta formula en la fila 2, y luego la corres para el resto de filas, =SI(ESERROR(BUSCARV(A2,$A$1:A1,1,0))=VERDADERO,CONTAR.SI(A:A,A2),"0") Me avisas

Debes ir a el ThisWorkbook y selecciona en el combo Workbook y luego el evento Open. Luego pega estos códigos Private Sub Workbook_Open() Userform1.Show End Sub En lugar de Userform1, debes colocar el nombre que le hayas puesto al formulario que...

Con esta modificación el usuario además de colocar la clave deberá colocar de manera seguida la hora en el siguiente formato: Hh:mm. Para tu ejemplo y para la hora en la que yo estoy contestando tu pregunta la clave que debería poner es: 123408:51...

Eso lo haces con la forma matricial de formula suma: =SUMA(SI(ESERROR(tu rango);"";Tu rango)) Recuerda que al final se presiona ctrl+shift+enter

Ok, esta macro hace lo que necesitas: Sub filtra() a = InputBox("Favor indicar la columna a filtrar", "Columna") b = InputBox("Favor indicar el criterio del filtro", "Criterio") Selection.AutoFilter ActiveSheet.Range(a & ":" & a).AutoFilter Field:=1,...

Eso lo puedes hacer con Formato Condicional 1) Seleccionas la columna que contiene los datos que necesitas coloreas, vas a Inicio y das click sobre Formato Condicional 2) Das click sobre nueva regla y eliges "Utilice una fórmula que determine las...

Luego de escribir lo que quieres que vaya en la primera fila das alt+enter. Pero pilas que hay dos alt en eñl teclado

Considero que la manera más sencilla de hacer esto es con un tabla dinámica, primero escoges todas las columnas que contienen datos en tu tabla, luego vas a insertar y eliges tabla dinámica, das aceptar y para el llenado de la tabla en filtro del...

Si solo quieres que te aparezca el resultado la macro es la siguiente: Sub Multiplica() a = InputBox("Ingrese la Cantidad que desea multiplicar", "Ingreso Cantidad") For i = 1 To 20 contador = contador + 1 Range("A" & contador).Value = a * contador...

Esta macro hace lo que necesitas: Sub Guarda() Ruta = ActiveWorkbook.Path Cliente = Range("A1").Value Fecha = Range("A2").Value ActiveWorkbook.SaveAs Filename:=Ruta & "\" & Cliente & "_" & Fecha & ".XLS", _ FileFormat:=xlExcel8, Password:="",...