Moni haku kaava vba

jaakkoko

Minulla työkirjassa Taul2 data alue, A:I830. 1 rivillä on varaosakaapin NIMI.

Tein nauhoittamalla etsintä kaavan, laitin kyselyn msgoxiin, millä annetaan haku arvo, Nyt homma toimii jos on vain yksi saman niminen, mutta tiedän muutaman saman numeroisen varaosan sijaitsevan 3:SSA erikaapissa. Kuinka saisin tehtyä ns. listauksen tähän msgboxiin. Nyt se kertoo minulle vain tuon A1 olevan arvon. Haluaisin sen kuitenkin ilmoittavan, ESIM A1, C1 ja D4 kaapeissa on kyseisiä teriä?

3

478

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • näinyhtäkkiä

      käydä siirtämässä ne muutamat varaosat kaappiin jossa "kaimat" ovat?

      • kunde

        taulukon moduuliin...
        nyt hakee solun K1 arvoja sarakkeista A-I ja ilmoittaa solun osoitteen, jos haluat että palauttaa sen ekan rivin kaapin nimen niin muutellaan sitten

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim tulos As String
        On Error Resume Next
        If Not Intersect(Target, Range("K1")) Is Nothing Then
        tulos = EtsiJaNäytä(Range("K1"), Range("A:I")).Address
        If tulos = "" Then
        MsgBox "ei löytynyt!"
        Else
        MsgBox tulos
        End If
        End If
        End Sub

        ja moduuliin...

        Function EtsiJaNäytä(Hakuehto As Variant, HakuAlue As Range) As Range
        Dim solu As Range
        Dim EkaOsoite As String

        With HakuAlue
        Set solu = .Find( _
        What:=Hakuehto, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False)
        If Not solu Is Nothing Then
        Set EtsiJaNäytä = solu
        EkaOsoite = solu.Address
        Do
        Set EtsiJaNäytä = Union(EtsiJaNäytä, solu)
        Set solu = .FindNext(solu)
        Loop While Not solu Is Nothing And solu.Address EkaOsoite
        End If
        End With
        End Function

      • kunde
        kunde kirjoitti:

        taulukon moduuliin...
        nyt hakee solun K1 arvoja sarakkeista A-I ja ilmoittaa solun osoitteen, jos haluat että palauttaa sen ekan rivin kaapin nimen niin muutellaan sitten

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim tulos As String
        On Error Resume Next
        If Not Intersect(Target, Range("K1")) Is Nothing Then
        tulos = EtsiJaNäytä(Range("K1"), Range("A:I")).Address
        If tulos = "" Then
        MsgBox "ei löytynyt!"
        Else
        MsgBox tulos
        End If
        End If
        End Sub

        ja moduuliin...

        Function EtsiJaNäytä(Hakuehto As Variant, HakuAlue As Range) As Range
        Dim solu As Range
        Dim EkaOsoite As String

        With HakuAlue
        Set solu = .Find( _
        What:=Hakuehto, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False)
        If Not solu Is Nothing Then
        Set EtsiJaNäytä = solu
        EkaOsoite = solu.Address
        Do
        Set EtsiJaNäytä = Union(EtsiJaNäytä, solu)
        Set solu = .FindNext(solu)
        Loop While Not solu Is Nothing And solu.Address EkaOsoite
        End If
        End With
        End Function

        korvaa aikaisempi koodi tällä ja näyttää kaappien nimet 1. riviltä
        taulukon moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim tulos As String
        Dim a As Variant
        Dim Kaapit As String
        On Error Resume Next
        If Not Intersect(Target, Range("K1")) Is Nothing Then
        tulos = EtsiJaNäytä(Range("K1"), Range("A:I")).Address
        If tulos = "" Then
        MsgBox "ei löytynyt!"
        Else
        a = Split(tulos, ",")
        For i = 0 To UBound(a)
        Kaapit = Kaapit & Range(Mid(a(i), 2, 1) & 1) & vbNewLine
        Next
        MsgBox Kaapit
        End If
        End If
        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä sä pelkäät

      Ettei tää etene?
      Ikävä
      101
      3761

    2. Satuit vain olemaan

      Ensimmäinen joka avasi minussa sen nähdyksi ja rakastetuksi tulemisen puolen. Pitäisi vain muistaa että et ole ainoa. Se
      Ikävä
      48
      2691

    3. Vieläkö toivot, että kuulisit

      Minusta? Vai suutuitko kun en pystynyt vastaamaan sinulle?
      Ikävä
      114
      2519

    4. 24/7 sinä mielessä, ihan jatkuvalla syötöllä

      Aamulla herätessä, päivällä melkein nonstop, illalla nukkumaan mennessä, öisin herätessä. Mikä viddu tässä on 🤣
      Ikävä
      39
      2018

    5. Jotain pitää nyt keksiä että sinut näkisi

      Ensiviikolla viimeistään. Tälle on pakko saada kunnon piste tai sitten aloitetaan loppuelämä yhdessä, tulen hulluksi muu
      Ikävä
      30
      1797

    6. Mulla tulee vaan niin

      Paha olo siitä mitä teidän välillä on. Vaikka se on sun päätös mitä haluat. Tuntuu että menetän jotakin vaikka tiedän et
      Ikävä
      22
      1571

    7. Rakastan sua

      Tänäänkin, eilenkin, varmaan huomennakin..
      Ikävä
      27
      1542

    8. En tunne, en ymmärrä

      enkä muista 😱
      Ikävä
      22
      1348

    9. Mitkä olivat viimeiset sanasi ikävoinnin kohteellesi

      Ja milloin? Mitä olisit sanonut jos olisit tiennyt että ne jäävät viimeisiksi -ainakin toistaiseksi?
      Ikävä
      70
      1295

    10. Olikohan se

      Kuitenkin niin, että kiinnostuit minusta ihan tosissaan. Loukkaannuit, kun en ollutkaan valmis tapaamaan sinua.. Pelkäsi
      Ikävä
      8
      1281
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt