Vraag : het manuscript een vondst van sleutelwoord en vertoningsresultaten blinkt binnen spreadsheet uit

Hallo willen de Deskundigen,

I een manuscript/een macro doen uitblinken binnen waar het naar een sleutelwoord zoekt en dan het in een cel toont.

Currently heb ik reusachtig gegevensbestand van contacten en ik wil een onderzoek naar sleutelwoordschool in werking stellen en dan het tonen op een gebied. Zo als zullen een een celMiddelbare school, een het noordenschool, Lage school enz. van Heilige het de volledige inhoud van dit cel en verleden het in een andere cel kopiëren. Alle resultaten kunnen in één cel worden gekleefd. de hulp

Any zeer gewaardeerd worden.

Thanks

Jedi

Antwoord : het manuscript een vondst van sleutelwoord en vertoningsresultaten blinkt binnen spreadsheet uit

Deze code keert het koord aan terug C1 (of aan een variabele VBA). Het laat u de kolom in onderzoek veranderen

Zie dossier in bijlage

hth

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Expliciete optie

Const strText als Koord = „school“

Sub ColSearch_DelRows ()
    Schemerige rng1 als Waaier
    Schemerige cel als Waaier

    Schemerige strFirstAddress als Koord
    Schemerige lAppCalc zoals lang
    Schemerige strTmp als Koord
 

    'Krijg werkende waaier van gebruiker
    Op Fout hervat daarna
    Plaats rng1 = Application.InputBox („tevreden uitgezochte waaier te zoeken naar“ & strText, „de waaierselectie van de Gebruiker“, Selection.Address (0, 0), 8)
    Op Fout GoTo 0
    Als rng1 niets toen is ga Sub weg



    Met Toepassing
        lAppCalc =. Berekening
        .ScreenUpdating = Vals
        . Berekening = xlCalculationManual
    Eind met


    Vastgesteld cel = rng1.Find (strText, rng1.Cells (Valse rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext,)

    Als niet cel dan niets is
        strFirstAddress = cel. Adres
        strTmp = cel. Waarde
        
            Plaats cel = rng1.FindNext (cel)
         Als strFirstAddress <> cel. Adres toen strTmp = strTmp & vbCrLf & cel. Waarde
        Lijn terwijl strFirstAddress <> cel. Adres
    Eind als
    

    Met Toepassing
        .ScreenUpdating = Waar
        . Berekening = lAppCalc
    Eind met
    
    MsgBox strTmp
    [c1]. Waarde = strTmp

Sub van het eind
Andere oplossingen  
 
programming4us programming4us