Como cambio en una macro el rango o columna donde aparece la información
Tengo una pregunta como puedo cambiar en una macro el lugar donde me aparecerá la información ya que siempre me aparece en A1. Esta es la macro:
Sub indicepdf()
Dim NombreArchivo As String
Dim NombreCarpeta As String
Dim NombreCompleto As String
Dim f As Long
NombreCarpeta = "c:\xxxxxxxxxxxxx" ' aqui el nombre del directorio donde tienes los pdf
f = 1
ChDir NombreCarpeta
NombreArchivo = Dir("*.pdf") ' cambiar para otras extensiones
Do While NombreArchivo <> ""
NombreCompleto = NombreCarpeta & "/" & NombreArchivo
Cells(f, 1) = NombreCompleto
ActiveSheet.Hyperlinks.Add Anchor:=Cells(f, 1), Address:=NombreCompleto
f = f + 1
NombreArchivo = Dir
Loop
End Sub
En esta línea de la macro, le indicas que empiece en la fila 1, si quieres que empiece en otra fila, cambia el 1 por el número que desees.
F = 1
Después de esa línea, agrega esta línea, y escribe la letra de columna deseada
c = "A"
La macro tiene una diagonal equivocada debe ser esta:
NombreCompleto = NombreCarpeta & "\" & NombreArchivo
La macro con los cambios quedaría así:
Sub indicepdf()
Dim NombreArchivo As String
Dim NombreCarpeta As String
Dim NombreCompleto As String
Dim f As Long
NombreCarpeta = "c:\xxxxxxxxxxxxx" ' aqui el nombre del directorio donde tienes los pdf
f = 1
c = "A"
ChDir NombreCarpeta
NombreArchivo = Dir("*.pdf") ' cambiar para otras extensiones
Do While NombreArchivo <> ""
NombreCompleto = NombreCarpeta & "\" & NombreArchivo
Cells(f, c) = NombreCompleto
ActiveSheet.Hyperlinks.Add Anchor:=Cells(f, c), Address:=NombreCompleto
f = f + 1
NombreArchivo = Dir
Loop
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
