| 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... |
| | Importar de plan2, uma linha previamente informada em plan1 | |
| | Autor | Mensagem |
---|
Xanel
Mensagens : 21 Data de inscrição : 22/10/2012
| Assunto: 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.
| |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
| | | Xanel
Mensagens : 21 Data de inscrição : 22/10/2012
| Assunto: 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 | |
| | | McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: 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.... | |
| | | Xanel
Mensagens : 21 Data de inscrição : 22/10/2012
| Assunto: 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. Abraços | |
| | | McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: 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....
| |
| | | Xanel
Mensagens : 21 Data de inscrição : 22/10/2012
| Assunto: 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 | |
| | | Conteúdo patrocinado
| Assunto: Re: Importar de plan2, uma linha previamente informada em plan1 | |
| |
| | | | Importar de plan2, uma linha previamente informada em plan1 | |
|
Tópicos semelhantes | |
|
| Permissões neste sub-fórum | Não podes responder a tópicos
| |
| |
| |
|