Dante Amor

H o l a: Realiza los siguientes pasos en tu archivo. 1. Entra a VBA, con cada hoja, excepto la hoja de "Bienvenida", en propiedades selecciona Visible = 2 - xlsheetveryhidden 2. En los eventos de thisworkbook pon los siguientes: Private Sub...

H o l a: Te anexo la macro actualizada: Sub Macro1() 'Act.Por.Dante Amor Dim FileWsh As Object Set FileWsh = CreateObject("Scripting.FileSystemObject") MiVolumen = Hex$(FileWsh.Drives("C").SerialNumber) Select Case MiVolumen Case "FC3C0246",...

H o l a: Entra al menú de VBA, Herramientas, Referencias y en la ventana de Referencias busca la que dice: "Microsoft CDO for windows 2000 Library, marca la casilla y presiona Aceptar.

H o l a: Te anexo la macro actualizada: Sub mivol() MiVolumen = Dir("c:\", vbVolume) Select Case MiVolumen Case "012345", "345678" Case Else Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error licenciauso = InputBox("Introducir la...

H o l a: 1. Puedes poner tu macro completa para revisarla, no estoy entendiendo lo que tienes. 2. Cuando dices "Lo que tengo como "input"", ¿te refieres a un inputbox? 3. Esta instrucción MkDir, es para crear carpetas, pero en tu instrucción estás...

H o l a: Tengo las siguientes dudas: - ¿Los correo se enviarían por outlook? - ¿Qué va en el asunto del correo? - ¿Qué va en el cuerpo del correo?

H o l a : Pon la siguiente macro en tu libro "Solicitud Grupos AD" Sub CopiarRegistrosFaltantes() 'Por.Dante Amor ' Application.ScreenUpdating = False 'Determinar hoja de faltantes nmax = 0 nhoja = "Registros Faltantes" existe = False For Each h In...

H o l a: Te anexo la macro para enviar por correo la hoja "Hoja1" con todo y macros. La "Hoja1" se guarda con el nombre "hoja.xlsm" en el escritorio. Y después el archivo "hoja.xlsm" se envía por correo. Deberás cambiar en la macro el destinatario,...

H o l a : Te anexo la macro para comprobar los valores. No existe la opción Sí y Cancelar. Te puse la opción Sí y No. Sub ComprobarValores() 'Por.Dante Amor Set h1 = Sheets("INGRESAR_CITA") Set h2 = Sheets("ClientesPendientes") If h1.[D9] = "" Then...

Para enviar por hotmail, cambia en la macro por tu usuario y password de hotmail: correo = "[email protected]" passwd = "pwd" Sub EnviarPorGmail() 'Por.Dante Amor Dim Email As CDO.Message correo = "[email protected]" passwd = "pwd" For i = 2 To...