Aloittelija tarvihtis hieman jelppiä!
Pitäisi tehdä Exceliin hakukone, joka etsii sarakkeesta annetulla hakuehdolla tuloksia. Muuten homma onnistuisi melkein jopa itseltäkin, mutta ongelmana on se, että haun pitäisi tunnistaa myös sellaisia solujen arvoja, jotka sisältävät hakusanan lisäksi jotain muutakin.
Siis esim. hakusanalla "Pekka" pitäisi löytyä myös solu "Virtanen Pekka". Ja esim. haku "auto" löytäisi myös solun "henkilöauto"
Tämä toiminto on siis ihan sama, jonka saa käyttöön perus ctrl + f -haullakin, mutta tarttisin siihen koodin, koska hyödytäisin sitä vähän muillakin tavoin.
Heippa diesel987!
oheisesta esimerkistä saat väänneltyä mieleisesi viritelmän...
Private hakusana As String 'General osioon
Private Sub CommandButton1_Click()
hakusana = "Matti" 'esim.
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Select
ReDim Taulu(UsedRange.Cells.SpecialCells( _
xlCellTypeLastCell).Column, _
UsedRange.Cells.SpecialCells( _
xlCellTypeLastCell).Row) As Boolean
Dim solu
For Each solu In Selection
If InStr(solu.Text, hakusana) > 0 Then
Taulu(solu.Column, solu.Row) = True
End If
Next
Cells(1, 1).Select
Application.ScreenUpdating = True
Dim Tulos As String
For i = LBound(Taulu, 1) To UBound(Taulu, 1)
For j = LBound(Taulu, 2) To UBound(Taulu, 2)
If Taulu(i, j) Then
Tulos = Tulos + _
"sarakkesta " + CStr(i) + _
" riviltä " + CStr(j) + vbCrLf
End If
Next j
Next i
If Tulos <> "" Then
Tulos = "Hakuehtoa vataava arvo löytyi" _
+ vbCrLf + Tulos
MsgBox Tulos
Else
MsgBox _
"Yhtään hakuehtoa vastaavaa arvoa ei löytynyt!"
End If
Erase Taulu: Tulos = "": hakusana = ""
End SubKiitos! Sain askarreltua..
Aihe on jo aika vanha, joten et voi enää vastata siihen.