Prezados,

Sei que este é um fórum de ajuda. Fui muito ajudado sempre que precisei.
Ocorre que agora eu preciso desta planilha com bastante urgência ou então procurar algum programa pronto, mas prefiro em excel, sem dúvida.

Se tiver algo de errado com o título ou o texto, me corrijam para que possa ser mais claro. Acabei postando o tópico na biblioteca, não sei se é isso.

De qualquer forma, conto com a ajuda dos senhores, como sempre.

abs!!

Pessoal, ontem fiquei até mais tarde no PC e resolvi dois problemas da plan, coisa simples, mas que eu tinha esquecido.

Agora preciso apenas de:

1) Uma maneira de que ao digitar os dados na tabela 1 da primeira planilha, estes dados alimentem (ou sejam transferidos), para outra tabela de outra planilha e lá permaneçam.
Então os dados da primeira seriam apagados e na segunda, se manteriam gravados aguardando nova inclusão de dados da tabela 1.

O exemplo é bem prático. Por favor, me ajudem.

OBRIGADO!
(link mais atualizado) - https://www.sendspace.com/file/0kqpfk

beto, aqui nao temos como baixar arquivos de Drivers virtuais, então segue somente uma rotina para sua avaliação e se servir procure ajustar ao seu modelo.

Estou supondo que estamos digitando somente na Coluna A e queremos transferir para a Plan2 sempre um dado abaixo do outro e apagando o da planilha que foi digitado.

Na instrução que recortamos o dado a ser transferido :
Range(Target, Target.Offset(0, 0)).Cut
os "Zeros" significam (linha, coluna) e offset o deslocamento, e neste caso somente a celula Digitada está recortando, então supondo que queira recortar da celula digitada até a coluna "D" altere o segundo "Zero" para "3", e será recortado de A2 ate D2, isto se a digitação foi em A2.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ColunasA As Range
    'Definimos a digitação somente na Coluna A
    Set ColunasA = Range("A:A")
    
    'Desabilitamos o Evento para evitar erro ao recortar
    Application.EnableEvents = False
    
    'Se não for digitado na coluna A sai da rotina
    If Not Application.Intersect(ColunasA, Range(Target.Address)) Is Nothing Then
        'Se valor for em branco ou deletar sai da rotina
        If Not Target.Value = "" Then
            Dim nextRange As Range
            'Verificamos e armazenamos a ultima linha preenchida na Plan2
            Set nextRange = Sheets("Plan2").Range("A1048576").End(xlUp).Offset(1, 0)
                
                ' Recorta e Cola na Plan2
                Range(Target, Target.Offset(0, 0)).Cut
                Sheets("Plan2").Paste Destination:=Sheets("Plan2").Range(nextRange.Address)

        End If
    End If
    'Habilitamos a Macro novamente
    Application.EnableEvents = True
    
End Sub

Faça os testes e qq duvida retorne.

[]s

Oi Mauro, eu agradeço sua ajuda mas ainda não pude testar em razão de outras demandas.
Este fim de semana eu testo e dou o feed.

Obrigado!!!!