Boa noite!!

Lembre se de usar a pesquisa ou a biblioteca do fórum, talvez encontre o que deseja.
viewtopic.php?f=21&t=3962

Att

Alexandre,

entendo muito pouco destes códigos, este meu código consigo ler por usar a muito tempo, mas chegar a fazer as alterações conforme seu exemplo neste código é muito difícil para conseguir sozinho.
Pergunto, no caso este meu código eu devo esquecer e reconstruir do 0 é isso?

Voce precisa dizer pelo menos o que quer
Na formula acima procura por um valor (2 --> Lin(b1) é dois), na planilha Aprazo e retorna um valor de aprazo. O que mais vai acontecer para utilizar avista??

Boa noite Reinaldo,

assim, tenho uma planilha chamada Fabio, nela quero reunir todos os registros lançados na plan Aprazo( o que o código já faz ) e também da plan Avista quando a matriz for Fabio entre outros...
Lanço registros para Fabio tanto na avista quanto na aprazo, quero reunir estes registros ( Fabio ) em uma unica planilha.

Segue anexo...

Boa noite!!

Você se importaria se for por VBA??

Sub AleVBA_Copiar_8165()
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False
     
    For Each ws In Sheets(Array("AVista", "APrazo"))
        With ws
            .Range("A3:A10000,E3:J10000").Copy
            Worksheets("Fabio").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial (xlPasteValues)
        End With
    Next ws
     
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

Bom dia,

Desculpe se não fui claro,

( e também da plan Avista quando a matriz for Fabio entre outros... )

serão ao menos 8 planilhas...