useform para capturar

[polboy_mx]

hola a todos tengo esta hoja donde deseo crear un USEFORM con varios COMBOBOX para ingresar los datos en la misma hoja, uso un "rango" en ROWSOURCE para jalar los datos a seleccionar pero me falta el detalle de como hacer para que "caigan" en la ultima linea de los registros, seria al final del USEFORM on COMMAND BUTTON donde acepte la entrada o pudiera regresar para corregir y generar un USEFORM en blanco

 

[polboy_mx]

la hoja

PRODUCTOS X CLIENTE v 1.01 MAYO 2006.xls
	A	B	C	D	E	F	G	H
1
2
3	ID	NOMBRECLIENTE	PRODUCTO	CANT	MN.	DLS.	DATE	FACT
4
5	0221	MANUFACTURERADEROPASALTANI,S.A.DEC.V.	ADHESIVATRANSTHERM1.93X1.50BC/I2TCOPPEL[2,000]	7.5	35.00		21-Jun-06	4488
6	0462	PRODUCTOSMANUELJOSE,S.A.DEC.V.(CULIACAN)	ETIQUETAI.P.S.TRAC21X12BC/IMP"BLANCAS"[1,000]	400	5.00		04-May-06	4258
7	0927	ALUMINIOCONESASA.DECV.	ADHESIVATRANSTHERM2.00X4.00BCAC/IAMARILLA[1,000]	2	64.00		04-May-06	4257
8	0234	ARTICULOSPOPULARESDELHOGARS.A.DEC.V	ADHESIVATERMICADIRECTA2.00X1.00BS/I[3,000]	60	24.20		30-Abr-06	4248
9	0219	UNIDADDEENSEANZAEINVESTIGACIONSANJAVIER,A.C.	ADHESIVAPOLIESTER3.00X1.00TRANSPBOPP[3,000]	1	0.00		30-Abr-06	4246
10	0219	UNIDADDEENSEANZAEINVESTIGACIONSANJAVIER,A.C.	RIBBONELTRONCERA110MMS.X74MTS.	2		3.85	30-Abr-06	4246
11	0984	PROMEDICAGARCIASA.DECV.	ADHESIVATRANSTHERM2.00X1.00BCAS/I[2,000]	10	22.00		28-Abr-06	4236
12	0984	PROMEDICAGARCIASA.DECV.	RIBBONELTRONCERA64MMS.X74MTS.	5		2.50	28-Abr-06	4236
13	0039	HOSPITALSANJAVIER,S.A.DEC.V.	ADHESIVATRANSTHERM1.97X0.59BCAS/I[4,000]	8	43.00		28-Abr-06	4234
14	0039	HOSPITALSANJAVIER,S.A.DEC.V.	RIBBONELTRONCERA110MMS.X74MTS.	2		3.85	28-Abr-06	4234
15	1063	LEMUSRAMIREZMARISA	ADHESIVATRANSTHERM4.00X5.00BCAS/IC/PREC[500]	5	185.00		28-Abr-06	4233
16	1063	LEMUSRAMIREZMARISA	RIBBONELTRONCERA110MMS.X91MTS.	5	42.00		28-Abr-06	4233
17	0037	GABRIELASKUTSCHDIAZ	AGUJAMETALICADENISSONSTANDARD	10	19.00		28-Abr-06	4232
18	0037	GABRIELASKUTSCHDIAZ	PLASTIFLECHA9.00"CANDADOLISO[5,000]	15	26.80		28-Abr-06	4232
19	0037	GABRIELASKUTSCHDIAZ	PLASTIFLECHADORAGENERICASTDHD-8S(AG/DEN/MET)	1	120.00		28-Abr-06	4232
20	0803	MERBATEXS.A.DEC.V.	MAQUILAETIQUETAADHESIVA	30	65.00		27-Abr-06	4230
pxk

 

[Greg Truby]

Bueno,

La forma más sencilla es encontrar la última celda y añadir. Eso no es gran cosa. La fuerza de usar un UserForm en vez del formulario que Excel ya ofrece en el menú de Datos es la habilidad de programar verificaciones, vínculos, etc. en el userform. Aquí le doy un ejemplo bien sencillo. Note que utilizo ENUM pero si los usuarios tienen Excel 97 hay que user CONST en vez de ENUM. El uso de ENUM (o CONST) no es exigido. Lo hago porque se hace la vida más fácil si cambia la estructura de la hoja. Si usted después decide insertar, mover o suprimir una columna es nada más de editar las definiciones de los constantes y ya. Pero si uno programs números de columnas dentro de los subroutines, hay que ir y buscar cada juepu** de ellos y no es muy divertido.

En el UserForm

Private Sub btnOK_Click()
      
    Dim lngNewRow As Long

    lngNewRow = MyLastCell.Row + 1
    With Me
        Cells(lngNewRow, ge_CustColDefs.Nombre) = .tbxNombre
        Cells(lngNewRow, ge_CustColDefs.Producto) = .cbxProducto.Text
        .Hide
    End With
End Sub

En un modulo normal

Option Explicit

Public Enum ge_CustColDefs
    NumID = 1
    Nombre
    Producto
