Alvaro Silveira

Tienes una forma de llamar al cuadro de dialogo que normalmente aparece en la opción Abrir o Guardar. Aquí te paso el código que lo asocie a un commandButton Private Sub CommandButton1_Click() strArchivo = Application.GetOpenFilename...

Tienes una función que te calcula la cant. de días laborables entre dos fechas (incluso puedes ingresar en un rango los festivos). La misma es : DIAS.LAB(fecha inicial; fecha final; rango) Utilizando esta función y tomando los meses de 30 día podrías...

Creo que es sencillo, puedes hacer un condicional para habilitar el botón Agregar. sub validar() if campo.value "" then cb_agregar.enabled = true else msgbox "debe llenar el campo x" Endif Espero que halla sido de ayuda, si quedan dudas quedo a las...

Es muy sencillo, en la celda que desees (por ejemplo a1) escribe la ruta completa de donde esta la imagen. En este caso, C:\Documents and Settings\Usuario\Mis documentos\Mis imágenes\Casorio Civil\001.jpg y la macro debe ser la siguiente : Sub...

Una solución que se me ocurre (no se si es la mejor o si es lo que quieres exactamente) es la siguiente : Realizas un filtro avanzado y que el resultado del mismo lo copie en otro rango("lista_aux" por ejemplo), y luego en el combobox le asignas al...

No se si te servirá, pero tienes una función en Excel que hace exactamente lo mismo que tu quieres (y para que reinventar la rueda, ¿no?) ;) DIA.LAB (fec_inicial;cant_dias_laborables;Rango donde pones los feriados) esta devuelve el dia siguiente, por...

Creo que lo más sencillo que puedes hacer es guardar todas estas macros como personales y hacer lo mismo con cada uno de tus compañeros. Esto hace que dichas macros estén disponibles para cualquier archivo y sobre todo en cada Pc . Para hacer esto...

Aquí te dejo el código, espero que te sirva. Sub buscar() x = InputBox("Ingrese el texto a buscar") For Each Sheet In Worksheets Sheet.Activate Set rangeobj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart,...

Siendo sincero no estoy muy familiarizado con el uso de formularios, pero con gusto si me mandas el excel que tienes armado a mi correo [email protected] lo recibo y lo arreglo. La parte de armar la lista no habría problema y en cuanto al envío...

Estimado/a : crea primero un modulo como indico más abajo Sub abrir_crear(celda as String) On Error GoTo nuevo ruta = "c:\contratos\" archivo = celda & ".xls" Workbooks.Open Filename:=ruta & archivo nuevo: Range("a10:a11").Select Selection.Copy...