Adriel Ortiz Mangia

H o l a para proteger todas la hojas y la clave es 1 Sub proteger_todo() For Each h In Sheets h.Protect "1" Next End Sub para desproteger todas las hojas y la clave Sub desproteger_todo() For Each h In Sheets h.Unprotect "1" Next End Sub para...

H o l a Usa esto TextBox1. SetFocus

Te paso la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) '//Por Aortiz If Target.Column = 5 And Target.Row > 6 Then If Cells(Target.Row - 1, 5) > 0 Then Cells(Target.Row, 6) = Format(Now, "dd/mm/yyyy hh:mm:ss") End If End If...

Prueba esto =SI(H2>0, G2+N2, G2+N2+K2) fíjate si tus separadores es coma o punto y coma

Mi email es: [email protected] me explicas con detalle lo que necesitas.

H o l a Puedes mostrar la hoja para ver como está organizado tu información

H o l a Te faltó mostrar como esta organizado tus datos para adecuar la macro. O si deseas envíame [email protected] y lo desarrollo saludos!

H o l a Te paso la macro. Supongo que esto está en un módulo Sub GuardarPDF() 'Act. Por Aortiz hoja = UserForm1.ListBox1.ListIndex + 1 nombre = Cells(1, 9) Ruta = Cells(2, 9) ' Sheets(hoja).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & _...

H o l a Que yo sepa no se puede aplicar en el inputbox Te recomiendo usar textbox que tiene la propiedad "PasswordChar"

Usa esto Esto lo pones en un modulo del libro 1 y cambias el nombre del libro a seleccionar Sub select_hoja() Workbooks("Libro2").Activate End Sub valora la respuesta para finalizar saludos!