Access - EVALUAR UNA LISTA DE VALORES EN VBA EXCEL

   
Vista:

EVALUAR UNA LISTA DE VALORES EN VBA EXCEL

Publicado por tommy (8 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.
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 1
 
Debug.Print mimatriz(i)
 
Next i
 
End Sub
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

EVALUAR UNA LISTA DE VALORES EN VBA EXCEL

Publicado por Enrique Heliodoro (1663 intervenciones) el 07/04/2016 08:35:07
La sintaxis que se utiliza en EXCEL para manejar los objetos (y también el tipo de objeto) es diferente en ACCESS, creo que un foro de Excel te seria mas útil que un foro de Access.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar