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ä?
Moni haku kaava vba
jaakkoko
3
490
Vastaukset
- näinyhtäkkiä
käydä siirtämässä ne muutamat varaosat kaappiin jossa "kaimat" ovat?
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 Functionkunde 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 Functionkorvaa 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ä.
Luetuimmat keskustelut
- 544806
Vain vasemmistolaiset rakennemuutokset pelastavat Suomen
Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot1754319- 1343977
- 673922
Purra on kantanut vastuuta täyden kympin arvoisesti
Luottoluokituksen lasku, ennätysvelat ja ennätystyöttömyys siitä muutamana esimerkkinä. Jatkakoon hän hyvin aloittamaans493711Persut huutaa taas: "kato! muslimi!"
Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe793528- 993074
- 542905
- 252736
Korjaamo suositus
Vahva suositus Kumpulaisen korjaamolle vanhan 5-tien varrelta! Homma pelaa ja palvelu ykköslaatuista. Mukavaa kun tuli p172514