Jump to content

fjchavez

Members
  • Posts

    34
  • Joined

  • Last visited

About fjchavez

  • Birthday 03/28/1985

fjchavez's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Re: consulta Calendario Gracias!!!...otra consulta hay alguna forma de que cuando salga el calendario, al dar escape se oculte también????
  2. La consulta es la siguiente, si ademas de que me muestre el rango de fechas quisiera que me muestre un mensaje si al llenar la fecha termino es menor que la fecha inicial, o si la fecha inicial esta vacia que me diga que primero llene la fecha inicial.??? Fechas_io_ST_fae.zip
  3. Hola, respecto a este post https://www.ayudaexcel.com/foro/showthread.php?t=6143 Y si ademas quisiera que me muestre un mensaje si al llenar la fecha final es menor que la fecha inicial, o si la fecha inicial esta vacia que me diga que primero llene la fecha inicial.???
  4. Re: Redimensionar un array bidimensional listo si me funcionó asi!! gracias
  5. Re: Error al ejecutar macros en windows seven Hola ya solucione el problema, Instale la actualización SP2 de office, luego me descargue el mscal.ocx y lo copie al windows/system32 y lo registre con el comando ejecutado en cmd regsvr32 mscal.ocx y listo todo ok
  6. Hola, En vba se puede redimensionar una array bidimensional????? Estoy probando con lo siguiente Sub Matrix() Redim Matrix (1 to 3, 1 to 2) as variant ...... Redim Preserve Matrix (1 to 7, 1 to 2) ...... End sub[/PHP]
  7. Re: Error al ejecutar macros en windows seven Hola, esa opcion Control adicionales esta deshabilitada en el vba, como la activaría??
  8. Re: Error al ejecutar macros en windows seven Okey he encontrado el error, es por el office que esta instalado en las maquinas de problema. Yo he desarrollado en excel 2007 del office professional, mientras que los clientes tienen excel 2007 del office standar. En este office me dice que FALTA control Calendar, como lo instalo en esas máquinas
  9. Hola, tengo un problema me sale el siguiente error de compilacion al ejecutar un libro compuesto de diversas macros en windows 7. otro error que tengo en windows seven es que no me reconoce el objeto calendar, como instalo ese control??
  10. Re: Textbox validacion y mensaje Queda solucionado
  11. Re: exportar a pdf Hola, me referia a que mediante VBA me genere un PDF.
  12. Hola, gracias por sus respuestas. Se puede exportar a PDF el contenido de una hoja de excel delimitando la hoja y ocultando botones???
  13. Hola, gracias por la respuesta de antemano. Tengo un textbox de un formulario que quisiera que cada vez que fijo el mouse o voy a escribir me salga como un mensaje de ayuda (algo asi como el mensaje que da el controltiptext) diciendo que solo puedo llenar hasta 100 y que no se oculte hasta me vaya de ese text box, y si quiero escribir mas de 100 no me deje escribir. Como podria programarlo?
  14. Re: Suma de dias de un rango de fechas que se traslapan o no Hola Macro Antonio, Estuve corriendo la macro para diversos rangos de fechas pero me da la cantidad de dias errada. Caso: row 0----->FECHA INICIO a FECHA FIN row 1----->12-feb-11 a 12-mar-11 row 2----->12-feb-11 a 13-mar-11 row 3----->13-feb-11 a 13-mar-11 row 4----->15-feb-11 a 15-dic-11 row 5----->16-jul-11 a 17-ago-11 La fila 5 hace que el calculo falle, podemos generalizar la macro para que funcione siempre???
  15. Re: Suma de dias de un rango de fechas que se traslapan o no Ok, dime se puede llamar desde una funcion a una subrutina???.....he creado mi funcion pero no me funciono el ordenar, ni el poner valores en celdas. Como puedo arreglar esta funcion para que me funcione. Function dsctomes(r As Range) Dim i As Integer Dim orden As Integer Dim fini As Integer Dim cini As Integer Dim ffin As Integer Dim suma As Integer Dim meses As Single 'fila en la que inicia el rango fini = r.row 'columna en la que inicia el rango cini = r.Column 'fila en la que termina el rango ffin = r.Rows.Count + fini - 1 'comenzamos a ver si son activos para el calculo 0,1 y le asignamos un contador del orden orden = 1 For i = fini To ffin fechaini = Cells(i, cini) fechafin = Cells(i, cini).Offset(0, 1) radio = Cells(i, cini).Offset(0, -3) cobertura = Cells(i, cini).Offset(0, -2) tipo = Cells(i, cini).Offset(0, -1) If radio <> Empty & cobertura <> Empty & tipo <> Empty & fechaini <> Empty & fechafin <> Empty Then fechaini.Offset(0, 2) = orden fechaini.Offset(0, 3) = 1 Else fechaini.Offset(0, 2) = orden fechaini.Offset(0, 3) = 0 End If orden = orden + 1 Next i 'ordenamos 1ero si sin activos 1, luego por fecha inicial y final Range(Cells(fini, cini), Cells(ffin, cini + 3)).Sort Key1:=Cells(fini, cini + 3), Order1:=xlDescending, _ Key2:=Cells(fini, cini), Order2:=xlAscending, Key3:=Cells(fini, cini + 1), Order3:=xlAscending, Header:=xlNo 'seleccionamos la celda inicial Cells(fini, cini).Select 'hacemos este bucle hasta que nos aparezca un inactivo 0 Do Until ActiveCell.Offset(0, 3) = 0 Desde = CDate(ActiveCell) Hasta = CDate(ActiveCell.Offset(0, 1)) If ActiveCell.row > fini Then If Not Desde > CDate(ActiveCell.Offset(-1, 1)) Then Desde = CDate(ActiveCell.Offset(-1, 1)) + 1 End If End If 'MsgBox "Hasta= " & Hasta & Chr(13) & "Desde= " & Desde & Chr(13) & "Resultado= " & Hasta - Desde + 1 suma = suma + (Hasta - Desde + 1) ActiveCell.Offset(1, 0).Activate Loop 'los dias los llevamos a meses y almacenamos en la variable meses meses = Round(suma / 30, 0) 'ordenamos la hoja como al principio Range(Cells(fini, cini), Cells(ffin, cini + 3)).Sort Key1:=Cells(fini, cini + 2), Order1:=xlAscending, Header:=xlNo 'devolvemos el numero de meses dsctomes = meses End Function [/CODE]
×
×
  • Create New...

Important Information

Privacy Policy