Notifications
Clear all

Resultado da fórmula em mais de uma linha

9 Posts
2 Usuários
0 Reactions
1,580 Visualizações
(@bruno1214)
Posts: 31
Eminent Member
Topic starter
 

Bom dia Pessoal!

Veja se vocês conseguem me ajudar, estou precisando de uma fórmula, que me de o valor em mais de 1 linha. Exemplo:

Tenho na base, a rota PL, e nesta rota temos em 5 linhas, 5 nome de lojas, e preciso que quando eu digite a rota PL, ela puxe as 5 linhas na planilha! Qual fórmula devo usar neste caso?

Ex:

-BASE-
Rota - Lojas
- FL --- Loja 1
-------- Loja 2
-------- Loja 3
-------- Loja 4

E em outra pasta de trabalho, preciso que quando eu digite a sigla da rota, no caso FL, ele me retorne o nome das 4 lojas!

Aguardo,
Obrigado!

 
Postado : 24/04/2015 7:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Enquanto o pessoal não responde, poste seu arquivo modelo compactado!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/04/2015 7:27 am
(@bruno1214)
Posts: 31
Eminent Member
Topic starter
 

Segue planilha!

 
Postado : 24/04/2015 7:53 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dai!!

Uma pergunta em seu arquivo original, tem as linhas em branco, na coluna Rota?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/04/2015 7:18 am
(@bruno1214)
Posts: 31
Eminent Member
Topic starter
 

Sim!

 
Postado : 27/04/2015 9:36 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Só serve se for via formula?
Esse código faz o que você solicitou.

Sub AleVBA_15541()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Worksheets("Base").Activate
With Range("A1:A" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
Worksheets("Plan2").Activate
With Range("B1:B" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
    Range("C2").Value = "=VLOOKUP(B2,Base!A:B,2,0)"
    Range("C2").AutoFill Destination:=Range("C2:C" & Cells(Rows.Count, 2).End(xlUp).Row)
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/04/2015 12:04 pm
(@bruno1214)
Posts: 31
Eminent Member
Topic starter
 

Alexandre, boa tarde!

Tenho pouco conhecimento em Visual Basic, coloquei a fórmula no módulo porem não teve resultado, qual a maneira correta de usar ela na planilha?

Aguardo

 
Postado : 27/04/2015 1:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se as macros estiverem habilitadas é só apertar o botão!!
https://support.office.com/pt-br/articl ... fe4f860b12

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/04/2015 2:19 pm
(@bruno1214)
Posts: 31
Eminent Member
Topic starter
 

Ah sim, mas de qualquer forma, a fórmula ou código que eu preciso é diferente. Seria assim:

Na planilha de Base, eu tenho a coluna "a" com os nomes das rotas, e na coluna "b" terei o nome das lojas uma embaixo da outra referente a primeira sigla.
Ex:
A.................B
1 - Rota..... - Lojas
2 - SK..........Loja 1
3 - .............Loja 2
4 - .............Loja 3
5 - .............Loja 4
6 - .............Loja 5
7 - FL..........Loja 9
8 - .............Loja 10

Eu precisaria que quando eu digitasse a rota SK, ela me puxasse na outra planilha, a loja 1 até a 5, que é até onde começa a outra, e assim quando eu digitar a outra rota, no caso FL, ela me resultasse nas linhas uma abaixo da outra, as lojas 9 a 10.

Não sei se ficou mais fácil para entendimento, ou se isso é possível.

 
Postado : 28/04/2015 4:18 am