Cuestión : Clasificando a Excel el libro de trabajo a diversas hojas

Tengo un libro de trabajo del sobresalir, la primera hoja me llamo Master, las otras 12 hojas estoy enero-diciembre.  El primer colum 'A " en amo se llama nombre del sitio, y se llama la segunda columna “b” instala la fecha.  Necesito los nombres e instalo fechas para aparecer en los meses sheets.

Ex del respecetd que tengo 100 sitios enumerados con la varia fecha el enero cómo consigo todos los sitios e instalo las fechas hechas en enero para poblar en el enero sheet class= del

Respuesta : Clasificando a Excel el libro de trabajo a diversas hojas

Una solución alternativa podría ser tener una macro algo similar una para poner al día las hojas mensuales mientras que los datos se incorporan a la hoja principal.

Si usted tiene ya muchos datos a transferir usted puede utilizar el lazo (que se comenta hacia fuera) para transferir todos los datos existentes. Substituir ActiveCell.Row - 1 con i y quitarlo 'antes para y después.

Este código está en el archivo de muestra.

Respetos,
Conciso
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Worksheet_Change secundario privado (blanco de ByVal como gama)

    Amortiguar i como de largo, LastRow como de largo, lRow como de largo
    Amortiguar Ws1 como hoja de trabajo, Ws2 como hoja de trabajo
    Amortiguar el iMonth como secuencia
    Si no intersecarse (la gama (“B: B”), blanco) entonces no es nada
        Fijar Ws1 = las hojas de trabajo (el “amo”)
        LastRow = Ws1.Range (“A65536”). Extremo (xlUp). Fila
        'Para i = 2 a LastRow
            iMonth = formato (hojas de trabajo (“amo”). Células (ActiveCell.Row - 1, 2), “mmm”)
            En el error ErrorHandler indicado
            Fijar Ws2 = las hojas de trabajo (el iMonth)
            'encontrar la primera fila vacía en hoja del mes
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Compensación (1, 0). Fila
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Después i
    Terminar si
    El submarino de la salida 'evita a tratante del error
ErrorHandler:
   ¡La 'hoja del mes no existe!
Submarino del extremo
Otras soluciones  
 
programming4us programming4us