Fråga : Sortering som överträffar arbetsboken till olikt, täcker

Jag har ett överträffaarbete att boka, första täcker kallas ledar-, de andra 12na täcker är januari - December.  Den första columen 'A " på ledar- kallas den kända platsen och understöder kolonn ”b” kallas installerar daterar.  Jag behöver namnger och installerar daterar för att visa upp på respecetdmånaderna sheets.

Ex som jag har 100 platser som listas med olikt för att datera på Januari hur jag får alla platser och att installera daterar gjort i Januari för att befolka på Januari sheet " klar "

Svar : Sortering som överträffar arbetsboken till olikt, täcker

En alternativ lösning kunde vara att ha en makro något något liknande denna att uppdatera månadstidningen täcker, som datan skrivs in i det ledar- täcker.

Om du har redan raddadata som ska överföras, du kan använda kretsa (som kommenteras ut), för att överföra alla existerande data. Byt ut ActiveCell.Row - 1 med I och ta bort 'för för och därefter.

Detta kodifierar är i ta prov sparar.

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

Privata underWorksheet_Change (ByVal uppsätta som mål som spänner),

    Dunkelt I som Long, LastRow som Long, lRow som Long
    Dunkel Ws1 som arbetssedeln, Ws2 som arbetssedeln
    Dunkel iMonth som stränger
    Om att inte skära (spänna (”B: B”), uppsätta som mål) är ingenting därefter
        Uppsättning Ws1 = arbetssedlar (”styra”),
        LastRow = Ws1.Range (”A65536”). Avsluta (xlUp). Ro
        'För I = 2 till LastRow
            iMonth = formaterar (arbetssedlar (”styra”). Celler (ActiveCell.Row - 1, 2), ”mmm”)
            På felet GoTo ErrorHandler
            Uppsättning Ws2 = arbetssedlar (iMonth)
            'finna första tomt ror i månad täcker
            lRow = Ws2.Cells (Rows.Count, 1). Avsluta (xlUp). Offset (1, 0). Ro
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Därefter I
    Avsluta om
    Gå ut under 'undviker felförlagehanteraren
ErrorHandler:
   'Månaden täcker finns inte!
Avsluta suben
Andra lösningar  
 
programming4us programming4us