Jump to content

dramos28

Members
  • Posts

    21
  • Joined

  • Last visited

About dramos28

  • Birthday 11/14/1985

dramos28's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Muchas gracias a todos por sus respuestas... despues de algunas pruebas y adaptaciones a las macros parece que ya logre hacerlo funcionar... solo me resta probarlo varias veces... agradezco infinitamente por su tiempo, ayuda y empeño... gracias por ayudarnos a aprender un poco mas de programacion... si me llego a atorar les mando un mensaje privado... Saludos
  2. Me muestra el siguiente runtime error Method 'Range' of object '_Global' failed en la parte Range("B:" & Inicio & "K" & Final).Sort Key1:=Range("D4"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers estoy tratando de corregirlo pero no lo encuentro... muchas gracias por tu ayuda, cuando tenga dudas consultare la ayuda de la aplicacion... Saludos
  3. Funciona, pero algunos datos no los ordena de forma consecutiva... quiero decir que despues de un 200 me pone un 400... estoy tratando de entender la logica y modificarlo para ver si puedo hacer que funcione, el ultimo case debe estar vacio?? que significa el MOD 4
  4. Ok dejenme intentar explicarlo...=D las filas estan acomodadas en el siguiente orden: 1 2 3 4 5 6 7 8 . . . n y yo quiero acomodarlas en el siguiente orden: 4 3 2 1 8 7 6 5 . . . n Quiero seguir acomodando de 4 en 4 en reversa hasta que ya no encuentre datos en la fila... la tabla puede variar desde 200 hasta 1000 filas...
  5. aqui fui realizando las tareas a mano y asi se grabaron pero pienso que tal vez se pueden poner en alguna especie de ciclo para que repita y no poner todas esas lineas de codigo...
  6. ok aqui esta mi ejemplo... la macro la grabe y hace lo que requiero mi problema se presenta cuando no tengo control del numero de filas... y quisiera que siguiera haciendo la actividad hasta la ultima fiila en donde encuentre datos sin importar cual sea el numero de filas Gracias de antemano [ATTACH]19209.vB[/ATTACH] Reverse Load (Ordena).zip
  7. Buen dia... espero me puedan ayudar con esto... tengo un conjunto de datos de la fila 1 a la fila n, me gustaria que el range se fuera moviendo entre las filas hasta llegar a la ultima fila que contiene datos, ya que mi tabla varia de 300 a 1000 registros... esto es para acomodar los datos en un orden definido por ejemplo de fila 1, 2, 3, 4 a 4, 3, 2, 1.... y que continue con los siguientes 4 hasta el final de la tabla... el acomodo lo puedo hacer pero no se como hacer para que siga haciendolo hasta la ultima fila que contiene datos gracias de antemano....
  8. listo ya lo pude adaptar... tema solucionado... muchas gracias RORO1981 por tu ayuda
  9. Si muchas gracias eso es exactamente lo que tenia en mente... dejame probar el codigo y les comento como me fue Muchas Gracias
  10. Sip eso es exactamente la idea... voy a probar el codigo y les comento como me fue... Muchas gracias
  11. Pues hace la funcion que necesito, es decir no deja guardar hasta que todos los textbox estan llenos pero la idea que yo tenia es que el boton para igresar los datos estuviera deshabilitado y cuando se llenaran todos los textbox se habilitara... es una Buena Opcion... algun otro metodo??
  12. Buen dia... Como condiciono un boton de guardar para que este inactivo y se habilite hasta que todos los campos de mi Userform esten llenos??... Agradesco su ayuda.... saludos
  13. Listo... esa es la que estaba buscando... espero no haber sido muy molesto....
  14. ActiveWorkbook.Close Me cierra el libro mas no la aplicacion completa... hay alguno para cerrar totalmente el excel
  15. Ya revise y he visto varios que les funciona este procedimiento... pienso que se trata de la version ya que yo estoy usando Excel 2003 y no me funciona... Ya resolvi el problema el codigo que utlizé es el siguiente, de hecho tuve que dar de alta algunas variables... Dim HoraInicio, HoraFin, Tiempo, Minutos As Variant HoraInicio = Format(HoraIni.Text, "hh:mm") HoraFin = Format(HoraCierre.Text, "hh:mm") Tiempo = TimeValue(HoraFin) - TimeValue(HoraInicio) Minutos = Tiempo * 24 * 60 TTRmin.Text = Format(Minutos, "0") Range("H4").Select ActiveCell.FormulaR1C1 = HoraCierre ahora lo que necesito es que al presionar un boton guarde en automatico y salga del programa. agradesco su apoyo... Saludos
×
×
  • Create New...

Important Information

Privacy Policy