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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Importar de plan2, uma linha previamente informada em plan1

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Xanel



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

MensagemAssunto: Importar de plan2, uma linha previamente informada em plan1    Dom 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.

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Dom 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



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

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

Bom dia

Seguindo orientação do alexandrevba, planilha em:

sendspace.com/file/fol77q



Agradecido
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



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

MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Dom 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....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



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

MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Dom 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



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

MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Dom 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....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



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

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

Bom dia

Fiz a alteração sugerida, agradeço a ajuda Very Happy
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Importar de plan2, uma linha previamente informada em plan1    Hoje à(s) 10:15 pm

Voltar ao Topo Ir em baixo
 
Importar de plan2, uma linha previamente informada em plan1
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» widgets para toda linha wave. Espero que cutão :D
» [TUTORIAL] Flashplayer 11.0.1.152 em toda linha Wave !
» Atras da linha vermelha
» [Resolvido] Menu com linha é possivel?
» [resolvido]draw_rectangle, como engrossar a linha ao se desenhar o retângulo?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: