Dante Amor

Puede ser en el mismo libro, eso sería más práctico; la forma sería proteger y ocultar la hoja, de esa forma, solamente mediante las macros, podrían visualizar o modificar la información. O si lo prefieres, puede ser en el mismo libro, la hoja...

Pon el siguiente evento en tu formulario Private Sub TextBox1_Change() TextBox2 = "" If IsNumeric(TextBox1) Then TextBox2 = TextBox1 / 60 End If End Sub Si es lo que necesitas, no olvides valorar la respuesta. Sal u dos

Envíame tu archivo con las 2 hojas: "base de datos" y la "plantilla" Necesito revisar en dónde están los datos y en dónde quieres el resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “brayan gutierrez”

H o l a: ¿Seleccione el rango resultante y lo envíe como una hoja en un archivo? ¿Enviar por outlook? Para enviar el correo, debes especificar: - A quién se va enviar - Asunto - Cuerpo - Si va a ser un archivo, el nombre del archivo. sal u dos

La manera simple de solucionarlo es así: Después de esta línea: ValorABuscar = TrackingLabel.Value Pon esta línea: If ValorABuscar = "" then exit sub Pero lo ideal es que sigas las siguientes recomendaciones: 1. En la medida de lo posible evitar el...

Puedes poner la macro para revisarla

Te anexo la macro Sub Exportar_Hojas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Application.StatusBar = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") Set h2 = l1.Sheets("MENU") Set h3 =...

Te anexo el código actualizado, en la columna "Z" te pondrá el resultado: "no existe el archivo", "El mail se envió con éxito" o "Se produjo el siguiente error" Public impresiones As Integer Sub SendMail_Gmail2() Dim myrange As Range Dim contador As...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 And Target.Row > 2 Then ActiveSheet.Unprotect "abc" fila = Target.Row Range("A" & fila - 1 & ":E" & fila - 1).AutoFill _ Destination:=Range("A" &...

Te anexo la macro actualizada, también cuando llegues a enero de 2018, la macro pondrá "enero2018" Private Sub commandbutton1_click() nombre = Cells(7, 4).Value folio = Cells(5, 13).Value fecha = Cells(7, 13).Value mes = Format(Date, "mmmm") año =...