Questione : Fascicolando ad Excel libro di esercizi agli strati differenti

Ho un libro di lavoro di supremazia, il primo strato sono denominato Master, gli altri 12 strati sono gennaio-dicembre.  Il primo colum 'A " sul padrone è denominato nome del luogo e la seconda colonna “b„ è denominata installa la data.  Ho bisogno dei nomi ed installo le date per rivelare sui mesi sheets.

Ex che del respecetd ho 100 luoghi elencati con la varia data su gennaio come ottengo tutti i luoghi ed installo le date fatte in gennaio per popolare su gennaio sheet class= del

Risposta : Fascicolando ad Excel libro di esercizi agli strati differenti

Una soluzione alternativa potrebbe essere di avere una macro qualcosa di simile una per aggiornare gli strati mensili mentre i dati sono digitati nello strato matrice.

Se già avete molti dati da trasferire potete usare il ciclo (che è commentato fuori) per trasferire tutti i dati attuali. Sostituire ActiveCell.Row - 1 con la i e rimuovere 'prima per e dopo.

Questo codice è nella lima di campione.

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

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)

    Oscurare la i come lungamente, LastRow come lungamente, lRow come lungamente
    Oscurare Ws1 come manuale, Ws2 come manuale
    Oscurare il iMonth come stringa
    Se non intersecare (gamma (“B: La B„), obiettivo) allora è niente
        Regolar Ws1 = manuali (“padrone„)
        LastRow = Ws1.Range (“A65536„). Estremità (xlUp). Fila
        'Per i = 2 a LastRow
            iMonth = disposizione (manuali (“padrone„). Cellule (ActiveCell.Row - 1, 2), “mmm„)
            Sull'errore ErrorHandler di avanzamento
            Regolar Ws2 = manuali (iMonth)
            'trovare la prima fila vuota in strato di mese
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Contrappeso (1, 0). Fila
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Dopo i
    Concluder se
    Il sommergibile dell'uscita 'evita l'alimentatore di errori
ErrorHandler:
   'Lo strato di mese non esiste!
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us