2 Consultas

hola, Gustavo !

1 - Tengo una columna que se llama idsuministro (Suministros de energía)
y necesito que cada vez que alguien ingrese algo en esa columna
se ejecute una consulta contra una base de datos informix para traer los datos del suministro (Cliente, Calle, Puerta, etc.).
Al tema de la conexión con el motor y la consulta ya los tengo resueltos, pero me falta detectar el cambio en la celda.
2 - En otra columna necesito que en cada fila me aparezca un combo para seleccionar un tipo de conexion
que no está almacenada en la base de datos.
Esto deberia aparecer en cada fila cada vez que se ingresa un nuevo IdSuministro
y una vez que pierda el foco la celda, desaparezca la el combo.
Agradeceria muchísimo al que me pueda orientar sobre estos temas.

1) para 'detectar' cual/es es/son la/s celda/s que se modifica/n por acciones 'directas' [macros o por el usuario]...
usa el evento '_change' en el modulo de codigo de 'la hoja' que contiene las celdas que necesitas 'controlar'

2) para que aparezca un combo al seleccionar 'x_celda/s', necesitaras [al menos] dos cosillas:
a) incrustar en 'esa' hoja un objeto combobox -> de la barra de herramientas 'cuadro de controles'
b) usar el evento '_selectionchange' en el modulo de codigo de la misma hoja

-> solo haria falta conocer como/de donde/etc. se pueden tomar los datos para 'llenar' los elementos del combo -???-

-> o... la otra alternativa es usar las reglas de validacion por lista para que aparezca el combo que solicitas al seleccionar
'las celdas'
[solo que necesitaras aplicar las reglas de validacion a todas las celdas 'aplicables' :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor!
Vos sabés que probé antes de que me contestaras, con el siguiente código:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

If ActiveCell.Value > 0 And ActiveCell.Value <> Null Then
ActiveCell.Offset(1, 0).Value = "Cambió el Valor"
End If

End If

End Sub

pero no anduvo, o mejor dicho, yo no lo sé hacer funcionar.

Con respecto a los datos del combo, tenía pensados ponerlos en otra hoja
dentro del mismo libro.

Espero te sirva de guía para poder orientarme.

Saludos! y muy agradecido por tu ayuda

Gustavo


"Héctor Miguel" escribió en el mensaje
news:

hola, Gustavo !

1 - Tengo una columna que se llama idsuministro (Suministros de energía)
y necesito que cada vez que alguien ingrese algo en esa columna
se ejecute una consulta contra una base de datos informix para traer los
datos del suministro (Cliente, Calle, Puerta, etc.).
Al tema de la conexión con el motor y la consulta ya los tengo resueltos,
pero me falta detectar el cambio en la celda.
2 - En otra columna necesito que en cada fila me aparezca un combo para
seleccionar un tipo de conexion
que no está almacenada en la base de datos.
Esto deberia aparecer en cada fila cada vez que se ingresa un nuevo
IdSuministro
y una vez que pierda el foco la celda, desaparezca la el combo.
Agradeceria muchísimo al que me pueda orientar sobre estos temas.

1) para 'detectar' cual/es es/son la/s celda/s que se modifica/n por
acciones 'directas' [macros o por el usuario]...
usa el evento '_change' en el modulo de codigo de 'la hoja' que
contiene las celdas que necesitas 'controlar'

2) para que aparezca un combo al seleccionar 'x_celda/s', necesitaras [al
menos] dos cosillas:
a) incrustar en 'esa' hoja un objeto combobox -> de la barra de
herramientas 'cuadro de controles'
b) usar el evento '_selectionchange' en el modulo de codigo de la misma
hoja

-> solo haria falta conocer como/de donde/etc. se pueden tomar los datos
para 'llenar' los elementos del combo -???-

-> o... la otra alternativa es usar las reglas de validacion por lista
para que aparezca el combo que solicitas al seleccionar
'las celdas'
[solo que necesitaras aplicar las reglas de validacion a todas las
celdas 'aplicables' :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Gustavo !

... probe... con el siguiente codigo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If ActiveCell.Value > 0 And ActiveCell.Value <> Null Then
ActiveCell.Offset(1, 0).Value = "Cambio el Valor"
End If
End If
End Sub
pero no anduvo, o mejor dicho, yo no lo se hacer funcionar.

Con respecto a los datos del combo, tenia pensados ponerlos en otra hoja dentro del mismo libro.

1) con relacion al codigo que estas probando... el evento '_change' controla situaciones mas 'diversas' a las que necesitas
y la forma en que lo usas [probablemente] esta cayendo en un bucle 'sin-fin', ya que estas afectando celdas de la misma columna -?-

2) con relacion al 'combo'... prueba asignando un nombre al rango en la 'otra' hoja
y lo aplicas como 'origen' de la lista en las reglas de valicacion para TODAS las celdas donde requieras 'el combo'

[de todas formas]... no estaria 'por de mas' si comentas algunos detalles mas... 'concretos'
[p.e. algunos de los que no 'se ven' desde este lado del mensaje] :))

saludos,
hector.