Fråga : Frikänd endast första 5 kolonner

Hi grabbar, för förmiddagstillbild för

I arbete på detta macro precis pröva till twik som den a bet. (ledset för messinessen av mitt kommentera)

Is där långt jag kan få fodrar 23 endast för att kontrollera de första 6 kolonnerna för använda data?  Förmiddag som I önskar att sätta formals i kolonnG men, så snart som jag gör, datan startar att befolka underifrån min lägsta formel.

Cheers,
> för

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:

" codeBody " ' denna sub class= " måste installeras i kodifiera förser med rutor för kalenderarbetssedeln. Den ska inte arbete alls, om installerat någon annanstans. Privata underWorksheet_Activate () Dunkel ws som arbetssedeln som är wsCalendar som arbetssedeln Dunkel rg som spänner, mest rgDest som spänner Dunkelt n som Long 'Application.ScreenUpdating = falskt Fastställdt wsCalendar = arbetssedlar (”kalendern”) wsCalendar.Range (”a2”, ”f10000”). Frikänd 'wsCalendar.Rows (2). Resize (wsCalendar.Rows.Count - 1) .ClearContents 'wsCalendar.Rows.ClearContents För varje ws i ThisWorkbook.Worksheets Välj fallet ws. Namnge Case ”kalendern”, ”hem-”, ”funktionsdugligt utrymme” 'ignorerar dessa arbetssedlar Case annars Med ws 'ws. Aktivera Fastställd rg =. Spänna (”B4”). Resize (.UsedRange.Rows.Count, 5) 'looken på kolonner B: F start ror in 4 Om (att inte skära (rg, .UsedRange) är ingenting), och (rg. <>"" för celler (2, 1)) därefter 'rg.AutoFilter sätter in: =2 Criteria1: = " <= " & (datera + 5), operatör: =xlAnd Criteria2: = " >= " & (datera - 5), 'måste vara US daterar formaterar i dag = formatera (datera, ”en mm-dd-yyyy”), rg.AutoFilter sätter in: =2 Criteria1: = " >= " & i dag ', operatör: =xlAnd Criteria2: = " >= " & plus5days Fastställd mest rgDest = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2) mest rgDest .AutoFilter.Range.Copy n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row rgDest.Offset (0, -1). Resize (n, 1). Värdera = ws. Namnge rgDest.Rows (1) .EntireRow.Delete . Spänna (”B4”) .AutoFilter Avsluta om Avsluta med Avsluta valt Därefter Application.ScreenUpdating = True Avsluta suben " klar "

Svar : Frikänd endast första 5 kolonner

En radda tajmar dig får #Name med allmänning fungerar något liknande daterar (), Len ()… etc., om… en hänvisa till är saknad.

VBA-redaktör >> Tools>>References.  Sök efter any listat som
** Saknad

mx