Boa noite!!

O que deseja seria, quando exportar os dados do SAP colar na guia SAP e a guia TB.BASE inserir apenas os clientes que ainda não estão na guia TB.BASE?

Att

Correto alexandrevba,

Porque como existe a possibilidade dos clientes saírem da ordem.

Se eu colocar diretamente na TB.BASE os dados manuais dos clientes vão ficar todos foram de ordem.

Boa tarde!!

Se eu entendi bem, na guia SAP, tem a seguinte linha (que eu inclui).
24/02/2015 S135 Venda Incorporação Cliente 1000 Imobiliaria 28

Como exemplo, tem a guia AleVBA, nela há um botão, execute ele, veja se seria isso..

Att

alexandre,

Boa noite,

Ainda não é isso, anexei um novo arquivo que destaquei exatamente o que preciso.

Na guia SAP simulei uma atualização onde duas linhas de vermelho são novos clientes.

Preciso que esses clientes sejam colocados na guia TB.BASE nas últimas linhas vazias.
Devido aos dados manuais eu não posso copiar e colar na TB.BASE se não ficam fora de ordem.

Bom dia!!

Mas você não tentou adaptar?

Option Explicit
Sub AleVBA_14791V2()
    Dim ResultSheet As String:          ResultSheet = "TB.BASE"
    Dim FirstSheet As String:           FirstSheet = "TB.BASE"
    Dim SecondSheet As String:          SecondSheet = "SAP"
    Dim FirstSheetDataCol As String:    FirstSheetDataCol = "E"
    Dim SecondSheetDataCol As String:   SecondSheetDataCol = "E"
    
    Dim rngData1 As Range:  Set rngData1 = Sheets(FirstSheet).Range(FirstSheetDataCol & "2:" & _
                                           Sheets(FirstSheet).Cells(Rows.Count, FirstSheetDataCol).End(xlUp).Address)
    Dim rngData2 As Range:  Set rngData2 = Sheets(SecondSheet).Range(SecondSheetDataCol & "2:" & _
                                           Sheets(SecondSheet).Cells(Rows.Count, SecondSheetDataCol).End(xlUp).Address)
    
    Dim aCell As Range
    For Each aCell In rngData2
        If rngData1.Find(aCell.Value) Is Nothing Then
            Sheets(ResultSheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Value = aCell.EntireRow.Value
        End If
    Next aCell
    
End Sub

Veja se ajuda..

Att

Consegui adaptar o código sim.

Está funcionando beleza.

Gostaria de saber só como é feita a procura dos dados.

Pois fico com receio de repetir os dados.

O código está procurando por quais valores para a verificação dos dados ?

Boa tarde!!

Apartir da coluna E de cada guia em que se haverá a comparação, se os dados do rngData2 (Dim SecondSheet As String: SecondSheet = "SAP") caso o rngData1 (Dim FirstSheet As String: FirstSheet = "TB.BASE") não seja correpondente, então copia para Sheets(ResultSheet).

Att

Entendi, eu precisava que essa condição dosse duas colunas.

Fiz um Concatenar de duas colunas e coloquei no 'SAP' e 'TB.BASE'

Mas ai não localiza porque acho que é fomula.

Tem algum outro jeito ?

No mais o código está tudo certo.

Boa tarde!!

Mas quais colunas além..........da coluna E

Dim FirstSheetDataCol As String:    FirstSheetDataCol = "E"
    Dim SecondSheetDataCol As String:   SecondSheetDataCol = "E"

Att

Seriam as colunas "J" (Documento SD) e "E" (Cliente)"

Pois força um 'concatenar' do Cliente com um número de documento.

Boa tarde alexandre,

Estou com outro probleminha no código e não consegui resolver.

Na linha " Sheets(ResultSheet).Range("B" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Value = aCell.EntireRow.Value"

Ela está colando a linha por completo correto?

Preciso que seja copiado por exemplo: Da coluna B à Z e colocado na coluna B de TB.BASE

Tentei modificar esse código mas não consegui.

alexandrevba,

Está certo esse código?

        If rngData1.Find(aCell.Value) Is Nothing Then
            
            Sheets(SecondSheet).Range("B" & aCell.Row & ":Q" & aCell.Row).Copy
            Sheets(ResultSheet).Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            
        End If