Bom dia!!

Os arquivos estão no mesmo diretório?

Os arquivos tem a mesma extensão?

Todas as guias desses arquivos devem ser afetadas ou apenas uma?

Sem detalhes e conhecer sua estrutura será impossível te ajuda!!!

Mas ai vai algo que lhe sirva de expiração.

Sub AleVBA_16818()


    Dim MyPath          As String
    Dim MyFile          As String
    Dim Wkb             As Workbook
    Dim Cnt             As Long
    
    Application.ScreenUpdating = False
    
    MyPath = "C:UsersAleVBADocumentsMinhaPasta"
    
    If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
    MyFile = Dir(MyPath & "*.xls")
    
    Cnt = 0
    Do While Len(MyFile) > 0
        Cnt = Cnt + 1
        Set Wkb = Workbooks.Open(MyPath & MyFile)
        Wkb.Worksheets("Plan1").Range("B7").Value = "AleVBA"
        Wkb.Close savechanges:=True
        MyFile = Dir
    Loop
    
    If Cnt > 0 Then
        MsgBox "Processo completo...", vbExclamation
    Else
        MsgBox "Arquivos não encnotrado!", vbExclamation
    End If
    
    Application.ScreenUpdating = True
    
End Sub

Att

Ola, Segue a planilha em anexo para ajudar.

O pessoal irá preencher os dados nas colunas com o cabeçalho azul através da lista suspensa. Será uma planilha dessa salva para cada colaborador

O dados da lista suspensa esta ao na planilha.

Eu gostaria que essa base de dados ficasse em uma outra planilha (para que eu possa atualizar os dados sempre que precisar) e que toda vez que o colaborador abra sua planilha, ele atualize as listas suspensas com base nos dados dessa planilha avulsa.

Entende?

è possivel?

Ola

Mais ninguem para dar uma ajuda?

Obrigado..

Abs.

não poderia ser uma useform com combobox para selecionar?

Ve se o arquivo anexo ajuda.

Fiz com base nos dados ao lado da planilha mas o principio é o mesmo.