Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Procura Dado,...
 
Notifications
Clear all

Macro Procura Dado, recorta e cola em outra Planilha

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
754 Visualizações
RSS
 Tiago Moraski
(@tiago-moraski)
Posts: 1
New Member
Topic starter
 

Olá galera do Planilhando.
Sou novo aqui. Preciso de uma ajudinha dos fera em VBA...

Preciso de uma Macro que busque e recorte uma linha específica de uma tabela.

Mais ou menos assim (a tabela real tem 343 colunas - esta é só para exemplificar melhor):

A B C D
1 CÓDIGO CARRO COR ANO
2 1234 GOL PRATA 2010
3 2331 CELTA PRATA 2011
4 4321 FOX PRATA 2009

Em uma outra planilha há uma célula com VALIDAÇÃO dos dados da coluna "A" onde pode-se localizar todos os "Códigos".
Preciso de uma Macro que depois de escolhido o "Código" encontre na Tabela a linha que diz respeito ao "Código" informado, recorte a linha inteira (ficando o espeço em branco) e cole em outra planilha.

Fui claro?

Galera! me ajudem.

Abrássss

 
Postado : 31/10/2012 3:17 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu arquivo modelo compactado, para que a comunidade possa ajuda-lo!!
Tente uma adaptação

Sub Teste()
     
    With Worksheets(1).Range("B")
        Set c = .Find("*Ale*", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Copy Destination:=Worksheets("Plan2").Range("A" & Worksheets("Plan2").Range("A65536").End(xlUp).Row + 1)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub
 
Postado : 31/10/2012 5:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico