Error de compilación: CALIFICADOR NO VALIDO
Publicado por Angie Barahona (1 intervención) el 23/02/2019 22:08:40
Hola, tengo este código y me esta señalando error: calificador no valido en DatosSuplirdemanda, y no se que debo corregir, ya que no estoy utilizando nombres repedidos.
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
Option Explicit
Option Base 1
Type Demanda
Ciudad As String
DemTipo1 As Integer
DemTipo2 As Integer
Tipo As String
End Type
Dim DatosSuplirdemanda() As Demanda
Dim HorasTotales As Integer
Sub Redimensionar()
HorasTotales = Range("HorasT").Value2
ReDim DatosSuplirdemanda(6, HorasTotales)
End Sub
Sub Leer()
Call Redimensionar
Dim i As Integer
Dim j As Integer
For i = 1 To 6 For j = 1 To HorasTotalesDatosSuplirdemanda.Ciudad(i, j) = Range("DEMANDA").Offset(i - 1, 1)
DatosSuplirdemanda.Tipo(i, j) = Range("DEMANDA").Offset(i - 1, 0)
If i = 1 Or i = 3 Or i = 5 Then
DatosSuplirdemanda.DemTipo1(i, j) = Range("DEMANDA").Offset(i - 1, j - 1)
Else
DatosSuplir.DemTipo2(i, j) = Range("DEMANDA").Offset(i - 1, j - 1)
End Sub
Valora esta pregunta
0
