Asociar desplegable a tabla excel

Hola Ivan :-)

Bien con el ActiveX Data Objetct. Observo que solo me coge a partir del
segundo dato del las lineas de Excel. Por otro lado esperare a la tercera
opción pero creo que esto ya soluciona mucho la cuestión planteada en inicio.

'[]

Eso debe ser debido al rango, mira de definir el nombre del rango a los
datos que quieras que te aparezcan :-)

'[]

Ahora estaba mirando para que los campos del formulario llamaran a la macro
y mostraran el marcador pero cuando bloqueo el formulario (candado) me
aparece un error de Macro en el que dice que no puedo modificar debido a que
el formulario esta protegido. Como puedo hacerlo para que los usuarios se
limiten solo a tocar los campos de texto libre y que al entrar en un campo
(ej.: precio) ejecute correctamente la macro y muestre el marcador sin que me
aparezca el error.

'[]

Bien colocando en el codigo unas lineas para desbloquear el Userform
mientras esta activo y volverlo a bloquear o proteger el documento [
formulario del documento ] añadiendo estas lineas en el commandbutton1:

'[]

Private Sub CommandButton1_Click()

On Error Resume Next

ActiveDocument.Unprotect ("111")

Dim Myrango As Word.Range
Dim marcador As Bookmarks
Set marcador = ActiveDocument.Bookmarks
Set Myrango = marcador("marcador_1").Range
Myrango.Text = ListBox1.List(ListBox1.ListIndex, 1)
marcador.Add "marcador_1", Myrango
Set Myrango = marcador("marcador_2").Range
Myrango.Text = ListBox1.Text
marcador.Add "marcador_2", Myrango
Me.Hide

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"


End Sub
'[]

Como puedes ver ahi puedes cambiar tu contraseña, de [111 ] a la que
gustes :-)

Luego el otro codigo mediante automatizacion normal y corriente sin
utilizar Dao o Ado [ que al fin al cabo todo es automatizacion, lo que
yo cogo palabros y los adapto como las [ h ] que no me llevo bien con
ellas :-P !!! ]

Bien tienes que hacer referencia a la libreria [ Microsoft excel 12.0
object library ] o en su defecto la libreria correspondiente a tu
version de excel .

Serian los mismos pasos igual que el resto pero añadiendo el siguiente
codigo:

'[]


Private Sub UserForm_Initialize()

Dim X As Excel.Application
Dim Y As Excel.Workbook
Dim problems As Boolean
Dim rng As Object


On Error Resume Next

Set X = GetObject(, "Excel.Application")

If Err Then
problems = True
Set X = New Excel.Application
End If

On Error GoTo 0

Set Y = X.Workbooks.Open _
("G:\Documents and Settings\Monica\Escritorio\Ivan.xls")

Set rng = Sheets("hoja1").Range("lunes")

ListBox1.ColumnCount = rng.Columns.Count
ListBox1.List = rng.Value


X.Quit

Set Y = Nothing: Set X = Nothing



End Sub

'[]


Y creo que no me he colado en algo si te da algun error o demas , tu
comentanos ok? :-)

Saludos :-)
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com