Adriel Ortiz Mangia

Te paso la macro Sub compara_copia() '//Por Aortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set r = h2.Columns("A") Set b = r.Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is Nothing...

H o l a te paso la macro Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set r = h1.Columns("A") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then h1.Cells(b.Row, "B") = TextBox1 End If End SubPrivate Sub...

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...

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 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!

H o l a en evento exit del ultimo textbox pon esto Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) CommandButton1.SetFocus End Sub me comentas y valoras para finalizar

H o l a te paso la macro Sub imprimir() Set h1 = Sheets("Hoja1") hoja = h1.Range("A2") If hoja = "" Then MsgBox "ingrese nombre de la hoja a imprimir", vbCritical For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then imprime = True Exit For End If...