AlexanderS

Hace 1 hora, Gerson Pineda dijo:

Riddle

Lo he probado, solo tiene un fallo, para adjuntar los 4 archivos, el bucle lo tienes desde la columna E

Gracias por compartir

 

Saludos!

Hola @Gerson Pineda, lo que pasa es que este archivo lo tenia para uso personal con algunas columnas mas y se me olvido corregir el rango cuando las elimine.

Subo el archivo con la corrección, gracias por avisar.

Saludos.

Corregido el error que marcaba el número de día del mes anterior o siguiente si era igual al número de día actual, gracias @aaquino por avisar.

Saludos.

Hace 16 horas, Nicomem14 dijo:

Buenas Tardes, Creo que estoy haciendo algo mal, pero no se exactamente el que... a ver si me podéis ayudar porque cuando selecciono el Botón una vez ejecutado el formulario me dice que hay un error de compilación: "No se ha definido Sub o Function". 

Hola @Nicomem14, debes asegurarte de tener activo el complemento y agregarlo a las referencias desde la ventana de VBA.

Saludos.

Me gusto lo de navegar por las carpetas con el web browser.

Saludos.

Hola @Callao2908 y @Haplox, para la versión de Office x64 se debe agregar una pequeña instrucción al los Declare. que seria PtrSafe, esto hace compatible una instrucción de 32bits a 64bits. 

Básicamente tendrían que reemplazar las declaraciones del modulo "modPastePicture" para que queden de esta forma:

Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Open the clipboard to read
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
'Get a pointer to the bitmap/metafile
Private Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Close the clipboard
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
'Convert the handle into an OLE IPicture interface.
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr
'Create our own copy of the metafile, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As LongPtr, ByVal lpszFile As String) As LongPtr
'Create our own copy of the bitmap, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyImage Lib "user32" (ByVal handle As LongPtr, ByVal un1 As LongPtr, ByVal n1 As LongPtr, ByVal n2 As LongPtr, ByVal un2 As LongPtr) As LongPtr
'The API format types we're interested in

Con esta modificación debería trabajar sin problemas tanto en office x86 como x64.

Saludos.

Excelente aporte.

@yordin revisa si tienes marcadas las mismas referencias que yo, utilizo windows 7 y office2010 también.

Comentas, salu2.

Increíble aporte, se nota que es un trabajo bien hecho.

Salu2