Ver originales (Francés)

Apertura de un archivo de Excel según el usuario

Resuelto
Fethi51 Mensajes publicados 4 Estado Miembro -  
Fethi51 Mensajes publicados 4 Estado Miembro -
Hola,

Quisiera hacer una macro en un archivo para que al abrirse y en función del usuario (nombre del autor en Excel) el archivo se abra con un filtro sobre esa persona.

Gracias de antemano por tu ayuda.

6 respuestas

  1.
    Boisgontierjacques Mensajes publicados 177 Estado Miembro 64
     
    Bonsoir,

    Subida privada al abrir el libro()
    nombre = Environ("username")
    Hojas(1).Celdas.AutoFiltro Campo:=1, Criterios1:=nombre
    Fin Sub

    https://www.cjoint.com/c/CLpvfEfhcEO

    Jacques Boisgontier
    2
  2. Boisgontierjacques Mensajes publicados 177 Estado Miembro 64
     
    Sub privado Workbook_Open()
    nom = Environ("username") ' nombre de red
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=nom
    End Sub

    o

    Sub privado Workbook_Open()
    nom = Application.UserName ' usuario de office
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=nom
    End Sub

    o

    Sub privado Workbook_Open()
    nom = Application.UserName
    iniciales = Application.VLookup(nom, [usuarios], 2, False) ' tabla de correspondencia
    If Not IsError(iniciales) Then
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=iniciales
    End If
    End Sub

    https://www.cjoint.com/c/CLpxft99txX

    Jacques Boisgontier
    1
  3. Boisgontierjacques Mensajes publicados 177 Estado Miembro 64
     
    Hola,

    Poner la tabla de correspondencia en otra hoja y nombrar esta tabla usuarios.

    Jacques Boisgontier
    1
  4. Fethi51 Mensajes publicados 4 Estado Miembro
     
    Gracias por su respuesta

    pero el "nombre" es el nombre de la sesión u otros, ¿cómo se hace con el nombre en Office en su lugar?

    https://www.cjoint.com/c/CLpwaWFjcFB

    si es posible con iniciales según los nombres
    0
  6. Fethi51 Mensajes publicados 4 Estado Miembro
     
    Bonjour,

    Gracias muchas

    simplemente no puedo hacer una tabla de correspondencias y para evitar utilizarla porque habrá inserciones de filas y columnas que podrían desajustarse, ¿es posible poner las correspondencias entre nombre/apellido e iniciales directamente en la macro?

    Private Sub Workbook_Open()
    nombre = Application.UserName
    iniciales = Application.VLookup(nombre, [usuarios], 2, False) ' tabla de correspondencia
    If Not IsError(iniciales) Then
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=iniciales
    End If
    End Sub
    0
  7. Fethi51 Mensajes publicados 4 Estado Miembro
     
    No he sabido cómo identificar una tabla de correspondencia, así que me las he arreglado así:

    nombre = Application.UserName
    iniciales = Application.VLookup(nombre, Range("CO3:CP8"), 2, False) 'tabla de correspondencia
    If Not IsError(iniciales) Then
    Hojas(1).Celdas.AutoFilter Campo:=13, Criterio1:=iniciales
    End If

    En todo un enorme GRACIAS, funciona muy bien...

    Hasta pronto.
    0