Jump to content

Ganhe $$$ escrevendo tutoriais para nós!


Foto

formula ou macro para retornar valor de uma faixa de numeros

sequencia




  • Faça login para responder
2 respostas neste tópico

#1 lizvcolangelo

lizvcolangelo
  • Participante
  • 2 mensagens

Publicado 18 July 2012 - 06:34 PM

Plan.jpg Ola,


Preciso de uma formula que me retorne o nome do cliente que corresponde a faixa de numeração , com o numero inicial em 1 celula e o final em outra, sem ter que
fazer centenas de funcoes SE , porque foi somente este meio que encontrei. Segue planilha exemplo abaixo

A Etiqueta Cliente ou caixa 751231700 0 etq inicial etiq final cliente 751722151 751730904 Sebrae 749982541 750690024 IOB Informações - Agua Branca 751231719 751232904 Alejandro Jorge

Na linha A2 , terei que digitar o numero da etiqueta e linha B2 tera que aparecer o nome do cliente que estara dentro da faixa de numeraçao na tabela abaixo da etiqueta inicial e final
por exemplo: se digitar um numero entre 749982541 e 750690024 aparecerá na linha B2 IOB Informaçoes.
Nào gostaria de fazer funçoes logicas SE para cada linha da tabela mesmo porque há limitaçoes de SEs aninhados. e também não tenho como construir uma tabela gigante com todas numerções e ao lado
repetir o numero do cliente.

Qualquer ajuda é bem vinda , Obrigada

Lizandra

Editado por lizvcolangelo, 18 July 2012 - 06:40 PM.
''





#2 osvaldomp

osvaldomp
  • Participante
  • 381 mensagens

Publicado 18 July 2012 - 08:56 PM

Instale o código abaixo no módulo da planilha de interesse, assim:

1. copie o código daqui
2. clique com o direito na guia da planilha e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! Alt+Q para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Or Target.Count > 1 Then Exit Sub
Dim LR As Long, num As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For num = 8 To LR
If Target.Value >= Cells(num, 1) And Target.Value <= Cells(num, 2) Then
Target.Offset(, 1) = Cells(num, 3)
Exit For
End If
Next num
End Sub
Osvaldo

#3 lizvcolangelo

lizvcolangelo
  • Participante
  • 2 mensagens

Publicado 19 July 2012 - 01:00 AM

Deu certo...muito obrigada






Tópicos Relacionados Collapse


Tópicos com palavra-chave: sequencia





Ganhe $$$ escrevendo tutoriais para nós!