formulario personalizado, como lo hago

hola, Isaac !

... ejemplo... para un formulario personalizado que ayude administrar una base de datos (lista)
... el data show (datos/formulario) no me funciona por que deja eliminar y dar de alta desde alli
... solo quiero que permita corregir datos, sin eliminar registros, por que trabajo con bloques nombrados, y se desajustan ...

el siguiente ejemplo 'asume' que existe una 'hoja1' con un rango nombrado 'listado' de 5 columnas [por lo cual]...
existen 5 textboxes [misma secuencia numerica] textbox1... textbox5 y un combobox1 que lista de la columna 1 del listado.
toma en cuenta que dicha hoja la puedes 'mantener' oculta y/o mostrar el formulario estando 'otra' hoja como activa ;)
[a falta de detalles mas especificos] :D

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

en el modulo de codigo del formulario ==Dim Sig As Byte, Fila As Long
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then _
Vinculos_Off Else Vinculos_On
End Sub
Private Sub Vinculos_Off()
For Sig = 1 To 5
Me.Controls("textbox" & Sig).LinkedCell = ""
Next
End Sub
Private Sub Vinculos_On()
With Worksheets("hoja1").Range("listado")
Fila = Application.Match(ComboBox1.Text, .Offset.Resize(, 1), 0)
For Sig = 1 To 5
Me.Controls("textbox" & Sig).ControlSource = _
"'" & .Parent.Name & "'!" & .Cells(Fila, Sig).Address
Next
End With
End Sub

Hector.

los cuadros texbox1 y sucesivos no llevan ningun codigo. por que no me ha
funcionado solo aparece el userform1 con los cuadritos pero no jala la
informacion de las listas de las columnas de la hoja1

Gracias Hector de nuevo


escribió en el mensaje
news:O9i7Gv%

hola, Isaac !

... ejemplo... para un formulario personalizado que ayude administrar una
base de datos (lista)
... el data show (datos/formulario) no me funciona por que deja eliminar
y dar de alta desde alli
... solo quiero que permita corregir datos, sin eliminar registros, por
que trabajo con bloques nombrados, y se desajustan ...

el siguiente ejemplo 'asume' que existe una 'hoja1' con un rango nombrado
'listado' de 5 columnas [por lo cual]...
existen 5 textboxes [misma secuencia numerica] textbox1... textbox5 y un
combobox1 que lista de la columna 1 del listado.
toma en cuenta que dicha hoja la puedes 'mantener' oculta y/o mostrar el
formulario estando 'otra' hoja como activa ;)
[a falta de detalles mas especificos] :D

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

en el modulo de codigo del formulario ==> Dim Sig As Byte, Fila As Long
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then _
Vinculos_Off Else Vinculos_On
End Sub
Private Sub Vinculos_Off()
For Sig = 1 To 5
Me.Controls("textbox" & Sig).LinkedCell = ""
Next
End Sub
Private Sub Vinculos_On()
With Worksheets("hoja1").Range("listado")
Fila = Application.Match(ComboBox1.Text, .Offset.Resize(, 1), 0)
For Sig = 1 To 5
Me.Controls("textbox" & Sig).ControlSource = _
"'" & .Parent.Name & "'!" & .Cells(Fila, Sig).Address
Next
End With
End Sub

hola, Isaac !

los cuadros texbox1 y sucesivos no llevan ningun codigo.

=> tampoco es necesario que exista codigo en ningun evento para ningun textbox
el codigo sugerido les 'asigna' su celda/columna 'correspondiente' mediante la propiedad '.ControlSource'
con la cual, 'reciben' el dato de lo que exista en cada celda/columna... y le 'regresan' los cambios que se les hagan

... no me ha funcionado solo aparece el userform1 con los cuadritos pero no jala la informacion de las listas... de la hoja1...

=> tambien has incluido un combobox[1] al cual le asignas como origen el rango nobrado [en el ejemplo]: -> Listado -???-
es para que el usuario seleccione 'con cual' registro se re/llenaran los cuadritos de los textboxes

comentas como/cual/... es la situacion 'real' que necesitas resolver ?
saludos,
hector.