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

MACRO PARA COLAR COLUNAS

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,012 Visualizações
RSS
 reyroo
(@reyroo)
Posts: 4
Active Member
Topic starter
 

Prezados amigos, preciso muito dessa ajuda.. ja Tentei com Corresp e Formula SE() mas nao tive exito. Portanto necessito de vossas ajuda.:
Seguinte tenho em uma Planilha dados em dua colunas: NOME e QUATIDADE preciso copiar e colar para outra com NOME e QUANTIDADE, somente conteudo da coluna QUANTIDADE, de acordo com os respectivos nomes. Ocorre que nem sempre estara na mesma ordem e nem na mesma linha..Segue anexo um pequeno exemplo..
Ficarei grato..

Leia as regras do fórum os arquivos devem ser compactados!!

 
Postado : 03/07/2013 6:45 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente assim...


Sub InserirFormula_8760()
    Dim lngLastRow As Long
    lngLastRow = Cells(Rows.Count, "F").End(xlUp).Row
    Range("G2:G" & lngLastRow).Formula = "=IFERROR(INDEX($A$2:$B$6000,MATCH(F2,$A$2:$A$6000,0),2),"""")"
    
    Range("G2:G6000") = Range("G2:G6000").Value
    
End Sub

Veja modelo em:
http://rapidshare.com/files/2238994595/AleVBA_8760.xlsm
Att

 
Postado : 03/07/2013 7:08 pm
 reyroo
(@reyroo)
Posts: 4
Active Member
Topic starter
 

Opa deu muito certo... fico muito agradecido..

 
Postado : 04/07/2013 9:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Obrigado pelo retorno, lembre se de marcar sua postagem como resolvida na próxima ;)

As Nossas Regras!
viewtopic.php?f=7&t=203

Att

 
Postado : 06/07/2013 7:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico