crear array bidimensional

Debes declarar la variable como bidimensional

dim mi_array(10,20) as variant

Espero te ayude

Atte

Claudio

"galtor" escribió en el mensaje
news:
Hola a todos

espero que me puedan ayudar.

Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

Tengo un formulario de ventas donde necesito agregar que plan de
servicio está contratando un cliente y el alcance de este plan (con
dos combobox) y los voy agregando con un boton "agregar" a un ListBox
para verlos en pantalla y necesito que los valores de la lista se
graben en un rango de celdas (hoja planes, rango "B3:C n") al
concretar la venta.

Se me ocurrió que al momento de agregarlos a la lista se podrían ir
grabando en un array bidimensional para que al momendo de concretar la
venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
-para el array: ¿si el cliente decide que no quiere un "plan x" de 5
que había seleccionado como lo puedo borrar para que sólo se graben
los 4 restantes en la venta?

Ojalá alguien me pueda ayudar, porque solamente me salen los array
unidimensionales pero por más que intento no me aprendo la estructura
de los multidimensionales.

mi codigo es así:

dim plan as String, alcance as String

Private Sub addPlanes_Click()
'Validar que los campos no estén vacíos
If plan.Text = "" Or alcance.Text = "" Then
MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
plan.SetFocus
Exit Sub
End If
'Agrego los datos a la lista para verlos en pantalla
listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
'Limpio los campos para agregar más planes a la venta
plan.Text = ""
alcance.Text = ""
plan.SetFocus
End sub

Saludos a todos y gracias anticipadas

On 19 jun, 06:17, "Claudio Sepúlveda" wrote:

Debes declarar la variable como bidimensional

dim mi_array(10,20) as variant

Espero te ayude

Atte

Claudio

"galtor" escribió en el mensajenews:
Hola a todos

espero que me puedan ayudar.

Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

Tengo un formulario de ventas donde necesito agregar que plan de
servicio está contratando un cliente y el alcance de este plan (con
dos combobox) y los voy agregando con un boton "agregar" a un ListBox
para verlos en pantalla y necesito que los valores de la lista se
graben en un rango de celdas (hoja planes, rango "B3:C n") al
concretar la venta.

Se me ocurrió que al momento de agregarlos a la lista se podrían ir
grabando en un array bidimensional para que al momendo de concretar la
venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
-para el array: ¿si el cliente decide que no quiere un "plan x" de 5
que había seleccionado como lo puedo borrar para que sólo se graben
los 4 restantes en la venta?

Ojalá alguien me pueda ayudar, porque solamente me salen los array
unidimensionales pero por más que intento no me aprendo la estructura
de los multidimensionales.

mi codigo es así:

dim plan as String, alcance as String

Private Sub addPlanes_Click()
'Validar que los campos no estén vacíos
If plan.Text = "" Or alcance.Text = "" Then
MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
plan.SetFocus
Exit Sub
End If
'Agrego los datos a la lista para verlos en pantalla
listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
'Limpio los campos para agregar más planes a la venta
plan.Text = ""
alcance.Text = ""
plan.SetFocus
End sub

Saludos a todos y gracias anticipadas

Gracias Claudio

En realidad he buscado el modo y lo de la sintaxis ya lo superé pero
no sé como grabrle los datos sin error y luego leerla después de que
ya tiene datos, eso es lo que me tiene atorado.
Por ejemplo en el primer subindice quiero grabarle:
miArray(plan[i],alcance[i]) 'por supuesto llevan numeración igual
(plan 1, alcance 1... plan 20, alcance 20) y luego leerlo para el
momento de la grabación, para grabarlo usaré un bucle para almacenarlo
en dos columnas y en hasta 20 filas si es el caso, mientras el array
tenga datos.
Lo que no sé es como grabarlo sin error en sus respectivos subindices
y extraer los datos para la grabación, como ves uso solamente dos
textboxes y su boton para agregar cada pareja.

Por cierto en tu ejemplo de sintaxis mencionas mi_array(10,20) yo
menciono que tiene 20 subindices cada uno ¿fue un ejemplo o es
correcto? ¿me explicas?

Fue un ejemplo.
Yo te sugeriría crear al principo, un array que de dimensiones superiores a
lo que usarás. Por ejemplo, si tienes 20 planes con sus 20 alcances (un
alcance para cada plan) cada uno, crea un array mi_array(40,2) (para
ingresar 80 entradas). Esto ya que al redefinir un array, se borran los
datos que has ingresado anteriormente.

Por otra parte, en tu rutina falta incorporar los índices del array.
Si vas a trabajar sobre el registro número 12, entonces

mi_array(12,1)=plan.text
mi_array(12,2)=alcance.text

Atte

Claudio


"galtor" escribió en el mensaje
news:
On 19 jun, 06:17, "Claudio Sepúlveda" wrote:

Debes declarar la variable como bidimensional

dim mi_array(10,20) as variant

Espero te ayude

Atte

Claudio

"galtor" escribió en el
mensajenews:
Hola a todos

espero que me puedan ayudar.

Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

Tengo un formulario de ventas donde necesito agregar que plan de
servicio está contratando un cliente y el alcance de este plan (con
dos combobox) y los voy agregando con un boton "agregar" a un ListBox
para verlos en pantalla y necesito que los valores de la lista se
graben en un rango de celdas (hoja planes, rango "B3:C n") al
concretar la venta.

Se me ocurrió que al momento de agregarlos a la lista se podrían ir
grabando en un array bidimensional para que al momendo de concretar la
venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
-para el array: ¿si el cliente decide que no quiere un "plan x" de 5
que había seleccionado como lo puedo borrar para que sólo se graben
los 4 restantes en la venta?

Ojalá alguien me pueda ayudar, porque solamente me salen los array
unidimensionales pero por más que intento no me aprendo la estructura
de los multidimensionales.

mi codigo es así:

dim plan as String, alcance as String

Private Sub addPlanes_Click()
'Validar que los campos no estén vacíos
If plan.Text = "" Or alcance.Text = "" Then
MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
plan.SetFocus
Exit Sub
End If
'Agrego los datos a la lista para verlos en pantalla
listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
'Limpio los campos para agregar más planes a la venta
plan.Text = ""
alcance.Text = ""
plan.SetFocus
End sub

Saludos a todos y gracias anticipadas

Gracias Claudio

En realidad he buscado el modo y lo de la sintaxis ya lo superé pero
no sé como grabrle los datos sin error y luego leerla después de que
ya tiene datos, eso es lo que me tiene atorado.
Por ejemplo en el primer subindice quiero grabarle:
miArray(plan[i],alcance[i]) 'por supuesto llevan numeración igual
(plan 1, alcance 1... plan 20, alcance 20) y luego leerlo para el
momento de la grabación, para grabarlo usaré un bucle para almacenarlo
en dos columnas y en hasta 20 filas si es el caso, mientras el array
tenga datos.
Lo que no sé es como grabarlo sin error en sus respectivos subindices
y extraer los datos para la grabación, como ves uso solamente dos
textboxes y su boton para agregar cada pareja.

Por cierto en tu ejemplo de sintaxis mencionas mi_array(10,20) yo
menciono que tiene 20 subindices cada uno ¿fue un ejemplo o es
correcto? ¿me explicas?

Fue un ejemplo.
Yo te sugeriría crear al principo, un array que de dimensiones superiores a
lo que usarás. Por ejemplo, si tienes 20 planes con sus 20 alcances (un
alcance para cada plan) cada uno, crea un array mi_array(40,2) (para
ingresar 80 entradas). Esto ya que al redefinir un array, se borran los
datos que has ingresado anteriormente.

Por otra parte, en tu rutina falta incorporar los índices del array.
Si vas a trabajar sobre el registro número 12, entonces

mi_array(12,1)=plan.text
mi_array(12,2)=alcance.text

Atte

Claudio


"galtor" escribió en el mensaje
news:
On 19 jun, 06:17, "Claudio Sepúlveda" wrote:

Debes declarar la variable como bidimensional

dim mi_array(10,20) as variant

Espero te ayude

Atte

Claudio

"galtor" escribió en el
mensajenews:
Hola a todos

espero que me puedan ayudar.

Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

Tengo un formulario de ventas donde necesito agregar que plan de
servicio está contratando un cliente y el alcance de este plan (con
dos combobox) y los voy agregando con un boton "agregar" a un ListBox
para verlos en pantalla y necesito que los valores de la lista se
graben en un rango de celdas (hoja planes, rango "B3:C n") al
concretar la venta.

Se me ocurrió que al momento de agregarlos a la lista se podrían ir
grabando en un array bidimensional para que al momendo de concretar la
venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
-para el array: ¿si el cliente decide que no quiere un "plan x" de 5
que había seleccionado como lo puedo borrar para que sólo se graben
los 4 restantes en la venta?

Ojalá alguien me pueda ayudar, porque solamente me salen los array
unidimensionales pero por más que intento no me aprendo la estructura
de los multidimensionales.

mi codigo es así:

dim plan as String, alcance as String

Private Sub addPlanes_Click()
'Validar que los campos no estén vacíos
If plan.Text = "" Or alcance.Text = "" Then
MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
plan.SetFocus
Exit Sub
End If
'Agrego los datos a la lista para verlos en pantalla
listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
'Limpio los campos para agregar más planes a la venta
plan.Text = ""
alcance.Text = ""
plan.SetFocus
End sub

