Boa Tarde Familia,
Atualizando o Post

Estou tentando cria uma macro que leia os valores procurado na Planilha "LIMITE DE SAQUE FOLHA" na aba LIMITE DE SAQUE FOLHA, e me retorno um valor conseguir cria uma macro mais ela procura os valores onde eu mandei percorre,
a planilha podéra vim com os dados "ALTERADOS DE SEQUENCIA" nesse metodo que fiz ser incluir alguma linha onde busco os dados a macro da erro e nao acha o valor
gostaria que ela lese os valores da coluna "C" se for '200006' ela vai para outra coluna a "E" se for '309 'ela vai para coluna "G" ser o valor for 0100000000 ela copia o valor da coluna " I " e cola na planilha folha gerencial na aba fonte e assim por diante ,

Obs: Cada "UG Executora Cod", tem sua vinculação 307, 309 ou 310, cada "UG Executora Cod" podera ter 1, 2 ou 3 Vinculaçao
que ta relacionado a uma "Fonte de Recursos Detalhada Cod"

Exp: "UG Executora Cod". 200006 tem vinculação com a 309 na "Fonte Recurso" 0100000000 pego saldo Atual e colo onde quiser
eu não posso ter 2 309 na fonte 0100000000 mas posso ter uma 307 ou 310 ou as 3 juntas mais nao se repete dentro da mesma Fonte

Segue em anexo os arquivos e o codigo que ja criei Desde-ja agradeço

Att, Vitor

 
 Sub ReplicaDados()
   
Dim WSo As Worksheet, WSd As Worksheet, ug As Range, uf As Range


Set WSo = Workbooks("LIMITE DE SAQUE FOLHA").Sheets("LIMITE DE SAQUE FOLHA")
Set WSd = ThisWorkbook.Sheets("Fontes")


Set WSa = Workbooks("LIMITE DE SAQUE FOLHA").Sheets("LIMITE DE SAQUE FOLHA")
Set WSz = ThisWorkbook.Sheets("Fontes")
  

    
 Set ug = WSo.Range("C:G").Find("200006").Offset(0, 2).Find("309").Offset(0, 2).Find("0100000000").Offset(0, 2)
        
        WSd.Range("J6").Value = ug.Value
        'k
        
        
        
         Set ug = WSo.Range("C:G").Find("200006").Offset(2, 2).Find("310").Offset(0, 2).Find("0100000000").Offset(0, 2)
        
        WSd.Range("J7").Value = ug.Value

'k

         Set uf = WSo.Range("C:G").Find("200336").Offset(0, 2).Find("307").Offset(0, 2).Find("0100000000").Offset(0, 2)
        
        WSd.Range("J10").Value = uf.Value

'k


 Set uf = WSo.Range("C:G").Find("200336").Offset(3, 2).Find("309").Offset(0, 2).Find("0188000000").Offset(0, 2)
        
        WSd.Range("J11").Value = uf.Value
        
        'k
        
        
         Set uf = WSo.Range("C:G").Find("200336").Offset(2, 2).Find("309").Offset(1, 2).Find("0188000000").Offset(0, 2)
        
        WSd.Range("J12").Value = uf.Value
        
  End Sub