¿Cómo insertar la ruta completa de un documento en el equipo (pdf, ppt, txt etc) en una celda?

el objetivo de la macro seria insertar la ruta completa de un documento en el equipo (pdf,ppt,txt etc)
ejemplo:
"C:\Users\Public\Downloads\IMAGEN.PNG"

LES AGRADEZCO EL APOYO

Respuesta
1

Te envié la macro, revísala y me comentas

Saludos. DAM
Si es lo que necesitas.

gracias es lo que buscaba

Sub ruta()
'Por.DAM
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show Then
Range("A1") = .SelectedItems.Item(1)
End If
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Función buscarv sobre el resultado de una celda

Trato de obtener resultado sobre la función de buscarv la cual detallo esta :=SI.ERROR(BUSCARV(B666;COMPRAS!$M$3:$O$325;3;FALSO);""). Lo busco sobre una celda que tiene la siguiente formula: =SI(D666="Apertura ";"";IZQUIERDA($G$666;10)). El resultado...
2 respuestas

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas