Dante Amor

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 la imagen de la hoja "Datos", solamente para ver cómo tienes tu ejemplo del significado de "nostalgia". También puedes poner el código de tu botón "Buscar" (utiliza el icono para insertar código)

Revisa si lo siguiente es lo que necesitas: Private Sub TextBox1_Change() If TextBox1.Text <> "" Then If IsNumeric(Sheets("Filtro").TextBox1.Text) Then criteriofiltro = Sheets("Filtro").TextBox1.Value Else criteriofiltro = "*" &...

No olvides el poner el código con el icono para insertar código. Prueba si la siguiente solución te ayuda. Copia el siguiente código en tu formulario. Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox5.Value = "" Then Exit...

¿Los ID en la hoja "formulado" son únicos? ¿Los ID en la hoja "Comprado" son únicos?

Prueba la siguiente: SI(LARGO(A2)>LARGO(SUSTITUIR(A2;"FILM";""));"FILM";SI(LARGO(A2)>LARGO(SUSTITUIR(A2;"BOL";""));"BOLSA";SI(LARGO(A2)>LARGO(SUSTITUIR(A2;"FD";""));"FUNDA"))) Si tienes más palabras, entonces buscaríamos una alternativa con una tabla...

Si quieres que funcione cuando capturas el dato "Facturado" en la columna M, entonces pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M3:M" & Rows.Count)) Is...

Revisé tu fórmula y puede simplificarse de esta manera: =SI(O(H14={"T";"PT"}),N14,SI(O(H14={"PL";"L";"C"}),M14*N14,SI(K14>=1,H14*N14,"")))*G14

Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range ' Set rng = Intersect(Target, Range("E8:E" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng If c.Value <>...

Puedes poner otra imagen para ver las columnas de excel, revisa el siguiente ejemplo: