Jump to content

pegones1

Members
  • Content Count

    768
  • Joined

  • Last visited

  • Days Won

    27

Everything posted by pegones1

  1. Re: Convertir resultado numérico en formato hora Bunet adjunto mi propuesta en la hoja NumeroEnHora que espero se adapte a tus necesidades. EnterHoras.zip
  2. Re: Convertir resultado numérico en formato hora Si con formato General ó de Número escribes A1=5,40 y B1=2,38 y en C1 con formato personalizado h:mm escribes esta fórmula: =SUMAPRODUCTO((ENTERO(A1:B1)+RESTO(A1:B1;1)*5/3))/24[/CODE] obtendrá 8:18 como creo que quieres.
  3. Re: Macro cambiar formato hora fatbird me alegra que esté solucionado, pero antes de cerrarlo quería compartir otra solución sin la ayuda de la variable auxiliar unCambio y con la posibilidad de introducir las horas como un número (ej: 12345) o de la forma tradicional con dos puntos (ej: 123:45) en las celdas con formato [hh]:mm Private Sub Worksheet_Change(ByVal Target As Range) Dim strTarget As String Dim pos2puntos As Long If Target.NumberFormat = "[hh]:mm" And Not (Target.HasFormula) Then On Error Resume Next Err.Clear pos2puntos = InStr(1, Ta
  4. Re: Web Service en excel Siempre en el clavo Gerson. Never por qué no le das los vínculos en español, es tan fácil como cambiar en el enlace en-us por es-us o es-mx o es-pe o mejor es-es
  5. Re: Modificar celdas de acuerdo a la eleccion de un combobox. julibaga, subo el fichero de catoncia por si tienes curiosidad, ya que Scribd no es de tu agrado. A mí me supera lo de las mesas, lo otro lo he intentado solucionar pero catoncia parece ser que lo hizo de otra manera. Catalina, ¿por qué no aprendes a comprimir con Winrar o Winzip y subir tus ficheros al foro? Será la manera de que haya más foreros que quieran o puedan ayudarte. 46595722-ejemplo-1000PW.part02.rar 46595722-ejemplo-1000PW.part03.rar 46595722-ejemplo-1000PW.part01.rar
  6. Como nadie ayudó a los Reyes Magos, tengo que publicar la respuesta. La estrella sale intentando crear en el mapa la ciudad de Bethlehem o Belén. Búscala en la hoja Ciudades o con la columna R de la hoja Relojes. Anuncio que acabo de publicar información sobre la versión 2 del mapa en mi blog: desde donde se puede descargar, siendo compatible con Excel 2007 y 2010. La versión 2.0 cuenta con tres nuevas características: Mapa Mundial con días y noches actualizado cada 15 minutos Traducciones al español y al inglés No aparecen estrellas ¡ya pasó el Día de Reyes!
  7. Re: Macro cambiar formato hora Hola Macro Antonio, prueba el adjunto con la macro cambiada para poder escribir fórmulas de SUMA en las celdas con formato [hh]:mm hasta el valor máximo que admite Excel: 71003183:59 Con 71 millones de horas le valdrá a fatbird ¿o no? Option Explicit Private unCambio As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Dim strTarget As String If Target.NumberFormat = "[hh]:mm" And Not (Target.HasFormula) Then If unCambio Then Exit Sub unCambio = True On Error Resume Next Err.Clear strTarge
  8. Re: Modificar celdas de acuerdo a la eleccion de un combobox. Julibaga, me extraña que, como Administrador de este foro, no tengas una cuenta en Facebook, porque yo conocí este foro gracias a: Deberías comprender que es más fácil tener una cuenta en Facebook que en Hotmail o MSN para poder subir archivos a SkyDrive y que Scribd también es un servidor público.
  9. Re: Macro cambiar formato hora Macro Antonio ¡no desesperes!, para que estamos los amigos sino para ayudar. "Pájaro gordo", digo fatbird, prueba con ésto: Private unCambio As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Dim strTarget As String If Target.NumberFormat = "[hh]:mm" Then If unCambio Then Exit Sub unCambio = True strTarget = Format(Target, "000000") Target = Left$(strTarget, Len(strTarget) - 2) / 24 + Right$(strTarget, 2) / 1440 unCambio = False End If End Sub[/CODE] Como puedes ver en el código, las
  10. Re: Modificar celdas de acuerdo a la eleccion de un combobox. Luis, veo que no conoces Scribd, uno de los portales con mayor número de documentos y libros online gratuitos y también libros Excel: http://www.scribd.com/explore/Spreadsheets/Most-Read?l=4 Para descargar xls o leer pdfs no hace falta suscribirse sino tener una cuenta en Facebook, con la que ya podrás subir documentos y compartirlos. Por cierto, para descargar archivos en este foro hace falta estar suscrito ¿o no?
  11. Re: Modificar celdas de acuerdo a la eleccion de un combobox. Siento decir Luis que el link de catoncia es el de un fichero excel, aunque creas que es un pdf o similar de 245 páginas. Yo me lo he descargado desde esta pantalla en Scribd: Eso sí, no sé qué le falla a catoncia porque para mí que hace lo que dice.
  12. Re: Como Hacer para incrementar esta formula con más valores. Me alegra que te haya servido mi propuesta. Para dar las gracias pincha abajo a la izquierda en la mano con la palabra Gracias.
  13. Hola elmulo, prueba esta macro: Option Explicit Sub Los365dias() Dim fecha As Date Dim i As Integer Dim nombreHoja As String For i = 1 To 365 fecha = DateSerial(2011, 1, i) nombreHoja = Format(fecha, "d"" de ""mmmm") Sheets.Add.Name = nombreHoja Sheets(nombreHoja).Move After:=Sheets(ActiveWorkbook.Sheets.Count) Next End Sub[/CODE]
  14. Re: Como Hacer para incrementar esta formula con más valores. Hola jorgeclon, prueba con esta fórmula en inglés: =IF(ISERROR(MATCH(R2,A1:A100,0)),"OK","ERROR")[/CODE] Creando una lista con los 100 datos en el rango A1:A100 por ejemplo. La misma fórmula en español: [CODE]=SI(ESERROR(COINCIDIR(R2;A1:A100;0));"OK";"ERROR")[/CODE] para los demás foreros.
  15. Intenta restar créditos con: =SI(Q17<0;0;SI(Q16<0;SI(SUMA(B17:B18;C17:C18;D17:D18)<1;-4;0);SI(Q15<0;SI(SUMA(B16:B18;C16:C18;D16:D18)<3;-4;0);SI(Q14<0;SI(SUMA(B15:B18;C15:C18;D15:D18)<5;-4;0);SI(Q13<0;SI(SUMA(B14:B18;C14:C18;D14:D18)<7;-4;0);SI(SUMA(B13:B18;C13:C18;D13:D18)<9;-4;0))))))[/CODE] en la celda Q18 y arrastras hacia abajo. Seguro que se puede simplificar pero no tengo ganas y lo dejo para otro. Para dar las gracias, pincha en la mano debajo a la izquierda con la palabra Gracias.
  16. Hola crd3959, en la celda Q18 escribes la fórmula: =[COLOR="blue"]SI(SUMA(Q13:Q17)<0;0[/COLOR];SI(SUMA(B13:B18;C13:C18;D13:D18)<9;-4;0))[/CODE] y la arrastras hacia abajo. La próxima vez será más fácil recibir ayuda si en el título escribes algo más específico, ¿me entiendes?
  17. pegones1

    Juegos

    Juego de ping-pong con un oponente virtual. Autor: George Lungu Blog: ExcelUnusual - outstanding methods for creating engineering, scientific, technical models and games in excel Descarga: Pong_Archive.zip
  18. Never, lamento que no veas las manecillas ¿cuáles, las de segundos? y, sobre todo, que tengas problemas con el evento MouseMove. Por si te sirve de ayuda, prueba con la 2ª versión de este Mapa que voy a subir al Post #1 Incluye refresco mejorado de los relojes y geolocalización de las ciudades del mundo. Espero que con esta versión haya alguna respuesta al truco para que salga la estrella. ¡Aunque sea tarde para los Reyes Magos!
  19. Hola Fleming, en el perfil de jalomiva dice que esta tarde se ha conectado. Yo me conecto para explicar el artificio que usé en el Post #18 Aviso que lo he mejorado para poder sumar más sumandos. Por supuesto que ¡no usa celdas auxiliares y es copy-pastable para añadir n dígitos! SumaUnDigitoPorCeldaPW2.zip
  20. Hola Martín, siento decirte lo mismo que a neverdelimon1. Hay otra respuesta posible pero no funciona en Excel 2003: Siento que sólo funcione en Excel 2007 y 2010, por lo que espero respuestas de los foreros que los tengan instalados. A los que tengan Excel 2003 en su perfil les admito buscar la respuesta analizando el código de los módulos VBA. P.D.: neverdelimon1, en un mensaje anterior dijiste que lo probaste en Excel 2010 ¿con qué versión te falla?
  21. Hola maestros ioyama, sailepaty, Fleming, Adjunto mi pequeña contribución a la suma de dígitos separados en celdas sin la ayuda de celdas auxiliares para vuestra aprobación si procede. De momento no explico el artificio que he usado porque prefiero que antes lo analicéis vosotros mismos. SumaUnDigitoPorCeldaPW1.zip
  22. Never, ahora que has visto la forma de la estrella y cómo se mueve cuando abres el archivo ¡o lo activas!, ya que ArrancaEstrella se llama en: Sub Workbook_Activate() ... ArrancaEstrella ... End Sub[/CODE] Tu respuesta es la fácil, pero hay otra forma de arrancar la estrella, por lo que la pregunta está medio contestada. [i]A ver si eres capaz de contestar qué otra manera hay de que aparezca la estrella [b]¡sin mirar el código VBA![/b][/i]
  23. ¿Ninguno de los 70 foreros que se han descargado este puede ayudar a los Reyes Magos en su viaje, guiados por la Estrella de la Navidad? La estrella está formada con los botones de opción que localizan a las ciudades. Repito la pregunta: ¿Qué hay que hacer para que salga esta Estrella en el mapa de relojes mundiales? ¡Quedan 2 días para ayudar a los Reyes Magos!
  24. Los Reyes Magos necesitan ayuda para llegar a todas las latitudes, con sus distintas zonas horarias, y llevar sus regalos a los niños. Los amigos del foro podéis ayudarles contestando a la siguiente pregunta de magia: ¿Qué hay que hacer para que salga la Estrella en este Mapa Mundial (descárgalo aquí)? Responde a este mensaje con tu respuesta.
  25. No es por ser agorero pero buscar "inoxidables y aluminios" entre comillas induce a google a ponerlo en primer lugar por ser parte del nombre de la página web. Sin comillas sale en el séptimo lugar. Otra cosa es buscar por aluminios inoxidables y entonces sale en la segunda página en cuarto lugar, lo que no está nada mal. Observo textos incompletos y con faltas de ortografía (sin acentos) en la página principal: josemaria, entiende que las críticas constructivas sirven para mejorar.
×
×
  • Create New...

Important Information

Privacy Policy