Saludos a todos y gracias anticipadas

Gracias Claudio

En realidad he buscado el modo y lo de la sintaxis ya lo superé pero
no sé como grabrle los datos sin error y luego leerla después de que
ya tiene datos, eso es lo que me tiene atorado.
Por ejemplo en el primer subindice quiero grabarle:
miArray(plan[i],alcance[i]) 'por supuesto llevan numeración igual
(plan 1, alcance 1... plan 20, alcance 20) y luego leerlo para el
momento de la grabación, para grabarlo usaré un bucle para almacenarlo
en dos columnas y en hasta 20 filas si es el caso, mientras el array
tenga datos.
Lo que no sé es como grabarlo sin error en sus respectivos subindices
y extraer los datos para la grabación, como ves uso solamente dos
textboxes y su boton para agregar cada pareja.

Por cierto en tu ejemplo de sintaxis mencionas mi_array(10,20) yo
menciono que tiene 20 subindices cada uno ¿fue un ejemplo o es
correcto? ¿me explicas?

On 25 jun, 23:33, "Claudio Sepúlveda" wrote:

Fue un ejemplo.
Yo te sugeriría crear al principo, un array que de dimensiones superiores a
lo que usarás. Por ejemplo, si tienes 20 planes con sus 20 alcances (un
alcance para cada plan) cada uno, crea un array mi_array(40,2) (para
ingresar 80 entradas). Esto ya que al redefinir un array, se borran los
datos que has ingresado anteriormente.

Por otra parte, en tu rutina falta incorporar los índices del array.
Si vas a trabajar sobre el registro número 12, entonces

mi_array(12,1)=plan.text
mi_array(12,2)=alcance.text

Atte

Claudio

"galtor" escribió en el mensajenews:
On 19 jun, 06:17, "Claudio Sepúlveda" wrote:





> Debes declarar la variable como bidimensional

> dim mi_array(10,20) as variant

> Espero te ayude

> Atte

> Claudio

> "galtor" escribió en el
> mensajenews:
> Hola a todos

> espero que me puedan ayudar.

> Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

> Tengo un formulario de ventas donde necesito agregar que plan de
> servicio está contratando un cliente y el alcance de este plan (con
> dos combobox) y los voy agregando con un boton "agregar" a un ListBox
> para verlos en pantalla y necesito que los valores de la lista se
> graben en un rango de celdas (hoja planes, rango "B3:C n") al
> concretar la venta.

> Se me ocurrió que al momento de agregarlos a la lista se podrían ir
> grabando en un array bidimensional para que al momendo de concretar la
> venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
> -para el array: ¿si el cliente decide que no quiere un "plan x" de 5
> que había seleccionado como lo puedo borrar para que sólo se graben
> los 4 restantes en la venta?

> Ojalá alguien me pueda ayudar, porque solamente me salen los array
> unidimensionales pero por más que intento no me aprendo la estructura
> de los multidimensionales.

> mi codigo es así:

> dim plan as String, alcance as String

> Private Sub addPlanes_Click()
> 'Validar que los campos no estén vacíos
> If plan.Text = "" Or alcance.Text = "" Then
> MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
> plan.SetFocus
> Exit Sub
> End If
> 'Agrego los datos a la lista para verlos en pantalla
> listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
> 'Limpio los campos para agregar más planes a la venta
> plan.Text = ""
> alcance.Text = ""
> plan.SetFocus
> End sub

> Saludos a todos y gracias anticipadas

Gracias Claudio

En realidad he buscado el modo y lo de la sintaxis ya lo superé pero
no sé como grabrle los datos sin error y luego leerla después de que
ya tiene datos, eso es lo que me tiene atorado.
Por ejemplo en el primer subindice quiero grabarle:
miArray(plan[i],alcance[i]) 'por supuesto llevan numeración igual
(plan 1, alcance 1... plan 20, alcance 20) y luego leerlo para el
momento de la grabación, para grabarlo usaré un bucle para almacenarlo
en dos columnas y en hasta 20 filas si es el caso, mientras el array
tenga datos.
Lo que no sé es como grabarlo sin error en sus respectivos subindices
y extraer los datos para la grabación, como ves uso solamente dos
textboxes y su boton para agregar cada pareja.

Por cierto en tu ejemplo de sintaxis mencionas mi_array(10,20) yo
menciono que tiene 20 subindices cada uno ¿fue un ejemplo o es
correcto? ¿me explicas?- Ocultar texto de la cita -

- Mostrar texto de la cita -

Muchas gracias Claudio

En realidad no habia entendido lo de los arreglos bidimensionales (no
me había caido el veinte de que son columnas y las filas) pero ya
quedó perfecto y funciona bien.

gracias
hasta pronto