Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Microsoft Excel
y en 2 temas más
Seleccionar aleatorio de ciertos números
Tengo la siguiente matriz Ejecutivo Tema1 Tema 2 Tema3 Hugo 1 0 1 Paco 0 1 0 Luis 1 1 1 En resumen tengo 50 ejecutivos de los cuales tomaron una capacitación en 10 temas diferentes. Necesito una macro o forma de elegir un ejecutivo de forma aleatoria...
Ha valorado "Buena" la respuesta
Macro guarde archivo en ruta en especifico sin mostrar mensaje al usuario
Prueba esto: Sub GuardarPdf() ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\trabajo\" & Range("D5"), 0, True, False, , , False End Sub
Ha valorado "Buena" la respuesta
Macro revise si un libro esta abierto
Si tus intenciones son cerrarlo sin guardar podes hacer lo siguiente: Sub CerrarLibro() On Error GoTo 99 Workbooks("Detalle_diario").Close SaveChanges:=False 99 If Err Then MsgBox "El libro no esta abierto" End Sub
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Tengo una macro que envía el mismo documento por outlook, pero lo envía vacío
Tengo la siguiente macro que se ejecuta desde un archivo de solo lectura y no permite a los usuarios guardar cambios, entonces necesito que cuando se ejecute la macro me mande el archivo con los datos capturados del mismo pero manda el guardado sin...
Ha valorado "Excelente" la respuesta
Copiar tablas de pdf a un excel
</Hola Yo uso wondershare PDF converter Link de descarga http://www.intercambiosvirtuales.org/portables/wondershare-pdf-converter-pro-3-0-0-9-portable-convierte-6-formatos-a-pdf-y-soporta-ocr
Ha valorado "Excelente" la respuesta
Macro compruebe texto en celdas
Prueba esto Sub test() 'VALIDACIONES If [C4] = "" Or [C5] = "" Or [C6] = "" Or [C7] = "" Then MsgBox "Faltan datos" Exit Sub End If ' 'Aquí seguiría tu macro ' End Sub
Ha valorado "Excelente" la respuesta
Tengo una macro para enviar correos pero no manda nada
[Hola Es una mala costumbre usar On Error Resume Next a menos que sea absolutamente necesario, lo cual no es tu caso. Borra esa línea y la del On Error Goto 0. Una vez hecho eso, corre tu macro y comenta con exactitud qué ocurre y/o qué error exacto...
Ha respondido en
Correo electrónico
y en 1 temas más
Adjuntar varios archivos y enviar a varios correos en Excel
Yo uso la siguiente macro Sub correo_1() Dim mi_App As Object Dim mi_Correo As Object i = 1 Do i = i + 1 Set mi_App = CreateObject("Outlook.Application") mi_App.Session.logon Set mi_Correo = mi_App.CreateItem(0) ActiveWorkbook.Save On Error Resume...
Ha valorado "Buena" la respuesta
Enviar rango de celdas de excel a varios destinatarios
[Hola Ese error ocurre en muchas ocasiones cuando Microsoft Outlook no está correctamente configurado ¿has verificado que tienes una cuenta asociada y funcionando en el Outlook de la PC en donde has intentado usar la macro? Abraham Valencia
