Cuestión : script un hallazgo de la palabra clave y exhibir los resultados adentro sobresalen la hoja de balance

Hola los expertos,

I quieren hacer una escritura/una macro adentro sobresalen donde busca para una palabra clave y después la exhibe en una célula. el

Currently tengo base de datos enorme de contactos y quiero funcionar con una búsqueda para la escuela de la palabra clave y después exhibirla en un campo. Tan si una High School secundaria de la célula, la escuela del norte, la escuela primaria etc del santo él copian el contenido entero de esta célula y pasado él en otra célula. Todos los resultados se pueden pegar en una célula. la ayuda del

Any sería agradecida grandemente.

Thanks

Jedi class= del

Respuesta : script un hallazgo de la palabra clave y exhibir los resultados adentro sobresalen la hoja de balance

Este código vuelve la secuencia a C1 (o a una variable de VBA). Le deja cambiar la columna a la búsqueda

Ver el archivo atado

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:

Opción explícita

strText de Const como secuencia = “escuela”

ColSearch_DelRows secundario ()
    Rng1 dévil como gama
    Cel dévil como gama

    strFirstAddress déviles como secuencia
    lAppCalc dévil como de largo
    strTmp dévil como secuencia
 

    'Conseguir la gama de trabajo de usuario
    En error reasumir después
    Fijar rng1 = Application.InputBox (“seleccionar por favor la gama para buscar para” y el strText, “selección de la gama del usuario”, Selection.Address (0, 0), 8)
    En el error 0 indicado
    Si rng1 no es nada entonces salir el submarino



    Con el uso
        lAppCalc =. Cálculo
        .ScreenUpdating = falso
        . Cálculo = xlCalculationManual
    Extremo con


    Fijar cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext, falsos)

    Si no el cel entonces no es nada
        strFirstAddress = cel. Dirección
        strTmp = cel. Valor
        Hacer
            Fijar cel = rng1.FindNext (el cel)
         Si strFirstAddress <> cel. Tratar entonces el strTmp = strTmp y vbCrLf y cel. Valor
        Colocar mientras que los strFirstAddress <> cel. Dirección
    Terminar si
    

    Con el uso
        .ScreenUpdating = verdad
        . Cálculo = lAppCalc
    Extremo con
    
    strTmp de MsgBox
    [c1]. Valor = strTmp

Submarino del extremo
Otras soluciones  
 
programming4us programming4us