Este fórum está sendo desativado

[maquisuelsolidade]

Boa noite pessoal!

Além de salvar a porcentagem na plan 2 de acordo com o mês, gostaria de salvar ao mesmo tempo a situação e sua porcentagem na plan 3. Já existe o código em vba para salvar na plan 2, só estou querendo adicionar o novo código na mesma macro para salvar na plan3, de acordo com o mês.

Os campos para onde gostaria que os dados ficassem salvos estão destacados por cores.....

grato,

[alexandrevba]

Bom dia!!

Seria algo assim?

Código: Selecionar todos

Sub AleVBA_2222()
Dim sh1 As Worksheet, sh2 As Worksheet, fn As Range
Set sh1 = Sheets("CEL 24")
Set sh2 = Sheets("Plan3")

With sht1
    [G20].Value = [I11].Value
    [H20].Value = [E14].Value
End With

Set fn = sh2.Range("A:A").Find(sh1.Range("H11").Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not fn Is Nothing Then
        sh1.Range("G20").copy fn.Offset(0, 3)
        sh1.Range("H20").copy fn.Offset(0, 2)
        sh1.Range("G20:H20").ClearContents
    End If
End Sub

Obs: Não liguei as duas macros, mas você pode chamar um dentro da outra usando comando Call

Att