Notifications
Clear all

Como fazer loop até encontrar valor

3 Posts
2 Usuários
1 Reactions
1,036 Visualizações
(@gean277)
Posts: 0
New Member
Topic starter
 

Pessoal, boa noite!

Na minha planilha, eu gostaria de criar uma macro que copiasse as informações de "saldo!B11:V11" e colasse na coluna B da guia "controle_de_férias!", na linha onde o nome fosse igual a célula "saldo!B11".

 

Poderiam me ajudar por favor?

Desde já agradeço.

 

Segue a planilha: https://drive.google.com/file/d/1wBEX33joKa1xlUpDp1t3oHTZDVbHUgVg/view?usp=sharing

 

 
Postado : 23/08/2020 10:07 pm
(@edsonbr)
Posts: 0
New Member
 

Bom dia, @gean277

Sub AtualizaFérias()
  Dim rgTrader As Range, rgCF As Range, rgSaldo As Range
  Set rgSaldo = Worksheets("Saldo").[C11:V11]
  Set rgTrader = Worksheets("Controle_de_Ferias").ListObjects("Tabela1").ListColumns("Trader").Range
  Set rgCF = rgTrader.Find(What:=rgSaldo.Offset(, -1).Value, After:=rgTrader.Cells(1), _
                           LookIn:=xlValues, LookAt:=xlWhole)
  If Not rgCF Is Nothing Then
    rgCF.Offset(0, 2).Resize(, 20).Value = rgSaldo.Value
  End If
End Sub
 
 
Postado : 27/08/2020 9:22 am
Gean277 reacted
(@gean277)
Posts: 0
New Member
Topic starter
 

@edsonbr Muito obrigado! Ajudou bastante.

 
Postado : 27/08/2020 11:48 am