Jump to content

pegones1

Members
  • Posts

    796
  • Joined

  • Last visited

  • Days Won

    30

pegones1 last won the day on August 22

pegones1 had the most liked content!

About pegones1

Contact Methods

  • Website URL
    https://pedrowave.blogspot.com

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0,6,7

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

pegones1's Achievements

  1. Prueba el adjunto en el que he añadido a la macro SeleccionarFoto instrucciones para cuando la hoja 'FOTOS' está oculta: Option Explicit Sub SeleccionarFoto(sNombre As String) ' ' Selecciona la foto de un alumno desde la hoja FOTOS ' Dim lFila As Long ' Busca al alumno en la hoja FOTOS lFila = Application.Match(sNombre, Sheets("FOTOS").Columns(2), 0) If Not IsError(lFila) Then ' No refresca la pantalla Application.ScreenUpdating = False ' Selecciona la celda con la foto Sheets("FOTOS").Visible = True Sheets("FOTOS").Select Range("C" & lFila).Select ' Guarda el rango de la foto como imagen JPG en el directorio local SaveRangeAsPicture ' Hoja INICIO Sheets("FOTOS").Visible = False Sheets("INICIO").Select ' Refresca la pantalla Application.ScreenUpdating = True End If End Sub Salu2, Pedro Wave Copia Fotos PW4.xlsm
  2. hola amigo felicitaciones por tu ayuda , te comento viste que daba un error en la ultima coreccion que hiciste , te comento anda ok siempre y cuando la hoja fotos este visible , pero dado que se oculta por una macro para que no sea modificado este metodo no funciona dando error como te comentaba error 1004 , te pregunto se podra solucionar esto?

    1. pegones1

      pegones1

      No presto ayuda individual.

      Te contestaré si haces esta misma pregunta en el hilo del tema, para que todos puedan verlo...

  3. En mi blog comparto archivos de OneDrive sin necesidad de tenerlo instalado en el dispositivo de destino. Lo primero que hago es compartir el archivo en OneDrive (Ver enlace aquí) Lo segundo que hago es abrirlo en el navegador, donde se puede ver su dirección web: https://onedrive.live.com/edit.aspx?cid=6b219f16da7128e3&page=view&resid=6B219F16DA7128E3!68229&parId=6B219F16DA7128E3!108&app=Excel Y dentro de su dirección web el parámetro: resid=6B219F16DA7128E3!68229 Edito el siguiente enlace con ese parámetro: https://onedrive.live.com/download.aspx?resid=6B219F16DA7128E3!68229 Este enlace es el que comparto en mi blog o en cualquier correo, WhatsApp, etc., pues es una descarga directa del archivo compartido en OneDrive. Salu2, Pedro Wave
  4. Prueba la fórmula: =CONTARA(J4#) Salu2, Pedro Wave
  5. Revisa el nombre de la hoja donde están las fotos
  6. Sigo sin poder resolver qué semanas son de cada mes y además un número de semana puede ser de dos meses consecutivos??? Ya me dirás si estos valores se corresponden con estas fechas de comienzo del año: Salu2, Pedro Wave
  7. La pregunta formulada de otra manera: ¿Eres de un país europeo? Si es así, usas el sistema 2 de numeración de semanas. Si no es así, usas el sistema 1 de numeración de semanas. Salu2, Pedro Wave
  8. Prueba el adjunto. Con Power Query he anulado la dinamización de columnas para conseguir una tabla normalizada en la hoja 'TablaOrigen'. Esa tabla normalizada es el origen de datos de 3 tablas dinámicas en la hoja 'Tablas Dinámicas' TablaDinámica_Todo: con todas los valores y porcentajes por semana. TablaDinámica_10mejores: con los % de las 10 mejores semanas. TablaDinámica_PorcentajeSemanal: con los % de participación de cada día por semana. Los números de semana son ambiguos y no se puede establecer a priori a que mes corresponden. Excel admite 2 sistemas de conteo de números de semana (Ver enlace aquí): Sistema 1: La semana que contiene el 1 de enero es la primera semana del año y se numera como semana 1. Sistema 2: La semana que contiene el primer jueves del año es la primera semana del año y se numera como semana 1. Este sistema es la metodología especificada en ISO 8601, que generalmente se conoce como el sistema de numeración de semanas europeo. ¿Qué sistema has usado para generar la columna Semana? Salu2, Pedro Wave Ayuda tabla tabla dinamica PW1.xlsx
  9. He modificado la macro que busca las fotos con la función Match para que siga buscando el siguiente alumno con Find: Option Explicit Sub SeleccionarFoto(sNombre As String) ' ' Selecciona la foto de un alumno desde la hoja FOTOS ' Dim lFila As Long ' Busca al alumno en la hoja FOTOS lFila = Application.Match(sNombre, Sheets("FOTOS").Columns(2), 0) If Not IsError(lFila) Then ' No refresca la pantalla Application.ScreenUpdating = False ' Selecciona la celda con la foto Sheets("FOTOS").Select Range("C" & lFila).Select ' Guarda el rango de la foto como imagen JPG en el directorio local SaveRangeAsPicture ' Hoja INICIO Sheets("INICIO").Select ' Refresca la pantalla Application.ScreenUpdating = True End If End Sub De paso he añadido en la hoja 'FOTOS' el chequeo de alumnos con la función COINCIDIR en la columna A, y he modificado los alumnos que no coincidían con la hoja 'ALUMNADO'. También he modificado el código del formulario frmAlum para que no encuentre la primera fila de encabezado de la hoja 'ALUMNADO', con lo que ya no ocurrirá esto al buscar por "ap": Salu2, Pedro Wave Copia Fotos PW3.xlsm
  10. Sustituye xlFormulas2 por xlValues en las dos llamadas a la función Find Ya me dirás si así te funciona el adjunto. Salu2, Pedro Wave Copia Fotos PW2.xlsm
  11. @nickmartinez, si aún estás interesado en una solución, dame acceso a Google Drive o intenta adjuntar el archivo de nuevo... Salu2, Pedro Wave
  12. Prueba el adjunto con el que, cada vez que se busca un alumno, guarda su foto desde la hoja FOTOS en la carpeta local para cargarla de nuevo con LoadPicture. He modificado el código de Bot_Buscar_Click con: ' Selecciona la foto de un alumno desde la hoja FOTOS SeleccionarFoto frmAlum.TxtApe.Text Ruta = ActiveWorkbook.Path & Application.PathSeparator & "Foto.jpg" En el módulo ModFoto está la macro: Sub SeleccionarFoto(sNombre As String) ' ' Selecciona la foto de un alumno desde la hoja FOTOS ' Dim lFila As Long Application.ScreenUpdating = False ' Busca al alumno Sheets("FOTOS").Select Columns("B:B").Select lFila = Selection.Find(What:=sNombre, After:=ActiveCell, LookIn:= _ xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Row If lFila = 0 Then ' Si no encuentra al alumno lFila = Selection.Find(What:="Default", After:=ActiveCell, LookIn:= _ xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Row End If ' Selecciona la celda con la foto Range("C" & lFila).Select ' Guarda el rango de la foto como imagen JPG en el directorio local SaveRangeAsPicture Sheets("INICIO").Select Application.ScreenUpdating = True End Sub Que llama a la macro Sub SaveRangeAsPicture() 'PURPOSE: Save a selected cell range as a JPG file to computer's desktop 'SOURCE: https://www.thespreadsheetguru.com/blog/vba-save-as-picture-file-excel Salu2, Pedro Wave Copia Fotos PW1.xlsm
  13. Gracias por probarlo en esa versión. Añadí la posibilidad de cambiar de velocidad porque la bola es mucho más rápida en Excel 2010 que en versiones modernas.
  14. ⛱ He programado un nuevo juego para pasar un buen rato este verano atrapando bolas sin salir de Excel. © Como no puedo adjuntarlo en el subforo de "Ideas y Aportes", quisiera que descargaras el nuevo juego "Atrapa la Bola" desde mi blog: Catch the Ball Game - Juego Atrapa la Bola y decirme si funciona en tu versión de Excel. 🎴 Con este juego del verano puedes aprender a programar macros VBA de una manera diferente a cómo las usas en la oficina. Y también aprenderás trucos para avanzar en tus conocimientos de Excel. 😏 Si alguien te mira por encima del hombro mientras juegas, puedes ocultar el juego con un solo clic del ratón. 🚮 A ver si sabes decirme cómo ocultar el juego de miradas indiscretas en un comentario...
  15. 😂 Como ya me he jubilado ya no me interesan las notas. Lo que me interesa es que quienes usan Excel sean capaces por sí mismos de, con un poco de ayuda, resolver los problemas que les plantean en sus diversas profesiones u oficios o estudios, como a mí me tocó resolver retos mientras fui ingeniero de datos en unas cuantas empresas multinacionales durante mis 10 últimos años de carrera profesional, como se puede ver en este vídeo: YouTube - Mi Carrera Profesional como Ingeniero Salu2, Pedro Wave
×
×
  • Create New...

Important Information

Privacy Policy