Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Importar de plan2, uma linha previamente informada em plan1

Ir para baixo 
3 participantes
AutorMensagem
Xanel




Mensagens : 21
Data de inscrição : 22/10/2012

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 4:58 am

Boa noite

Agradeceria muito se alguém pudesse ajudar na solução do seguinte problema:
Em Plan1 (B1) é digitado 5, a macro vai até Plan2, "lê" o intervalo S1:S10, identifica o 5 e copia o intervalo U5:AD5, cola em Plan1, no intervalo E1:N1. Tentei com um gravador de macro mas não ficou legal.

Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 3:16 pm

Bom dia!!!

Xanel, se com um Gravador de Macro, você não resolveu, como vamos ajuda-lo??

Da forma como você falou, parece fácil, e o gravador resolveria.

Poste seu arquivo

Att
Ir para o topo Ir para baixo
Xanel




Mensagens : 21
Data de inscrição : 22/10/2012

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 3:46 pm

Bom dia

Seguindo orientação do alexandrevba, planilha em:

sendspace.com/file/fol77q



Agradecido
Ir para o topo Ir para baixo
McJota




Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 48

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 4:07 pm

Olá, bom dia!
Se entendi direito, faça o seguinte:
Insira este código em um módulo:

Sub Valor()
Dim y As String
Dim x As Range
Dim j As Range
On Error GoTo erro
Application.EnableEvents = False
ActiveCell.Offset(0, -1).Select
Set x = ActiveCell
y = ActiveCell.Value
ThisWorkbook.Worksheets("Plan2").Activate
With Sheets("Plan2").Range("S1:S10")
Set c = .Find(y, Lookat:=xlWhole)
If Not c Is Nothing Then
c.Select
Set j = ActiveCell
Range("U" & j, "AD" & j).Select
Selection.Copy
ThisWorkbook.Worksheets("Plan1").Activate
ActiveCell.Offset(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, -3).Select
Application.EnableEvents = True
End If
End With
erro:
Exit Sub
End Sub

Na "Plan1" insira 1 botão e atribua essa macro á ele.
Ao digitar o valor na coluna "B" aperte "TAB" e em seguida o botão.

Abraço....
Ir para o topo Ir para baixo
Xanel




Mensagens : 21
Data de inscrição : 22/10/2012

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 4:44 pm

Bom dia

Agradeço ao McJota o código pedido, era exatamente isso que eu precisava. Vou pedir outra coisa mas se não der pra atender, fico agradecido do mesmo jeito. Tem como contornar o Tab, só apertando o botão. bounce

Abraços
Ir para o topo Ir para baixo
McJota




Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 48

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 4:53 pm

Caro Xanel.
Ao digitar em uma célula, enquanto nao apertar qualquer tecla "TAB", "ENTER" ou "SETAS", a célula continua ativa e o valor continua indefinido.
Coloquei "TAB" pois o código que lhe passei vai buscar o valor na célula anterior na mesma linha.
Poderia ser "ENTER", mas teria que modificar o código!
Onde tem:

ActiveCell.Offset(0, -1).Select
Set x = ActiveCell
y = ActiveCell.Value

Mude para:

ActiveCell.Offset(-1, 0).Select
Set x = ActiveCell
y = ActiveCell.Value

Com isso ficaria "ENTER" + botão!

Abraço....
Ir para o topo Ir para baixo
Xanel




Mensagens : 21
Data de inscrição : 22/10/2012

Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  EmptyDom Out 28, 2012 5:12 pm

Bom dia

Fiz a alteração sugerida, agradeço a ajuda Very Happy
Ir para o topo Ir para baixo
Conteúdo patrocinado





Importar de plan2, uma linha  previamente  informada em plan1  Empty
MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Importar de plan2, uma linha  previamente  informada em plan1  Empty

Ir para o topo Ir para baixo
 
Importar de plan2, uma linha previamente informada em plan1
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» copiar plan1 na ultima linha vazia da plan2
» Importar Txt para excel vba problema
»  problema ao importar dados externos da web
» Importar base de dados de uma página WEB
» importar txt e manter dados

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: