Pergunta : Excel Macro/VB para procurarar folhas múltiplas

Olá! todos, necessidade do

I alguma ajuda no script

Following de Excel Macro/VB é meu

I da exigência tem um manual de instruções primar com 7 folhas, as folhas 1-6 para ter algum numbers.

Worksheet 7 têm a lista de números que podem ou não podem estar nas folhas que 1-6.

I querem escrever um código de VB/macro, onde nele pegue uma coluna particular na folha 7 como a entrada para procurarar e procurarar por aquele números na folha 1-6

If o resultado da busca é verdadeiro atualiza então a folha 7 com posição do resultado da busca e se não encontrado então destacar a pilha na folha 7 com ajuda de algum colour.

Any neste appreciated. class= do

Resposta : Excel Macro/VB para procurarar folhas múltiplas

Olá!, tenta este macro.

Isto supor que a “folha 7” é a última folha em seu manual de instruções, e você quer procurarar todas folhas restantes.

Mudar o strColumn ao colum na folha 7 que tem os números a procurarar para.
Mudar o intStartRow ao número da fileira na folha 7 onde os números começam.
Certificar-se de você ter uma coluna em branco para os resultados no lado righthand da coluna com os números.

Considerações,

Roubo.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

FindNumbers secundário ()
    strColumn = “A”
    intStartRow = 1
    Ajustar o objLastSheet = as folhas (Sheets.Count)
    Para o intRow = o intStartRow a objLastSheet.Cells (65536, strColumn). Extremidade (xlUp). Fileira
        strValue = objLastSheet.Cells (intRow, strColumn). Valor
        strFoundSheet = ""
        Para o intSheet = 1 a Sheets.Count - 1
            Folhas (intSheet). Ativar
            Ajustar o objCell = o Cells.Find (que: =strValue, em seguida: =Sheets (intSheet). Pilhas (1, 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
            Se não o objCell não é nada então
                strFoundSheet = folhas (intSheet). Nome
                Retirar para
            Terminar se
        Em seguida
        Se "" <> do strFoundSheet então
            objLastSheet.Cells (intRow, strColumn). Offset (0, 1). Valor = strFoundSheet
        Mais
            objLastSheet.Cells (intRow, strColumn). Offset (0, 1). Interior.Color = 255
        Terminar se
    Em seguida
    objLastSheet.Activate
Submarino da extremidade
Outras soluções  
 
programming4us programming4us