Jump to content

Daniel Wise

Members
  • Content Count

    47
  • Joined

  • Last visited

About Daniel Wise

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

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

  1. Hola a Todos estoy tratando de enviar un mensaje de WhatsApp desde el Excel y todo funciona bien menos el ENTER... no lo acepta la intrucción ActiveWindow.Application.SendKeys "{ENTER}" no la ejecuta.. Alguna sugerencia? Gracias y Saludos !!
  2. Muchísimas gracias... seguí tu consejo y ya pude insertar el mapa directamente en excel...👍
  3. Hola a Todos He intentado insertar mapas de Google a mi hoja de excel para que ya sea con datos de direcciones o de posicionamiento pueda traer el mapa de localiación.... Ya tengo mi API Key y he probado varias alternativas sin exito... alguna recomendación ... de antemano gracias
  4. Gracias Entiendo lo que me dices... actualmente tengo una rutina en Mac que funciona de maravilla, sin embargo hacer eso en PC resulta un calvario.... No se si sea más sencillo hacer que se visualice en el explorador y de ahi exportarlo como foto y guardarlo en el escritorio por ejemplo.Te dejo la imagen de lo que genero en Mac.
  5. Así como podemos importar imágenes y colocarlas en una celda específica, como un catálogo de imágenes, deseo saber cómo puedo hacer lo mismo pero con los archivos PDF que se generan por facturación electrónica... No deseo copiar ni abrir propiamente el archivo PDF, solo quiero mostrarlo... Alguna Sugerencia? Gracias por su apoyo Daniel Wise
  6. Antoni.... Agradezco mucho el tiempo y esfuerzo... En Base a los diversos Calendarios que he visto, desarrolle lo siguiente... Espero le sirva a más de alguno... Calendario.xlsm
  7. Hola a todos de nuevo.... Agradeciendo su apoyo en las diversas ocasiones que lo he solicitado... Ahora quiero saber si alguien tendrá un camino para generar un Calendario Despegable en Celda, como los muchos que hay, pero ahora para Mac... que como sabemos el Excel para Mac aún tiene muchas carencias que, para el caso concreto, no tiene activados los Formularios. Alguna idea? De antemano, gracias por su apoyo Daniel Wise
  8. Hola de nuevo.... Estoy haciendo una rutina en la que tengo una Base de Datos y una columna guarda una fecha.... deseo poder filtrar la BD por fecha pero especificamente solo por mes independientemente de que año y día sea.... Solo por mes. Quiero que me de los registros que tengan fecha solo de julio por ejemplo, no me importa el año ni el día. Alguna sugerencia? Saludos y Gracias
  9. Amigos... Ya resolví el tema sin problema alguno... Lesa agradezco su tiempo Seguiremos en contacto
  10. olvide mencionar que el segundo archivo está previamente abierto, siempre
  11. Hola de nuevo Necesito saber como copiar una imagen que tengo en un archivo a otro archivo. Actualmente tengo la rutina para cargar la imagen al primer archivo, pero necesito guardarla en el segundo archivo y no se cómo hacerlo sin tener que seleccionar el segundo archivo... La rutina que utilizo es la siguiente: Sub SistemaLogo() Workbooks(ChequeraApp).Worksheets("Sistema").Unprotect Password:=Pwd Workbooks(ChequeraPrefs).Worksheets("BDSistema").Unprotect Password:=Pwd Dim img As Shape For Each img In Workbooks(ChequeraApp).Worksheets("Sistema").Shapes If img.Type = 11 And img.Name = "Logo" Then img.Delete Next PosTop = Workbooks(ChequeraApp).Worksheets("Sistema").Range("Q9").Top PosLeft = Workbooks(ChequeraApp).Worksheets("Sistema").Range("Q9").Left Logotipo = Application.GetOpenFilename If Logotipo = False Then Exit Sub Logo = Workbooks(ChequeraApp).Worksheets("Sistema").Pictures.Insert(Logotipo).Select Selection.ShapeRange.Top = PosTop + 4 Selection.ShapeRange.Left = PosLeft + 9 Selection.ShapeRange.Height = 45 Selection.ShapeRange.Width = 45 'NombreImagen = InputBox("Nombre de Imagen:", "Nombre Imagen") Selection.ShapeRange.Name = "Logo" 'NombreImagen 'PosTop = Workbooks(ChequeraPrefs).Worksheets("BDSistema").Range("P2").Top 'PosLeft = Workbooks(ChequeraPrefs).Worksheets("BDSistema").Range("P2").Left 'Workbooks(ChequeraApp).Worksheets("Sistema").Shapes.Range(Array("Logo")).Select 'Selection.Copy 'Workbooks(ChequeraPrefs).Worksheets("BDSistema").Range("P2").PasteSpecial Format:="Imagen (JPG)", Link:=False, DisplayAsIcon:=False Workbooks(ChequeraApp).Worksheets("Sistema").Range("E10").Select End Sub alguna ayuda? De antemano gracias
  12. Hola.... Claro que sí te entendí y gracias a tu aportación salió otra idea... Mira, lo que pasa es que esa hoja, como otras tienen rutinas de Worksheet_change y ellas llaman a otras por lo que se producían errores antes de guardar... Lo que hice fue mejor generar un libro y copiar/Pegar un rango y que efectivamente no funcionaba adecuadamente porque se perdía el rango copiado al cambiar de libro...(En Mac funcionaba perfecto). Así que lo hice manualmente para ver qué sucedía y lo que hice ya al final fue crear el libro, y desde el nuevo libro copiar y pegar el rango lo cual funcionó a la perfección, es limpio, rápido y sin errores. Ya esa rutina funciona bien tanto en PC como en Mac. Dejo la rutina final.
  13. Preferí irme por el copy paste pero no funciona... ya probé el paste special pero tampoco..... la cuetión es que al cambiar de archivo (de origen a destino) se pierde lo copiado... alguna idea?
  14. Ok.., deja intento eso que dices haciendo que lo guarde de forma automática by les aviso
  15. Hola a todos... Acudo nuevamente a ustedes para solucionar un problema.... Deseo copiar una hoja de un Libro para que la ponga en otro nuevo (Esto está resuelto), sin embargo la hoja a copiar tiene macros y lo que deseo es poder borrar dichos códigos de programación en la nueva hoja del nuevo libro, pero he probado varios códigos y no lo hace ... hay que aclarar que el nuevo libro solo tiene la nueva hoja copiada. Alguna idea? Saludos y gracias Daniel Wise
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png