José Saúl Méndez Alonso

Te dejo este código a ver si te sirve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "Cambios" Then Sheets("Cambios").Activate Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1,...

Tengo una aplicación hecha en VB6 que usa una clase para descargar archivos de internet. Si gustas te puedo enviar el código fuente por correo para que lo adaptes a tus necesidades.

Perdón por la demora Este es el código para mostrar el cuadro de abrir archivo necesitas agregar una referencia al control Microsoft Common Dialog Control 6.0 (Comdlg32.ocx). Si gustas te puedo enviar el archivo con el ejemplo. Public sRuta As String...

Primero que nada perdón por la demora. Mira te recomiendo que en el origen de datos de tu formulario para editar el registro activo pongas una consulta donde tengas como parámetro algún dato para identificar cada registro.

¿A qué correo te puedo enviar un ejemplo?

Sí tienes la fecha de nacimiento del trabajador sólo necesitas hacer una resta puedes usar la función HOY() la fórmula quedaría así =ENTERO((HOY()-FechadeNacimiento)/365)

OK si entiendo lo que necesitas te propongo que pongas el inicio de la MACRO en el evento OPEN del WORKBOOK

Porque no usas una macro que cuando se cumpla la condición te ponga la fecha de esa manera NO usas la función hoy() y consigues lo que necesitas. SI me envías una copia de tu archivo te ayudo a desarrollar la MACRO [email protected]

Te recomiendo usar una macro para realizar esas tareas, ahora bien si me envías una copia de tu archivo te ayudo a desarrollar los códigos. [email protected]

¿A qué correo te lo puedo enviar?