Pergunta : script um achado da palavra-chave e indicar resultados primam dentro o spreadsheet

Olá! os peritos,

I querem fazer um certificado/macro primam dentro onde procurara por uma palavra chave e a indica então em uma pilha. o

Currently eu tenho a base de dados enorme dos contatos e eu quero funcionar uma busca para a escola da palavra chave e indicá-la então em um campo. Assim se uma High School da pilha, a escola norte, a escola preliminar etc. de Saint ele copiarão os índices inteiros destes pilha e passado ele em uma outra pilha. Todos os resultados podem ser colados em uma pilha. a ajuda do

Any seria apreciada extremamente.

Thanks

Jedi class= do

Resposta : script um achado da palavra-chave e indicar resultados primam dentro o spreadsheet

Este código retorna a corda ao C1 (ou a uma variável de VBA). Deixa-o mudar a coluna à busca

Ver a lima unida

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:

Opção explícita

strText de Const como a corda = “escola”

ColSearch_DelRows secundário ()
    Rng1 não ofuscante como a escala
    Cel não ofuscante como a escala

    strFirstAddress não ofuscantes como a corda
    lAppCalc não ofuscante como por muito tempo
    strTmp não ofuscante como a corda
 

    'Começ a escala de trabalho do usuário
    No erro recomeçar em seguida
    Ajustar rng1 = Application.InputBox (“selecionar por favor a escala para procurarar por” & o strText, do “da escala usuário a seleção”, Selection.Address (0, 0), 8)
    No erro 0 empreendedores
    Se rng1 não é nada então retirar o submarino



    Com aplicação
        lAppCalc =. Cálculo
        .ScreenUpdating = falso
        . Cálculo = xlCalculationManual
    Extremidade com


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

    Se não o cel não é nada então
        strFirstAddress = cel. Endereço
        strTmp = cel. Valor
        Fazer
            Ajustar cel = rng1.FindNext (o cel)
         Se strFirstAddress <> cel. Endereçar então o strTmp = o strTmp & o vbCrLf & o cel. Valor
        Dar laços quando os strFirstAddress <> cel. Endereço
    Terminar se
    

    Com aplicação
        .ScreenUpdating = retificam
        . Cálculo = lAppCalc
    Extremidade com
    
    strTmp de MsgBox
    [c1]. Valor = strTmp

Submarino da extremidade
Outras soluções  
 
programming4us programming4us