Cuestión : Excel Macro/VB para buscar las hojas de trabajo múltiples

Hola todos, necesidad del

I una cierta ayuda en el script

Following de Excel Macro/VB es mi

I del requisito tiene un libro de trabajo del sobresalir con 7 hojas de trabajo, las hojas de trabajo 1-6 para tener algún numbers.

Worksheet 7 tienen lista de números que los mayo o mayo no estar en las hojas de trabajo 1-6.

I quieran para escribir un código de VB/macro, donde en él toma una columna particular en la hoja 7 como entrada a buscar y a buscar para eso numera en la hoja 1-6

If que el resultado de la búsqueda es verdad entonces pone al día la hoja 7 con la localización del resultado de la búsqueda y si no entonces encontrado destacar la célula en la hoja 7 con ayuda de algún colour.

Any en este appreciated. class= del

Respuesta : Excel Macro/VB para buscar las hojas de trabajo múltiples

Hola, intenta este macro.

Esto asume que la “hoja 7” es la hoja pasada en su libro de trabajo, y usted quiere buscar el resto de las hojas de trabajo.

Cambiar el strColumn al colum en la hoja 7 para la cual tiene los números a buscar.
Cambiar el intStartRow al número de la fila en la hoja 7 donde los números comienzan.
Cerciorarse de le para tener una columna en blanco para los resultados en el lado derecho de la columna con los números.

Respetos,

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

FindNumbers secundario ()
    strColumn = “A”
    intStartRow = 1
    Fijar el objLastSheet = las hojas (Sheets.Count)
    Para el intRow = el intStartRow a objLastSheet.Cells (65536, strColumn). Extremo (xlUp). Fila
        strValue = objLastSheet.Cells (intRow, strColumn). Valor
        strFoundSheet = ""
        Para el intSheet = 1 a Sheets.Count - 1
            Hojas (intSheet). Activar
            Fijar el objCell = Cells.Find (qué: =strValue, después: =Sheets (intSheet). Células (1, 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
            Si no el objCell entonces no es nada
                strFoundSheet = hojas (intSheet). Nombre
                Salir para
            Terminar si
        Después
        Si "" <> del strFoundSheet entonces
            objLastSheet.Cells (intRow, strColumn). Compensación (0, 1).Value = strFoundSheet
        
            objLastSheet.Cells (intRow, strColumn). Compensación (0, 1).Interior.Color = 255
        Terminar si
    Después
    objLastSheet.Activate
Submarino del extremo
Otras soluciones  
 
programming4us programming4us