José Saúl Méndez Alonso

Te dejo el siguiente código Para que funcione necesitas agregar las siguientes referencias : Microsoft Outlook 12.0 Object Library que puede cambiar dependiendo de tu versión de office Microsoft Data Formatting Object Library 6.0(SP4) Public Sub...

Porque no me mandas al correo un ejemplo de tu archivo y te puedo ayudar mejor [email protected]

Te dejo un código a ver si te sirve, de hecho te puedo enviar el archivo de ejemplo con la macro Private Sub CmdAbrir_Click() On Error GoTo NoTrobat If UCase(CboArchivos.Value) = UCase("RE-VS01.01_Llistat control registres.xls") Then Exit Sub Else...

Hace tiempo hice esta Macro espero que te sirva Sub ActualizaFactura() On Error GoTo Err_ActualizaFactura Dim sNombreCliente As String Dim sRutaParaLaCopia As String 'Se almacena el nombre del cliente si es que no esta vacio If...

Te dejo el siguiente código a ver si es lo que buscas Public UltimaCelda As String Public UltimaHoja As String Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Trim(UltimaCelda) = "" Then UltimaHoja = Sh.Name UltimaCelda...

Disculpa la tardanza pero salí de vacaciones de la empresa y no tengo acceso a internet en mi casa, pero dime a que correo te puedo enviar un archivo con la barra de progreso es un truco que a veces uso. mi msn es [email protected]

Puedes agregar a tus proyectos de excel una referencia a la librería Microsoft Scripting Runtime y luego declara una variable para manipular los archivos y carpetas. Dim FSO As FileSystemObject y crea una función que te indique si la ruta existe...

No tengo instalado ese software pero en excel yo haría lo siguiente: En la celda donde deses calcular el promedio escribe =SI(ESERROR( PROMEDIO(D2:D6)),"", PROMEDIO(D2:D6)) De este manera si se encuentra un error la celda se muestra vacía en caso...

¿Exactamente qué es lo que quieres haces con los objetos? Me puedes contactar por msn [email protected] Con mucho gusto te puedo ayudar y si dispongo de algún material para que puedas trabajar con el lenguaje VBA.

Si es posible, sólo que tendrías que desarrollar una función que busque por palabra y reemplace por el número correspondiente Ejemplo: En la celda F8 escribe =TXT2NUM(F7) y te devolverá un número dependiendo de lo que este escrito en la celda F7...