ricohablador

La firma del correo forma parte de ese cuerpo de mensaje. Hay que añadirlo al final. No lo coge del que tengas predeterminado en Outlook.

Desde Excel puedes hacer copy-paste a programas de imagen (como IrfanView, por ejemplo) para luego guardarla. Si lo que quieres es automatizar con una macro, el propio IrfanView tiene una línea de comandos que te serviría para guardar el portapapeles...

Adapta este ejemplo a lo que quieres. Sub ListarArchivos() Dim sLista As String Dim sArchivo As String sArchivo = Dir(ThisWorkbook.Path & "\Carpeta\Panadería*.*") While sArchivo <> "" sLista = sLista & vbCrLf & sArchivo sArchivo = Dir() Wend MsgBox...

Entiendo que es una tabla con columnas, que son los campos de la sección Cab y filas, que serían los diferentes registros. ¿Sería extraer un XML por cada fila/registro como el del ejemplo o un XML que incluya uno tras otro todos los registros? ¿Los...

No sé si hay una forma más elegante, pero se me ocurre poner esto debajo de TOTAL. Si hay algo en cualquier columna de B a G, pondrá "contratado" y si todas están vacías pondrá "no contratado". =SI(CONCATENAR(B2;C2;D2;E2;F2;G2)<>"";"CONTRATADO";"NO...

No he conseguido reproducir tu error. ¿Si cuándo te aparece el error pulsas el botón Depurar te lleva a esa línea? Puedes probar: Private Sub Workbook_Open() Worksheets("Menú Principal").Activate End Sub

Ese código se ejecuta al cambiar la selección (celda activa) en la hoja. Si quieres hacer lo mismo en otras hojas, tienes que copiar ese código y pegarlo en el código fuente de esa otra hoja (clic derecho en el nombre de la hoja > Ver código).

Para lo que describes, si es solo texto y te deja seleccionarlo, tal vez te funciona simplemente seleccionar el texto de uno y otro, pegarlo en un MS Word / LO Writer y exportarlo como PDF.

Una forma sería poner este código en un Módulo y asignar la macro al botón Buscar ubicación. Public BuscandoUbicacion As Boolean Sub Buscar_Ubicacion() BuscandoUbicacion = True ThisWorkbook.Sheets("Ubicaciones").Activate End Sub Luego, en la hoja...

Le das a una columna formato Personalizada > 0000 y pones en esa columna en tantas celdas como necesites, la fórmula: =ENTERO(ALEATORIO()*10000)