Find transportør ud fra postnummer i et interval

eks.
kolonne F  og  g
      1010    2599
      3200    3349
      4000    4200
Disse postnumre giver en transportør

      3350    3599
      4210    4500
      osv. giver næste transportør

Giver det mening?

Det er vel et spørgsmål om at indtaste postnr - evt. i en Userform - og så udføre en søgning?

Hvor er transportøren anført i forhold til intervallet?

Userformen kan ikke bruges grundet arkets opbygning. Brugeren skriver postnummeret i en celle. hvorefter intervallerne skal undersøges for at få transportøren udpeget.
Transportøren står i kolonne e, og udgør en selvstændig række over intervallet.
eks.

kolonne F  og  g
5  (tallet repræsentere et firmanavn i en database)
      1010    2599
      3200    3349
      4000    4200
Disse postnumre giver en transportør
6  (tallet repræsentere et firmanavn i en database)
      3350    3599
      4210    4500
      osv. giver næste transportør
Kan man sammensætte intervallerne i et range, og så foretage søgningne her?

Et primitivt løsningsforslag fra amatøren...:-)

Fra dit eksempel
E1 = 5
F2 = 1010
G2 = 2599
osv
E5 = 6
F6 = 3350
Osv

Indtast post nr i A2

Brug 10 celler én til hver leverandør indeholdende fomler som disse:
5: =HVIS(ELLER(OG($A$2>F2;$A$2<G2);OG($A$2>F3;$A$2<G3);OG($A$2>F4;$A$2<G4));$E$1;0)
6: =HVIS(ELLER(OG($A$2>F6;$A$2<G6);OG($A$2>F7;$A$2<G7);OG($A$2>F8;$A$2<G8));$E$5;0)

Og blot lav en sum på de 10 celler ved siden af postnummeret, så har du svaret...

Man kunne bygge en makro der kører hver gang et postnr bliver indtastet ...

I den kunne man lave en løkke der stepper gennem mulighederne, indtil at den finder et interval hvori den passer, og leverandør nr. skrives i cellen.

Forståeligt ..?

Bygger en model i morgen...

Sad og legede lidt ...

Her et stykke makro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
tel = 1
Cells(2, 2) = "Ikke fundet"
Post = Cells(1, 2)
Do While Cells(tel, 6) > 0
  Min = Cells(tel, 6)
  Max = Cells(tel, 7)
  If Post >= Min And Post <= Max Then
  Cells(2, 2) = Cells(tel, 5)
  End If
  tel = tel + 1
Loop
End If
End Sub

Den nok ikke kortest mulig ...

Taster du postnr. i a2, så vil den finde og skrive transportør i b2, hvis ikke den finder noget får du beskeden "Ikke fundet"

Jeg har lagt min model på http://www.spejderi.dk/postnr.zip

Søren

Som lovet:
Rem Postnr indtastes i A1
Rem evt. Transportør vises i B1
Rem ===========================
Dim sidsteRæk
Private Sub Worksheet_Change(ByVal Target As Range)
    sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
    With Target
        If .Address = "$A$1" And IsNumeric(.Value) = True Then
            findTransportør .Value
        End If
    End With
End Sub
Private Sub findTransportør(pNr)
Dim trNr
    For ræk = 1 To sidsteRæk
Rem Gem transportørNr, hvis Kol E udfyldt
        If Cells(ræk, 5) <> "" Then
            trNr = Cells(ræk, 5)
        Else
            If pNr >= Cells(ræk, 6) And pNr <= Cells(ræk, 7) Then
                Cells(1, 2) = trNr
                Exit Sub
            End If
        End If
    Next ræk
    Cells(1, 2) = "?"
End Sub

-> supertekst
koden finder ikke transportøren - var det en ide at du fik en kopi af arket - det vil tydeliggøre problemstillingen.

Ja - det ville være OK -> pb@supertekst-it.dk

Må jeg kigge med ... så jeg ser, hvor jeg har misforstået ... post@sb-online.dk

Rettet lidt ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
  tel = 8
  Cells(2, 2) = "Ikke fundet"
  Cells(3, 2) = ""
  Post = Cells(1, 2)
  sidst = ActiveCell.SpecialCells(xlLastCell).Row
  Do While tel <= sidst
    Min = Cells(tel, 6)
    Max = Cells(tel, 7)
    If Max = "" And Min <> "" Then
    trans = Cells(tel, 5)
    firma = Min
    End If
    If Post >= Min And Post <= Max Then
      Cells(2, 2) = trans
      Cells(3, 2) = firma
    Exit Sub
    End If
    tel = tel + 1
  Loop
End If
End Sub

Jeg skal live have testet jeres versioner - har ikke nået det, da vi i dag fik gravet vores fiberkabler over - vender tilbage snarest.

OK..

Jeg har afprøvet begge versioner og begge løser opgaven til fulde. Så det vil være fint om I begge lægger et svar. :O)
Tak for hjælpen og god weekend.

Fint - selv tak og i lige måde....

Godt at høre ...

... også til dig