Notifications
Clear all

Enviar dados de uma planilha para outra

11 Posts
3 Usuários
0 Reactions
2,354 Visualizações
 Spom
(@spom)
Posts: 6
Active Member
Topic starter
 

Boa noite.

Gostaria de pedir ajuda com uma planilha que tem como objetivo mais ou menos um cadastro.

Gostaria que na primeira aba fosse possivel colocar nome ,valor,etc..(dados)

Nessa mesma aba em uma coluna assim que colocasse uma palavra,"Encerrado" ou "ok" essa linha seria completamente movida para outra aba.

Nesse caso não deveria apenas copiar,gostaria que enviasse mesmo,para assim na primeira aba acabar não misturando casos encerrados e casos pendentes.

Alguém poderia me ajudar?

Isso seria possível?

 
Postado : 05/07/2012 5:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/07/2012 5:45 pm
(@robert)
Posts: 561
Honorable Member
 

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,

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 05/07/2012 5:47 pm
 Spom
(@spom)
Posts: 6
Active Member
Topic starter
 

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.

 
Postado : 05/07/2012 7:31 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/07/2012 7:51 pm
 Spom
(@spom)
Posts: 6
Active Member
Topic starter
 

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

Espero que agora esteja tudo ok.

Agradeço desde já.

 
Postado : 05/07/2012 8:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/07/2012 10:47 am
 Spom
(@spom)
Posts: 6
Active Member
Topic starter
 

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.

 
Postado : 06/07/2012 10:14 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/07/2012 1:47 am
 Spom
(@spom)
Posts: 6
Active Member
Topic starter
 

Melhor do que eu podia imaginar...

Muito obrigado...

Valeu...

 
Postado : 08/07/2012 11:45 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/07/2012 5:06 pm