Dante Amor

Pon la siguiente fórmula en la celda H1 =SUMAPRODUCTO((A6:A17=G1)*(B6:B17=G2)*(C5:F5=G3)*(C6:F17)) Salu dos

Ho la y bienvenido a TodoExpertos. Ese error es porque deberías tener una hoja con el nombre "F3". Si el nombre de la hoja se encuentra dentro de la celda "F3", entonces debería ser: Set ws = ThisWorkbook.Sheets(Range("F3").Value) Nota: Procura...

Prueba lo siguiente: Sub Enviar_individual() Dim rng As Range, cell As Range Dim dest As Variant Dim hora_insp As String, cad As String Dim part1 As Object, part2 As Object ' Set rng = Range("bloque1, bloque2, bloque3, bloque4, bloque5, bloque6,...

Al parecer tiene que estar en inglés el formato: .NumberFormat = "#.##0,00;[Red]-#.##0,00" Agregué la instrucción On Error Goto 0, de esa manera se activa nuevamente el control de errores, si ocurre un error el programa se detiene. Con la instrucción...

Prueba así: Sub IMPRIMIR() ' IMPRIMIR Macro ' Imprime las hojas de control de consumos diarias de los usuarios inicio = Range("U3").Value fin = Range("W3").Value For i = fin To inicio Step -1 Range("Q1").FormulaR1C1 = i...

Puedes poner aquí tu código, utiliza el icono para inserta código.

No es un problema de excel, si es posible debes deshabilitar alguna configuración de tu antivirus, lo cual no es recomendable. ¿Qué versión de excel tienes? A mi me funciona con la versión 2007, incluso con 2010.

Tengo en este caso tres hojas. Cierre, creditos y abonos. Puedes realizar lo siguiente y en este orden: 1. Poner una imagen de cada una de tus hojas con datos genéricos. 2. Poner otras 3 imágenes donde muestres el resultado esperado. Es decir, 6...

Ya te había entregado un código para buscar el registro. No entiendo algunas cosas: 1. Con el código que te envié no es necesario hacer visible la hoja. ¿Por qué regresaste a tu código? 2. Si estás en un userform, para qué pones un input box....

¿La hoja6 y la hoja "Clientes" es la misma? Si es así, para buscar un dato no es necesario mostrar la hoja, puede ser así: Private Sub btn_Registrar_Click() Dim f As Range, h As Worksheet ' If Txt_NIF = "" Then MsgBox "Captura el NIF" Exit Sub End If...