Excel - Captura de datos

   
Vista:

Captura de datos

Publicado por shaoran (1 intervención) el 05/06/2009 01:19:12
Es hoja con tres apartados...

Hoja 1 (Donde van las cajas de texto y boton de comando,
donde se capturan los datos...

Proveedores (Donde vienen los datos de los proveedores..)

Inventario: En donde se van a guardar los datos que se ingresen
en la hoja 1...

Tengo el codigo, pero no logro hacer k funcione,
solo guarda la fecha T_T....

================================================================
Private Sub CommandButton1_Click()

'declare aqui todas sus variables
'Dim sirve para declarar variabeles
Dim X
Dim Direccion_rango As String
Dim proveedor As String
Dim materia As String

'despliegue de mensje de error X para cuando falta informacion
'if sirve para declara un siclo si, como condicional, "" indica un valor nulo

If TextBox1.Text = "" Then
X = MsgBox("Faltan datos", vbOKOnly)
'exit sub termina la rutina
Exit Sub
'end if termina el siclo if
End If

+Cajas de Texto*

*sacar celdas vacias*

With Hoja3.Range("a1:a500")
Set c = .Find("", LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Direccion_rango = firstaddress
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

rangovacio = Mid(Direccion_rango, 4)

'*nsertar fecha
guarda los datos en casilla a y el rangovacio quedando como casilla a2 por default
Fecha = "a$" & rangovacio*

Hoja3.Range(Fecha) = Hoja1.TextBox1.Text

*hacer para unidades, materia, proveedor*

'opercacion de entradas por unidad
'detectar precio de materia segun tabla
'empezar por proveedor'
'guarda valor del proveedor_rango, parte final del rango para el costo unitario
proveedor_rango = (TextBox2.Text) + 1
'sacar materia
materia = (Hoja1.TextBox4.Text)
If materia = "mat1" Then valor_unidad = Hoja2.Range("c$" & proveedor_rango)

'hacer o mismo para mat2 y mat3, tenga cuidado de poner los nombres a las materias correctamente, cambiando c$ por el rango adecuado
'multiplicacion
dinero = valor_unidad * Hoja1.TextBox3.Text
'detectar entrada
If Hoja1.TextBox5 = "E" Then
Hoja3.Range("d$" & rangovacio) = dinero
Else
Hoja3.Range("e$" & rangovacio) = dinero
End If
'Sacar totales

total = (Hoja3.Range("d$" & rangovacio) - Hoja3.Range("e$" & rangovacio)) + Hoja3.Range("f$2")

Hoja3.Range("f$2") = total
If total >= 20000 Then
'esto eviat que nos exedamos en las compras a ams de 20,000 de almacen
'haga lo mismo en todas las cajas
Hoja1.TextBox1.Enabled = False

Espero alguien me pueda ayudar ^^

saludos ^^
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder