EVALUAR UNA LISTA DE VALORES EN VBA EXCEL
Publicado por tommy (19 intervenciones) el 07/04/2016 05:05:17
Estimado,
Estoy tratando de evaluar una lista que tengo en un rango de celda que a su la he almacenado en una matriz, pero si pongo un dato que esta en la lista o no esta me da el error 9 en tiempo de ejecución subindice fuera del intervalo. este es el codigo.
Probe con este codigo en la ventana inmediato a ver si faltaba alguna posicion por rellenar pero me funciono, el codigo es el siguiente.
Estoy tratando de evaluar una lista que tengo en un rango de celda que a su la he almacenado en una matriz, pero si pongo un dato que esta en la lista o no esta me da el error 9 en tiempo de ejecución subindice fuera del intervalo. este es el codigo.
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
Sub prueba()
Dim MiVariable As String
Dim mimatriz(11) As String
Dim micelda As Range
Dim x As Integer
Range("i1").Select
Selection.CurrentRegion.Select
For Each micelda In Selection
mimatriz(x) = micelda.Value
x = x + 1
Next micelda
MiVariable = InputBox("Definir Valor")
Do Until MiVariable <> mimatriz(x)
MsgBox "No se admite este registro"MiVariable = InputBox("Definir Valor")
Loop
Msgbox "El dato es correcto"End Sub
Probe con este codigo en la ventana inmediato a ver si faltaba alguna posicion por rellenar pero me funciono, el codigo 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
28
29
Sub prueba1()
Dim MiVariable As String
Dim mimatriz(11) As String
Dim micelda As Range
Dim x As Integer
Range("i1").Select
Selection.CurrentRegion.Select
For Each micelda In Selection
mimatriz(x) = micelda.Value
x = x + 1
Next micelda
Dim i As Integer
For i = 0 to 11 step 1Debug.Print mimatriz(i)
Next i
End Sub
Valora esta pregunta
0