End Enum

Sub ProbarUserForm()
    UserForm1.Show
    Unload UserForm1
End Sub

Public Function MyLastCell(Optional ws As Worksheet) As Range
    Dim LastRow&, LastCol%
    
    ' Error-handling is here in case there is not any
    ' data in the worksheet
    
    On Error Resume Next
    If ws Is Nothing Then Set ws = ActiveSheet
    
    With ws
    
        ' Find the real last row
        LastRow = .Cells.Find(What:="*", _
            SearchDirection:=xlPrevious, _
            SearchOrder:=xlByRows).Row
            
        ' Find the real last column
        LastCol = .Cells.Find(What:="*", _
            SearchDirection:=xlPrevious, _
            SearchOrder:=xlByColumns).Column
            
    End With
    
    Set MyLastCell = ws.Cells(Application.WorksheetFunction.Max(1, LastRow), _
                              Application.WorksheetFunction.Max(1, LastCol))
            
End Function

Note que MyLastCell no asegura que activesheet sea un worksheet. Si exist la posibilidad de que activesheet sea un chart sheet habrá que programar una verificación de tipo de hoja.

 

[polboy_mx]

Fue demasiado!!

Greg, muchas gracias por la respuesta pero la verdad fue demasiado para mi, estoy tratando de ligar un combobox para que con el "Id" del cliente me pase los datos "nombre del cliente" a un listbox, creo... hasta ahi me quede porque no he terminado mi useform , la verdad no manejo Vb a la perfeccion y me detengo a leer en el forum antes de preguntar pero solo vi como hacer que un combobox repita los datos de otro combobox

 

[polboy_mx]

Greg:

Private Sub btnOK_Click()
' agrego un comand button llamado OK?
Dim lngNewRow As Long

lngNewRow = MyLastCell.Row + 1
With Me
Cells(lngNewRow, ge_CustColDefs.Nombre) = .tbxNombre
' agrego un textbox Nombre?
Cells(lngNewRow, ge_CustColDefs.Producto) = .cbxProducto.Text
' agrego un combobox producto?

.Hide
End With
End Sub

 

[Greg Truby]

Polboy,

Eso que puse fue nada más un ejemplo. No puedo decirle qué poner o no poner dado que no sé qué es lo que desea hacer exactamente. Lo bonito de VBA es que usted puede construir el userform mientras aprendre como programar.

Acerca de los nombres de los controles, por lo general uso una versión de la Hungarian convention que describe Gregory Reddick aquí. Me parece que usted ya se ha dado cuenta con leer lo que escribí; con usar un sistema para eso se hace mucho más fácil comprender -- usted pudo adivinar qué tipo de control era cada objeto con solo ver el nombre.

Mientras desarrolla su userform -- especialmente sus primeros mientras anda aprendiendo -- no olvide del dicho sobre como uno come un elefante, «mordisco por mordisco». No hay que comerlo todo en una sola cena. Entonces hazlo paso por paso y si choca con algo que no puede resolver solo, pregunte aquí otra vez y uno de nosotros, los miembros, trata de ayudarle.

Saludos,

 

[polboy_mx]

De acuerdo Señor

Asi es Greg, como dices poco a poco aunque quienes no dominamos a fondo esto de la programacion, pues a veces quisieramos comernos el pastel a una sola mordida com dices, pero comparto tu idea de aprender haciendo lectura y ejercitando, ahora si que me la paso a prueba y error y asi me ha resultado bastante productivo al grado de dedicarle mas minutos cada dia a esto del vb...y gracias a todos los que postean sus preguntas y opiniones aprendemos mas cada vez...respecto a lo que buscaba en el foro y no pude encontrar es sobre como hacer que al seleccionar el ID con un combobox esta accion haga que el NOMBRE se registre en un (textbox o combobox)...seguire buscando...

 

[josevaldesv]

y cómo se pone a funcionar?

y cómo se hace para que salga la ventanita del user form?

 

[Greg Truby]

José,

No entiendo muy bien a qué refiere usted con «ventanita». ¿Pregunta usted cómo hace el usuario para salir de un control tipo "textbox"? Con una flecha o con teclar "tab". ¿O pregunta usted cómo hace el usario para cerrar el UserForm en sí? Con un botón, que generalmente dice "OK" [¿¿«aceptar»??]. Se puede usar código VBA para ver si el usario cerró el formulario con el botón "X" en la esquina superior derecha. O se puede poner otro botón «cancelar». Los botones diciendo algo como:

Private Sub btnOK_Click()
    Me.Hide
    g_booCancelar = False
End Sub

Private Sub btnCancel_Click()
    Me.Hide
    g_booCancelar = True
End Sub

Donde g_booCancelar es un variable público de tipo 'boolean' definido en un "standard module".

Atte,

 

[josevaldesv]

Greg,

Mi pregunta estuvo mal estipulada.
En realidad es: How do I get to produce a pop-up window (userform) and link it to a macro?
¿Cómo puedo hacer que salga la userform pop-up window ("ventanita"), y que los botones que tenga corran una macro?

Estoy muy perdido aquí..