Visual Basic - ERROR 32809 no me permite procesar comprobantes que estén echos en otros windows

Life is soft - evento anual de software empresarial
   
Vista:

ERROR 32809 no me permite procesar comprobantes que estén echos en otros windows

Publicado por Carlos Andres (2 intervenciones) el 31/03/2016 02:05:06
me sale error 32809

hay archivos que si los lee y otros no los lee creo que es los windows me dice validar estructura de comprobante que puedo hacer para que me permita ejecutar cual quier libro echo en cualquier windows y office


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
' ** Valida la estructura del comprobante.
'    Retorna "OK" si está correcta, de lo contrario retorna la inconsistencia que presenta
'    Guarda la última fila del comprobante en la variable 'UFcomprobante'
 
Function ValidarEstructuraComprobante() As String
    On Error GoTo Errores
    Dim i As Integer
 
    If ActiveSheet.Range("B10") <> "OFC" Or ActiveSheet.Range("C10") <> "Cuenta PUC" Or _
       ActiveSheet.Range("D10") <> "NOMBRE CTA PUC" Or ActiveSheet.Range("E10") <> "MONEDA" Or _
       ActiveSheet.Range("f10") <> "COD TRN" Or ActiveSheet.Range("G10") <> "VALOR" Or _
       ActiveSheet.Range("H10") <> "TASA" Or ActiveSheet.Range("I10") <> "MONTO EQUIVALENTE" Or _
       ActiveSheet.Range("J10") <> "DESCRIPCION" Or ActiveSheet.Range("J7") <> "Total Débitos monto  equivalente" Or _
       ActiveSheet.Range("J8") <> "Total Créditos monto equivalente" Or ActiveSheet.Range("K4") <> "F E C H A      E F E C T I V A" Or _
       ActiveSheet.Range("B6") <> "Area responsable de este comprobante" Then
 
 
       '** Quita la proteccion del comprobante
Desprotejer
            ' ** Rellena con amarillo las celdas que no tienen el dato esperado **
       If ActiveSheet.Range("B10") <> "Ofc" Then ActiveSheet.Range("B10").Interior.Color = 65535
       If ActiveSheet.Range("C10") <> "Cuenta PUC" Then ActiveSheet.Range("C10").Interior.Color = 65535
       If ActiveSheet.Range("D10") <> "NOMBRE CTA PUC" Then ActiveSheet.Range("D10").Interior.Color = 65535
       If ActiveSheet.Range("E10") <> "MONEDA" Then ActiveSheet.Range("E10").Interior.Color = 65535
       If ActiveSheet.Range("f10") <> "COD TRN" Then ActiveSheet.Range("f10").Interior.Color = 65535
       If ActiveSheet.Range("G10") <> "VALOR" Then ActiveSheet.Range("G10").Interior.Color = 65535
       If ActiveSheet.Range("H10") <> "TASA" Then ActiveSheet.Range("H10").Interior.Color = 65535
       If ActiveSheet.Range("I10") <> "MONTO EQUIVALENTE" Then ActiveSheet.Range("I10").Interior.Color = 65535
       If ActiveSheet.Range("J10") <> "DESCRIPCION" Then ActiveSheet.Range("J10").Interior.Color = 65535
       If ActiveSheet.Range("J7") <> "Total Débitos monto  equivalente" Then ActiveSheet.Range("J7").Interior.Color = 65535
       If ActiveSheet.Range("J8") <> "Total Créditos monto equivalente" Then ActiveSheet.Range("J8").Interior.Color = 65535
       If ActiveSheet.Range("K4") <> "F E C H A      E F E C T I V A" Then ActiveSheet.Range("K4").Interior.Color = 65535
       If ActiveSheet.Range("B6") <> "Area responsable de este comprobante" Then ActiveSheet.Range("B6").Interior.Color = 65535
       '** Pone la proteccion del comprobante
       ActiveSheet.Protect
        '** Guarda el comprobante
       ActiveWorkbook.Save
 
       ValidarEstructuraComprobante = "Estructura no válida"
       Exit Function
    End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder