themanky

Elsa Matilde respondió: Primero tenes que acotar el Range donde se evalúa el cambio para que no se ejecute al cambiar el contenido en col H: Private Sub Worksheet_Change(ByVal Target As Range) Dim lookupvalue As Variant, value As Variant, lookupRange As Range If...

Dante Amor respondió: Este método para enviar correo básicamente tiene 2 parámetros, el destinatario y un asunto. Si quieres poner un cuerpo deberás utilizar otro método, te anexo una macro para enviar por Outlook el archivo Sub EnviarActiveWorkbook() 'Por.Dante Amor...

Dante Amor respondió: Prueba con lo siguiente: Sub GuardarComo() 'Act.Por.Dante Amor Dim Ruta, Nombre As String Nombre = Range("J13") & " - " & " " & Range("AO9") & ".xlsm" Msg = ("El nombre del archivo será:") & vbCr & vbCr & Nombre & vbCr & vbCr & "¿ Desea continuar ?"...

Te puede ayudar, este código. La idea que en la otra planilla solo llames con la fórmula, ej. =edad(H5) Function Edad(Fecha_Nacimiento As Date) As Integer Edad = Int((Date - Fecha_Nacimiento) / 365.25) End Function

Necesitas este código para la verificación, además en la hoja que vas a validar el RUT debes incorporarar una fórmula que llame a esta función. Ejemplo: en A1 ingresas el rut sin numero verificador y en B1 la fórmula =verificaRut (A1) Con esto...

Dante Amor respondió: Te anexo la macro que deberás poner en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address = "$A$1" Then dato = InputBox("Ingresar una dirección de mail", "SOLICITUD") If dato <> "" Then [B3] =...

Dante Amor respondió: Esta sería la macro: Sub correo2() 'Por.Dam ActiveWorkbook.SendMail Range("a1"), "Solic." & " " & Range("b1") & " " & "Aprobada" Set dam2 = CreateObject("outlook.application").createitem(0) dam2.To = Range("a1") 'Destinatarios dam2.Subject = "Solic."...