COMBOBOX EN FORMULARIO

Tienes que tener primero el rango definido como “NombreRango” y ejecutar de
alguna manera esta pequeña macro, quizás con algún CommandButton en el mismo
formulario que puedas ejectar antes de seleccionar con el ComboBox..
Directamente desde el ComboBox no se me ocurre como hacerlo.

Sub AtualizaRango()
ActiveWorkbook.Names("NombreRango").Delete
cont = 3
While Sheets("Sheet1 ").Cells(cont, 1) <> ""
cont = cont + 1
Wend
fin = cont – 1

‘Añade estas líneas si quieres que, además, te ordene el rango de forma
ascendente
‘************************************************************
Range(("A3:A" & fin & "")).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
‘************************************************************

ActiveWorkbook.Names.Add Name:=" NombreRango ", _
refersTo:="= Sheet1!$D$2:$d$" & fin & ""
End Sub

Para el Segundo tema no se si esto te servirá

Private Sub ComboBox1_Change()
a = ComboBox1.Text
UserForm1.Label1.Caption = a
End Sub


"Manny_90" escribió:

Que tal.

PRIMERO
Estoy haciendo un formulario en excel, en el formulario agregue un combobox
que donde los datos estan en una base de datos (Sheet1 A3:A200), El problema
es que la base de datos se modifica constantemente y eso requiere modificar
el codigo del COMBOBOX, me podrian ayudar a desarroyar ese codigo.


SEGUNDO
Necesito que una vez que selecciones la opcion del combobox este se lo
conbierta a una etiqueta, eso lo pude hacer de un text box pero necesito
ayuda para crear la etiqueta de un combo box

Realmente necesito su ayuda..
Gracias

Para la primera parte de tu consulta, selecciona el ComboBox > Ver
Código e incorpora el siguiente código:

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Range([Sheet1!A3], [Sheet1!
A3].End( xlDown )).Address( External:=True)
End Sub

Y con referencia a la seguna parte de tu consulta: no entiendo a que
llamas "Etiqueta de un ComboBox"

Saludos