LABORATORIO DE COMPUTACION: 2017

1. creamos botón en excel
Sub Botón1_Haga_clic_en()
UserForm1.Show

End Sub 'esto es para llamar al formulario'

____________________________________________
Private Sub CommandButton1_Click()
If TextBox2.Text = "heber" And TextBox1.Text = "1234" Then
MsgBox "Bienvenido Heber"
Load menu 'LLAMO A LA SIGUIENTE VENTANA'
Unload UserForm1 'OCULTO LA VENTANA A NO VISUALIZAR'
menu.Show 'ACTIVO A LA VENTANA SIGUIENTA A TRABAJAR'
Else
MsgBox "datos incorrectos"
TextBox1.Text = ""
TextBox2.Text = ""
End If

End Sub
_________________________________________________________________________________
en el botón guardar necesitamos este código

Private Sub CommandButton2_Click()
registro
Sheets("datos").Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.Text
Cells(ult + 1, 2) = TextBox2.Text
Cells(ult + 1, 3) = TextBox3.Text
Cells(ult + 1, 4) = TextBox4.Text
Cells(ult + 1, 5) = TextBox5.Text
Cells(ult + 1, 6) = TextBox6.Text

End Sub
___________________________________________________________
con el modulo trabajamos lo siguiente
Sub registro()
IDPRODUCTO = UserForm1.TextBox1.Text
CATEGORIA = UserForm1.TextBox2.Text
PRODUCTO = UserForm1.TextBox3.Text
CANTIDAD_INGRESADA = UserForm1.TextBox4.Text
PRECIO_UNIT = Val(UserForm1.TextBox5.Text)
Total = Val(UserForm1.TextBox6.Text)

End Sub

___________________________________________ y listo a guardar datos...
________________________________________________________________________________________________________________________________________________________________
CONSULTAR

Private Sub ComboBox1_Change()
Sheets("Hoja1").Activate
Cells(ComboBox1.ListIndex + 2, 1).Select 'carga el listado tomando en cuenta fila 2 y columna 1 como base'
TextBox1.Text = ActiveCell.Offset(0, 1) 'Avanza una columna (derecha)'
TextBox2.Text = ActiveCell.Offset(0, 2) 'Avanza dos columna (derecha)'
TextBox3.Text = ActiveCell.Offset(0, 3) 'Avanza tres columna (derecha)'
End Sub
Private Sub ComboBox1_Enter()
Cargardatos
End Sub
Sub Cargardatos()
ComboBox1.Clear
Sheets("Hoja1").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell) ' es un bucle Hacer mientras se cumpla la condición.'
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select 'Avanza una fila (abajo)'
Loop
End Sub

