Calificador no Válido, Error de compilación
Publicado por Bastian (1 intervención) el 08/06/2018 23:34:02
Hola Programadores, soy novato en programación y necesito de vuestra ayuda,
Quisiera saber como reparar el error de calificador no válido, entiendo dónde está el problema pero no se como solucionarlo. El extracto de mi código es el siguiente:
Y es en estas ultimas líneas donde me da error, lo que necesito es variar el objeto Rang1,2,3,4,5,6 dentro del bucle For.
Quisiera saber como reparar el error de calificador no válido, entiendo dónde está el problema pero no se como solucionarlo. El extracto de mi código es el siguiente:
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
Dim j As Integer
Dim i As Integer
Dim u As Integer
Dim v As Integer
Dim Range1 As Range
Dim Range2 As Range
Dim Range3 As Range
Dim Range4 As Range
Dim Range5 As Range
Dim Range6 As Range
Set Rang1 = Range("A2:P" & ult - 1)
Set Rang2 = Range("R2:AG" & ult - 1)
Set Rang3 = Range("AI2:AX" & ult - 1)
Set Rang4 = Range("AZ2:BO" & ult - 1)
Set Rang5 = Range("BQ2:CF" & ult - 1)
Set Rang6 = Range("CH2:CW" & ult - 1)
For u = 1 To 5 Step 2v = u + 1
For j = 1 To ult - 1
For i = 1 To 16val1 = Rang & u.Cells(j, i)
val2 = Rang & v.Cells(j, i)
Y es en estas ultimas líneas donde me da error, lo que necesito es variar el objeto Rang1,2,3,4,5,6 dentro del bucle For.
Valora esta pregunta
0