Fråga : Det pröva felet 2029 att få följetongen daterar av daterar formaterat som ”general”,


Förmiddag som I tar en början daterar, och en ändelse daterar via msgbox från användaren som jag konverterar till följetongen daterar mig behöver därefter att visa att endast data mellan det spänner av daterar.  Formatera av cellerna, som innehåller daterar formateras som ”general”, så jag applicerar daterar följetongen fungerar och får felet 2029.   Jag kan inte figurera det ut!!
Jag fäster räknearket
Jag får felet på detta fodrar
Om (cell. Värdera) < StartDate="" Or=""> EndDate 
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:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub DateRange ()
Dunkelt D som dubbelt
Dunkelt I som Variant

Dunkel cel som spänner, celStart som spänner, celEnd som spänner, rg som spänner, del Som Spänna
Dunkla StartDate som Long, EndDate som Long

StartDate = CLng (CDate (Application.InputBox (”behaga skriver in start daterar”, typ: =2)))
Om StartDate = 0 går ut därefter suben
EndDate = CLng (CDate (Application.InputBox (”behaga skriver in ändelse daterar”, typ: =2)))
Om EndDate = 0 går ut därefter suben

    Spänna (”J2”). Välj
  'försök using dateraföljetongen
    Spänna (”J2”) .FormulaR1C1 = ”MITT- =DATESERIAL ((J2,7,4), LÄMNAT (J2,2), MITT- (J2,4,2))”,

',
 Fastställd rg = spänner (”J2”) 'daterar först cellen
 Fastställd rg = spänner (rg, celler (Rows.Count, rg. Kolonn). Avsluta (xlUp)) 'Alla daterar däri kolonnen

Om EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate därefter
       Om del Vara Ingenting därefter
          Fastställd del = cell
          Annars: Fastställd del = union (del, cell)
      Avsluta om
   Avsluta om
Nästa cell

 På felmeritförteckning därefter
 del.EntireRow.Delete

Application.ScreenUpdating = True
  
    
Avsluta suben
Tillbehör:
 
forTesting2.xls (23 KB) (filtyp specificerar), 
räknearkdata
 

Svar : Det pröva felet 2029 att få följetongen daterar av daterar formaterat som ”general”,

IDK server har inte startats om igen…, men den verkar för att ha hållit inställningarna efter det tredje försök.
Andra lösningar  
 
programming4us programming4us