Boa noite!!

Sim!

Use a pesquisa do fórum!!

viewtopic.php?f=10&t=4715&p=24606&hilit=copiar+dados+de+uma+planilha+para+outra#p24606

viewtopic.php?f=10&t=4715&p=24392&hilit=copiar+dados+de+uma+planilha+para+outra#p24392

use também um gravado de macros.
http://www.juliobattisti.com.br/cursos/ ... lo5/02.asp
monte um modelo e anexe o mesmo COMPACTADO!!
Att

Caro Spom, boa noite!

Lembre - se : Nunca tivemos acesso a tua planilha por este é essencial que poste a mesma aqui com todos os detalhes possível para que possamos te ajudar e até mesmo aumentar a velocidade e eficiência das respostas.

Até mais,

Boa noite,

Desculpa por não ter feito isso antes.

Estou enviando em anexo um modelo de planilha da forma como imagino.

Gostaria que quando colocasse "ok" no status da aba Geral..fosse automaticamente a linha toda para a aba ok.

Gostaria disso para não ficar misturado na aba geral os que "ok" com o que ainda está "pendente".

Agradeço desde já pela ajuda.

Boa noite!!

Desse jeito eu fico triste!!

Em minha postagem anterior disse para COMPACTAR seu arquivo

Faça a gora e leia as regras do fórum !!
Nossas Regras
viewtopic.php?f=7&t=203

seu arquivo será deletado!!
Att

Peço novamente desculpas por não ter feito o que foi solicitado.

Espero que agora esteja tudo ok.

Agradeço desde já.

Boa tarde!!

Isso deve te ajudar!!

baixe o arquivo em:
http://www.sendspace.com/file/41ucoo

Por favor marque seu tópico como resolvido!!!
viewtopic.php?f=7&t=3784

Fica a rotina para quem precisar...

Option Explicit
Private Sub CommandButton1_Click()
    Dim ws     As String
    Select Case Me.ComboBox1.ListIndex
    Case 1
        ws = "Geral"
    Case 2, 3
        ws = "OK"
    Case Else
        MsgBox " Entrada incorreta"
        Exit Sub
    End Select
    With Worksheets(ws).Cells(Rows.Count, "A").End(xlUp)
        .Offset(1, 0) = Me.Textcli.Value
        .Offset(1, 1) = Me.TextDescr.Value
        .Offset(1, 2) = Me.TextDtlib.Value
        .Offset(1, 3) = Me.TextDtpro.Value
        .Offset(1, 4) = Me.Textvalor.Value
    End With
End Sub
 
Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .List = Array("", "Pendente", "OK")
    End With
    ComboBox1.ListIndex = 0
End Sub

Att

Boa noite,

Ficou bem interessante,mas no caso não foi bem o que eu imaginava.

Todas no inicio devem ir para a planilha geral,pois assumiria que no inicio todas estavam pendentes.

Depois quando eu colocasse ok em alguma célula na planilha geral,toda a linha fosse automaticamente para a outra aba.

Separando assim os casos.

Agradeço pela ajuda.

Spom,

O que vou postar atende plenamente ao que vc precisa mas nao ha macro. Trata-se de separar automaticamente (ok X "") em uma aba, alem de ordenar os registros pelo criterio que vc desejar.

Serve, na verdade, para demonstrar que muitas tarefas podem ser modeladas sem auxilio de VBA.

A resolucao esta desprotegida (para vc consultar) e pode te ajudar em outras empreitadas.

Resumindo, demonstra algumas etapas importantes na manipulacao de dados para analise (classificacao alfab/valor; captura/envio de dados; criterios de desempate para valores/textos iguais e por ai vai...)

Coloquei a funcao aleatorio() para testar. Troque por seus dados.

Abs,

Melhor do que eu podia imaginar...

Muito obrigado...

Valeu...

Boa noite!!

Posso deixar minha versão VBA??

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim NextRow As Long
    Dim c As Range
    Dim LR As Long
    LR = Plan1.Range("a" & Rows.Count).End(xlUp).Row
    NextRow = Plan2.Range("a" & Rows.Count).End(xlUp).Row + 1
    If Target.Column = 6 Then
        If Target.Value = "OK" Then
            Target.EntireRow.Copy Destination:=Plan2.Range("a" & NextRow)
            Target.EntireRow.Delete
        End If
    End If
End Sub

Veja o arquivo em:
http://www.sendspace.com/file/nh582f

Att