IdProducto	NombreProducto	Proveedor	Categoría	PrecioUnidad	EXISTENCIAS	PEDIDOS
1	Té Dharamsala	Exotic Liquids	Bebidas	Q -	39	0
2	Cerveza tibetana Barley	Exotic Liquids	Bebidas	Q 19.00	17	40
3	Sirope de regaliz	Exotic Liquids	Condimentos	Q 10.00	13	70
4	Especias Cajun del chef Anton	New Orleans Cajun Delights	Condimentos	Q 22.00	53	0
5	Mezcla Gumbo del chef Anton	New Orleans Cajun Delights	Condimentos	Q 21.35	0	0
6	Mermelada de grosellas de la abuela	Grandma Kelly's Homestead	Condimentos	Q 25.00	120	0
7	Peras secas orgánicas del tío Bob	Grandma Kelly's Homestead	Frutas/Verduras	Q 30.00	15	0
8	Salsa de arándanos Northwoods	Grandma Kelly's Homestead	Condimentos	Q 40.00	6	0
9	Buey Mishi Kobe	Tokyo Traders	Carnes	Q 97.00	29	0
10	Pez espada	Tokyo Traders	Pescado/Marisco	Q 31.00	31	0
11	Queso Cabrales	Cooperativa de Quesos 'Las Cabras'	Lácteos	Q 21.00	22	30
12	Queso Manchego La Pastora	Cooperativa de Quesos 'Las Cabras'	Lácteos	Q 38.00	86	0
13	Algas Konbu	Mayumi's	Pescado/Marisco	Q 6.00	24	0
14	Cuajada de judías	Mayumi's	Frutas/Verduras	Q 23.25	35	0
15	Salsa de soja baja en sodio	Mayumi's	Condimentos	Q 15.50	39	0
16	Postre de merengue Pavlova	Pavlova, Ltd.	Repostería	Q 17.45	29	0
17	Cordero Alice Springs	Pavlova, Ltd.	Carnes	Q 39.00	0	0
18	Langostinos tigre Carnarvon	Pavlova, Ltd.	Pescado/Marisco	Q 62.50	42	0
19	Pastas de té de chocolate	Specialty Biscuits, Ltd.	Repostería	Q 9.20	25	0
20	Mermelada de Sir Rodney's	Specialty Biscuits, Ltd.	Repostería	Q 81.00	40	0
21	Bollos de Sir Rodney's	Specialty Biscuits, Ltd.	Repostería	Q 10.00	3	40
22	Pan de centeno crujiente estilo Gustaf's	PB Knäckebröd AB	Granos/Cereales	Q 21.00	104	0
23	Pan fino	PB Knäckebröd AB	Granos/Cereales	Q 9.00	61	0
24	Refresco Guaraná Fantástica	Refrescos Americanas LTDA	Bebidas	Q 4.50	20	0
25	Crema de chocolate y nueces NuNuCa	Heli Süßwaren GmbH & Co. KG	Repostería	Q 14.00	76	0
26	Ositos de goma Gumbär	Heli Süßwaren GmbH & Co. KG	Repostería	Q 31.23	15	0
27	Chocolate Schoggi	Heli Süßwaren GmbH & Co. KG	Repostería	Q 43.90	49	0
28	Col fermentada Rössle	Plutzer Lebensmittelgroßmärkte AG	Frutas/Verduras	Q 45.60	26	0
29	Salchicha Thüringer	Plutzer Lebensmittelgroßmärkte AG	Carnes	Q 123.79	0	0
30	Arenque blanco del noroeste	Nord-Ost-Fisch Handelsgesellschaft mbH	Pescado/Marisco	Q 25.89	10	0
31	Queso gorgonzola Telino	Formaggi Fortini s.r.l.	Lácteos	Q 12.50	0	70
32	Queso Mascarpone Fabioli	Formaggi Fortini s.r.l.	Lácteos	Q 32.00	9	40
33	Queso de cabra	Norske Meierier	Lácteos	Q 2.50	112	0
34	Cerveza Sasquatch	Bigfoot Breweries	Bebidas	Q 14.00	111	0
35	Cerveza negra Steeleye	Bigfoot Breweries	Bebidas	Q 18.00	20	0
36	Escabeche de arenque	Svensk Sjöföda AB	Pescado/Marisco	Q 19.00	112	0
37	Salmón ahumado Gravad	Svensk Sjöföda AB	Pescado/Marisco	Q 26.00	11	50
38	Vino Côte de Blaye	Aux joyeux ecclésiastiques	Bebidas	Q 263.50	17	0
39	Licor verde Chartreuse	Aux joyeux ecclésiastiques	Bebidas	Q 18.00	69	0
40	Carne de cangrejo de Boston	New England Seafood Cannery	Pescado/Marisco	Q 18.40	123	0
41	Crema de almejas estilo Nueva Inglaterra	New England Seafood Cannery	Pescado/Marisco	Q 9.65	85	0
42	Tallarines de Singapur	Leka Trading	Granos/Cereales	Q 14.00	26	0
43	Café de Malasia	Leka Trading	Bebidas	Q 46.00	17	10
44	Azúcar negra Malacca	Leka Trading	Condimentos	Q 19.45	27	0
45	Arenque ahumado	Lyngbysild	Pescado/Marisco	Q 9.50	5	70
46	Arenque salado	Lyngbysild	Pescado/Marisco	Q 12.00	95	0
47	Galletas Zaanse	Zaanse Snoepfabriek	Repostería	Q 9.50	36	0
48	Chocolate holandés	Zaanse Snoepfabriek	Repostería	Q 12.75	15	70
49	Regaliz	Karkki Oy	Repostería	Q 20.00	10	60
50	Chocolate blanco	Karkki Oy	Repostería	Q 16.25	65	0
51	Manzanas secas Manjimup	G'day, Mate	Frutas/Verduras	Q 53.00	20	0
52	Cereales para Filo	G'day, Mate	Granos/Cereales	Q 7.00	38	0
53	Empanada de carne	G'day, Mate	Carnes	Q 32.80	0	0
54	Empanada de cerdo	Ma Maison	Carnes	Q 7.45	21	0
55	Paté chino	Ma Maison	Carnes	Q 24.00	115	0
56	Gnocchi de la abuela Alicia	Pasta Buttini s.r.l.	Granos/Cereales	Q 38.00	21	10
57	Raviolis Angelo	Pasta Buttini s.r.l.	Granos/Cereales	Q 19.50	36	0
58	Caracoles de Borgoña	Escargots Nouveaux	Pescado/Marisco	Q 13.25	62	0
59	Raclet de queso Courdavault	Gai pâturage	Lácteos	Q 55.00	79	0
60	Camembert Pierrot	Gai pâturage	Lácteos	Q 34.00	19	0
61	Sirope de arce	Forêts d'érables	Condimentos	Q 28.50	113	0
62	Tarta de azúcar	Forêts d'érables	Repostería	Q 49.30	17	0
63	Sandwich de vegetales	Pavlova, Ltd.	Condimentos	Q 43.90	24	0
64	Bollos de pan de Wimmer	Plutzer Lebensmittelgroßmärkte AG	Granos/Cereales	Q 33.25	22	80
65	Salsa de pimiento picante de Luisiana	New Orleans Cajun Delights	Condimentos	Q 21.05	76	0
66	Especias picantes de Luisiana	New Orleans Cajun Delights	Condimentos	Q 17.00	4	100
67	Cerveza Laughing Lumberjack	Bigfoot Breweries	Bebidas	Q 14.00	52	0
68	Barras de pan de Escocia	Specialty Biscuits, Ltd.	Repostería	Q 12.50	6	10
69	Queso Gudbrandsdals	Norske Meierier	Lácteos	Q 36.00	26	0
70	Cerveza Outback	Pavlova, Ltd.	Bebidas	Q 15.00	15	10
71	Crema de queso Fløtemys	Norske Meierier	Lácteos	Q 21.50	26	0
72	Queso Mozzarella Giovanni	Formaggi Fortini s.r.l.	Lácteos	Q 34.80	14	0
73	Caviar rojo	Svensk Sjöföda AB	Pescado/Marisco	Q 15.00	101	0
74	Queso de soja Longlife	Tokyo Traders	Frutas/Verduras	Q 10.00	4	20
75	Cerveza Klosterbier Rhönbräu	Plutzer Lebensmittelgroßmärkte AG	Bebidas	Q 7.75	125	0
76	Licor Cloudberry	Karkki Oy	Bebidas	Q 18.00	57	0
77	Salsa verde original Frankfurter	Plutzer Lebensmittelgroßmärkte AG	Condimentos	Q 13.00	32	0

LABORATORIO DE COMPUTACION

domingo, 6 de agosto de 2017

LOGOTIPOS

AFICHES EJEMPLOS

jueves, 16 de marzo de 2017

SI ANIDADOS EN EXCEL

lo gin en vba excel

jueves, 16 de febrero de 2017

viernes, 10 de febrero de 2017

EJEMPLO DE FICHA PERSONAL

jueves, 2 de febrero de 2017

PRODUCTOS ALMACEN