Ivan Gonzalez

Isaac Sediles respondió: Si no recuerdo mal si no esta en la papelera del correo o en spam no se puede recuperar el correo. Si dices que te ha desaparecido y tu no lo has borrado sin querer puede que halla usado esto....

Dante Amor respondió: Te anexo la macro actualizada. Sub Macro10() 'Por.Dante Amor Sheets("Hoja1").Range("B2:I5").Copy Workbooks("libro6.xlsx").Sheets("Hoja2").[A1].PasteSpecial Paste:=xlPasteAll, Transpose:=True End Sub Cambia "libro6.xlsx" por el nombre y la extensión...

Dante Amor respondió: Ademas del archivo necesitamos decirle a quien va dirgido, de donde vamos a obtener al destinatario, el asunto y si debe llevar algo el cuerpo del mensaje. Que version de excel tienes. Saludos. Dam

Dante Amor respondió: Cambia tu macro por esta: Sub Macro10() 'Por.Dante Amor Sheets("Hoja1").Range("B2:I5").Copy Sheets("Hoja2").[A1].PasteSpecial Paste:=xlPasteAll, Transpose:=True End Sub Cambia "Hoja1" y "Hoja2" por los nombres de las hojas. Cambia "B2:I5" por el...

Dante Amor respondió: Así quedaría la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E12:H13")) Is Nothing Then ActiveSheet.Unprotect "abc" Range("E12:H12").Locked = True Target.Locked = False ActiveSheet.Protect "abc" End If End...

Elsa Matilde respondió: Te dejo un ejemplo y notas para que puedas ajustar a tus rangos. Entrá al Editor de macros (con Alt y F11), seleccioná con doble clic en el panel a tu izquierda el objeto HOJA donde vas a trabajar esto, y allí copiá esta macro: Private Sub...

Dante Amor respondió: ¿No se ejecuta la macro cuando escribes algo en la celda "E5"? Entonces tienes que habilitar las macros, cuando abras tu archivo de excel te aparece una ventana para habilitar las macros, presiona Aceptar. Si todavía no se ejecuta la macro, cambia la...

Dante Amor respondió: Para que las celdas puedan protegerse, la hoja deberá estar protegida. Sigue las instrucciones. Realiza los siguientes pasos para desbloquear las celdas. 1. Selecciona todas las celdas o las celdas que desees que van entrar en el proceso. 2....

Luis Mondelo respondió: Esta sería la solución. Mediante el evento change de la hoja en cuestión: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Q$4" And ucase(Target.Value) = "FINALIZAR" Then Application.EnableEvents = False ActiveSheet.Unprotect...