Tämä on varmaan iisi mutta, pitäisi saada
solun "valitse avattavasta valikosta" antamalle
arvolle useampi tulos.
Esim. Jos Soluun valitaan Rane ja Ranella on seitsemän kaveria, kaikki pitäisi saada haetuksi.
Liisalla voi olla vain yksi kaveri
Matriisi muotoa
a b
1Rane Pekka
2Rane Ville
3Rane Outi
4Liisa Kaisa
PHAKU käsittääkseni tuo vain yhden arvon.
solun "valitse avattavasta valikosta" antamalle
arvolle useampi tulos.
Esim. Jos Soluun valitaan Rane ja Ranella on seitsemän kaveria, kaikki pitäisi saada haetuksi.
Liisalla voi olla vain yksi kaveri
Matriisi muotoa
a b
1Rane Pekka
2Rane Ville
3Rane Outi
4Liisa Kaisa
PHAKU käsittääkseni tuo vain yhden arvon.
Vastaukset 1
Vanhimmat
tee nappi ja liitä koodi ja muokkaa itsellesi sopivaksi
Sub EtsiKaikki()
Dim haettava As String
Dim löydetyt As Range
Dim hakutulos As String
Dim etsieka As String
Dim laskuri As Integer
Dim vika As Double
vika = Range("A65536").End(xlUp).Row
haettava = InputBox("Anna haettavan henkilön nimi")
If haettava "" Then
Range("A1").Select
With Range("A1:A" & vika)
Set löydetyt = .Find(What:=haettava, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not löydetyt Is Nothing Then
etsieka = löydetyt.Address
Do
laskuri = laskuri 1
hakutulos = hakutulos & löydetyt.Offset(0, 1) & vbLf
Set löydetyt = .FindNext(löydetyt)
Loop While Not löydetyt Is Nothing And löydetyt.Address etsieka
hakutulos = hakutulos & vbLf & laskuri & " vastinetta '" & haettava & "' löytyi."
Else
hakutulos = "Yhtään vastinetta '" & haettava & "' ei löytynyt."
End If
End With
MsgBox hakutulos, vbInformation, "Etsi kaikki"
End If
End Sub