Questione : Rimuovere soltanto le prime 5 colonne

Ciao tipi,

I ancora che lavora a questa macro che lo prova appena al twik una punta. (spiacente per il messiness del mio commento)

Is là un senso posso convincere la linea 23 per controllare soltanto le prime 6 colonne per vedere se c'è dati usati?  Sto volendo mettere i formals in colonna G ma non appena faccio i dati cominciano popolare da sotto la mia formula più bassa.

Cheers,
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
il id= " codeSnippet854494 " class= " del 
 ' questo sommergibile deve essere installato nella lastra di vetro di codice per il manuale del calendario. Non funzionerà affatto se installato in qualsiasi altro luogo.
Worksheet_Activate secondario riservato ()
La WS fioca come manuale, wsCalendar come manuale
Rg fioco come gamma, più rgDest come gamma
N fioca come lungamente
'Application.ScreenUpdating = falso
wsCalendar stabilito = manuali (“calendario„)
wsCalendar.Range (“a2„, “f10000„). Radura
'wsCalendar.Rows (2).Resize (wsCalendar.Rows.Count - 1).ClearContents
'wsCalendar.Rows.ClearContents
Per l'ogni WS in ThisWorkbook.Worksheets
    Selezionare il caso WS. Nome
    Mettere “il calendario„, “domestico„, “spazio di lavoro„ 'ignorano questi manuali
    Mettere altrimenti
        Con la WS
            'la WS. Attivare
            Regolare il rg =. Gamma (“B4„). Ridimensionare (.UsedRange.Rows.Count, 5) 'sguardo alle colonne B: F, iniziante nella fila 4
            Se (non intersecare (rg, .UsedRange) è niente) e (rg. Cellule (2, 1) "" del <>) allora
                'campo di rg.AutoFilter: =2, Criteria1: = " <= " & (data + 5), operatore: =xlAnd, Criteria2: = " >= " & (data - 5)
                'deve essere la disposizione di data degli Stati Uniti
                oggi = disposizione (data, “millimetro-dd-yyyy„)
                campo di rg.AutoFilter: =2, Criteria1: = " >= " & oggi ', operatore: =xlAnd, Criteria2: = " >= " & plus5days
                Più rgDest stabilito = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy più rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Ridimensionare (n, 1).Value = WS. Nome
                rgDest.Rows (1).EntireRow.Delete
                . Gamma (“B4„) .AutoFilter
            Concluder se
        Concluder con
    Concludere prescelto
Dopo
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
class= del

Risposta : Rimuovere soltanto le prime 5 colonne

Molte volte ottenete il #Name con le funzioni comuni come la data (), Len ()… ecc se… un riferimento manca.

Redattore >> Tools>>References di VBA.  Cercare affatto elencato As
** Sig.na

MX
Altre soluzioni  
 
programming4us programming4us