Fråga : skriva ett fynd av nyckelordet och visa resultat överträffar in räknearket

Hi experter,

I önskar att göra en skriva/en makro överträffar in, var den söker för ett nyckel- uttrycker och visar därefter den i en cell.

Currently jag har enorm databas av kontakter, och jag önskar att köra ett sökande för nyckel- uttrycker skolar och visar därefter det i en sätta in. Så, om en cellhögstadium, nord skolar, den Sanktt grundskola för barn mellan 5 och 11 år etc. som den ska, kopiera det helt tillfredsställer av denna cell och förflutna det i en annan cell. Alla resultat kan klistras i en cell. hjälp för

Any skulle uppskattas väldeliga.

Thanks

Jedi " klar "

Svar : skriva ett fynd av nyckelordet och visa resultat överträffar in räknearket

Detta kodifierar retur stränga till C1 (eller till en VBA-variabel). Det låter dig ändra kolonnen till sökandet

Se fäst för att spara

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:

Explicit alternativ

Const strText som stränger = ”skolar”,

UnderColSearch_DelRows ()
    Dunkel rng1 som spänner
    Dunkel cel som spänner

    Dunkla strFirstAddress som stränger
    Dunkel lAppCalc som Long
    Dunkel strTmp som stränger
 

    'Få arbetet spänner från användare
    På felmeritförteckning därefter
    Uppsättning rng1 = Application.InputBox (”behaga valt spänner för att söka för”, & strText, ”användaren spänner valet”, Selection.Address (0, 0), 8),
    På fel GoTo 0
    Om rng1 är ingenting därefter, gå ut suben



    Med applikation
        lAppCalc =. Beräkning
        .ScreenUpdating = falskt
        . Beräkning = xlCalculationManual
    Avsluta med


    Uppsättning cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext som, är falska)

    Om inte cel är ingenting därefter
        strFirstAddress = cel. Tilltala
        strTmp = cel. Värdera
        Gör
            Uppsättning cel = rng1.FindNext (cel)
         Om strFirstAddress <> cel. Tilltala därefter strTmp = strTmp & vbCrLf & cel. Värdera
        Kretsa stundstrFirstAddress <> cel. Tilltala
    Avsluta om
    

    Med applikation
        .ScreenUpdating = True
        . Beräkning = lAppCalc
    Avsluta med
    
    MsgBox strTmp
    [c1]. Värdera = strTmp

Avsluta suben
Andra lösningar  
 
programming4us programming4us