Cuestión : Error 2029 que intenta conseguir la fecha serial de la fecha dada formato como “general”


Estoy tardando una fecha de principio y una fecha de conclusión vía msgbox del usuario que me convierto a la fecha serial entonces necesita demostrar solamente datos entre esa gama de fecha.  El formato de las células que contienen las fechas se dan formato como “general” así que yo aplicamos la función serial de la fecha y conseguimos el error 2029.   ¡No puedo imaginarlo!!
Ato la hoja de balance
Consigo el error en esta línea
Si (célula. Valor) < 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:

DateRange secundario ()
D dévil como doble
Amortiguar i como variante

Amortiguar el cel como gama, celStart como gama, celEnd como gama, rg como gama, del As Range
Amortiguar StartDate como de largo, EndDate como de largo

StartDate = CLng (CDate (Application.InputBox (“incorporar por favor la fecha el comenzar”, mecanografían: =2)))
Si StartDate = 0 entonces sale el submarino
EndDate = CLng (CDate (Application.InputBox (“incorporar por favor la fecha de conclusión”, mecanografían: =2)))
Si EndDate = 0 entonces sale el submarino

    Gama (“J2”). Selecto
  'intento usar el cuento por entregas de la fecha
    Gama (“J2”) .FormulaR1C1 = “=DATESERIAL (MEDIADOS DE (J2,7,4), IDO (J2,2), MEDIADOS DE (J2,4,2))”

'
 Fijar primera célula del rg = de la fecha “J2” de la gama () '
 Fijar el rg = la gama (rg, células (Rows.Count, rg. Columna). Extremo (xlUp)) 'Todas las fechas en esa columna

Si EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate entonces
       Si del Is Nothing entonces
          Fijar el del = la célula
          : Fijar el del = la unión (del, la célula)
      Terminar si
   Terminar si
Célula siguiente

 En curriculum vitae del error después
 del.EntireRow.Delete

Application.ScreenUpdating = verdad
  
    
Submarino del extremo
Accesorios:
 
forTesting2.xls (23 KB) (tipo de archivo detalles) 
datos de la hoja de balance
 

Respuesta : Error 2029 que intenta conseguir la fecha serial de la fecha dada formato como “general”

IDK, servidor no se ha recomenzado… sino que parece haber guardado los ajustes después de que tercera tentativa.
Otras soluciones  
 
programming4us programming4us