Pergunta : Erro 2029 que tenta começ a data de série da data formatada como o “general”


Eu estou tomando uma data de começo e uma data de término através do msgbox do usuário que eu me converto à data de série então precisa de mostrar somente dados entre essa escala da data.  O formato das pilhas que contêm as datas são formatadas como o “general” assim que eu aplicamos a função de série da data e começ o erro 2029.   Eu não posso figurá-lo para fora!!
Eu uno o spreadsheet
Eu começ o erro nesta linha
Se (pilha. 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 secundário ()
D não ofuscante como o dobro
Escurecer i como a variação

Escurecer o cel como a escala, celStart como a escala, celEnd como a escala, rg como a escala, del Como Escala
Escurecer StartDate como por muito tempo, EndDate como por muito tempo

StartDate = CLng (CDate (Application.InputBox (“incorporar por favor a data começar”, datilografam: =2)))
Se StartDate = 0 retira então o submarino
EndDate = CLng (CDate (Application.InputBox (“incorporar por favor a data de término”, datilografam: =2)))
Se EndDate = 0 retira então o submarino

    Escala (“J2”). Seleto
  'tentativa using a série da data
    Escala (“J2”) .FormulaR1C1 = “=DATESERIAL (MEADOS DE (J2,7,4), SAIDO (J2,2), MEADOS DE (J2,4,2))”

'
 Ajustar primeira pilha do rg = da data “J2” da escala () '
 Ajustar o rg = a escala (rg, pilhas (Rows.Count, rg. Coluna). Extremidade (xlUp)) 'Todas as datas nessa coluna

Se EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate então
       Se del Ser Nada então
          Ajustar o del = a pilha
          Mais: Ajustar o del = a união (del, a pilha)
      Terminar se
   Terminar se
Pilha seguinte

 No resumo do erro em seguida
 del.EntireRow.Delete

Application.ScreenUpdating = retificam
  
    
Submarino da extremidade
Acessórios:
 
forTesting2.xls (23 KB) (tipo de lima detalhes) 
dados do spreadsheet
 

Resposta : Erro 2029 que tenta começ a data de série da data formatada como o “general”

IDK, usuário não foi reiniciado… mas parece ter mantido os ajustes depois que terceira tentativa.
Outras soluções  
 
programming4us programming4us