SI ANIDADOS EN EXCEL

=SI(Y(C3>=5,D3>=5,E3<=10),"SI APROBADO","NO APROBADO")



=SI(C6=$F$4,$H$4,SI(C6=$F$5,$H$5,SI(C6=$F$6,$H$6)))

lo gin en vba excel

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