Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA GRAVAR E...
 
Notifications
Clear all

MACRO PARA GRAVAR EM OUTRA PLAN

 
2024 - VBA & Macros
8 Posts
3 Usuários
0 Reactions
1,728 Visualizações
RSS
 erlancls
(@erlancls)
Posts: 4
New Member
Topic starter
 

Prezados, boa tarde!

Preciso de uma ajuda, tenho uma lista com dados, status / marca / ano

quando eu mudar o status tipo para "concluído" ele vai e copia as celulas MARCAS E ANO.

Preciso de uma macro que quando as linhas tiverem na coluna A (concluído) nessa linha copie dados da B e C (correspondente a marcas e ano). copie para uma outra plan (ex: plan2).

MANDEI UM ANEXO COM LAYOUT DO QUE ESTOU QUERENDO FAZER.

exemplo

STATUS MARCA ANO

1 CONCLUÍDO CELTA 2012
2 EM ANDAM. PASSAT 2011
3 CONCLUÍDO GOL 2013
4
5

a macro verifica se a conluna A tiver "concluído" ele copie na mesma linha 1 (celta e 2012) para plan2 (como banco de dados)

 
Postado : 20/09/2017 10:14 am
joebsb
 joebsb
(@joebsb)
Posts: 44
Eminent Member
 

Tá na mão

Sub copiadados2()
i = 1
s = 1
Do Until Len(Sheets(1).Cells(i, 1).Text) = 0
    If Sheets(1).Cells(i, 1).Text = "concluído" Then
        Sheets(2).Cells(s, 1) = Sheets(1).Cells(i, 2)
        'Código criado por Joe em 18/09/2017
        'Contato para Freelancer: (61) 99136-3695
        Sheets(2).Cells(s, 2) = Sheets(1).Cells(i, 3)
        s = s + 1
    End If
    i = i + 1
Loop
End Sub

Se ficou como você queria, não esqueça de marcar essa resposta como tópico resolvido e mandar um tks...

Abraços

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 20/09/2017 11:08 am
 erlancls
(@erlancls)
Posts: 4
New Member
Topic starter
 

colega obrigado pela força, mas não rodou. teria como vc me enviar essa macro já pronta no excel? pois não funcionou.

 
Postado : 20/09/2017 11:26 am
joebsb
 joebsb
(@joebsb)
Posts: 44
Eminent Member
 

Segue em anexo conforme solicitado.

Não esqueça de marcar a resposta como tópico resolvido e mandar o tks.

Abraços

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 20/09/2017 11:58 am
 erlancls
(@erlancls)
Posts: 4
New Member
Topic starter
 

funcionou, mas tipo queria que na plan2 ficasse como um banco de dados, se eu precionar o botão da macro ele copie novamente como (acumulativo)todo dado novo ele vai colocando abaixo da ultima celula.

e também começasse a colar a partir da linha 2 (pois iria colocar um cabeçalho). igual mandei no layout.

 
Postado : 20/09/2017 12:08 pm
joebsb
 joebsb
(@joebsb)
Posts: 44
Eminent Member
 

Eita q se não for agora eu desisto.. rs...

Segue arquivo alterado....

Não esquece de colocar a resposta como tópico resolvido e mandar o tks...

Abraços..

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 20/09/2017 12:33 pm
 erlancls
(@erlancls)
Posts: 4
New Member
Topic starter
 

show de bola, muito bom. obrigado mesmo. me ajudou bastante.

 
Postado : 20/09/2017 12:40 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite erlancls

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

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

 
Postado : 20/09/2017 6:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico