Pergunta : Classificando a Excel o manual de instruções às folhas diferentes

Eu tenho um livro de trabalho primar, a primeira folha sou chamado Mestre, outras 12 folhas sou janeiro-dezembro.  O primeiro colum 'A " no mestre é chamado nome do local, e a segunda coluna “b” é chamada instala a data.  Eu preciso os nomes e instalo datas para aparecer nos meses sheets.

Ex que do respecetd eu tenho 100 locais alistados com vária data em janeiro como eu começ todos os locais e instalo as datas feitas em janeiro para povoar no janeiro sheet class= do

Resposta : Classificando a Excel o manual de instruções às folhas diferentes

Uma solução alternativa poderia ser ter um macro qualquer outra coisa semelhante um para atualizar as folhas mensais enquanto os dados são incorporados à folha mestra.

Se você já tem muitos dados a transferir você pode usar o laço (de que é comentado para fora) para transferir todos os dados existentes. Substituir ActiveCell.Row - 1 com i e removê-lo 'antes para e em seguida.

Este código está na lima de amostra.

Considerações,
Lacónico
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Worksheet_Change secundário confidencial (alvo de ByVal como a escala)

    Escurecer i como por muito tempo, LastRow como por muito tempo, lRow como por muito tempo
    Escurecer Ws1 como a folha, Ws2 como a folha
    Escurecer o iMonth como a corda
    Se não cruzar (escala (“B: B”), alvo) não é nada então
        Ajustar Ws1 = folhas (o “mestre”)
        LastRow = Ws1.Range (“A65536”). Extremidade (xlUp). Fileira
        'Para i = 2 a LastRow
            iMonth = formato (folhas (“mestre”). Pilhas (ActiveCell.Row - 1, 2), “mmm”)
            No erro ErrorHandler empreendedores
            Ajustar Ws2 = folhas (o iMonth)
            'encontrar a primeira fileira vazia na folha do mês
            lRow = Ws2.Cells (Rows.Count, 1). Extremidade (xlUp). Offset (1, 0). Fileira
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Em seguida i
    Terminar se
    O submarino da saída 'evita o alimentador do erro
ErrorHandler:
   'A folha do mês não existe!
Submarino da extremidade
Outras soluções  
 
programming4us programming4us