Como fazer loop até encontrar valor

2024 - VBA & Macros

Post Recente por Gean277 4 anos atrás

3 Posts

2 Usuários

1 Reactions

1,045 Visualizações

RSS

Gean277

(@gean277)

Posts: 8

Active 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

Exemplo.xlsx

Postado : 23/08/2020 10:07 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble 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