VBA Excel: Filtros Automáticos, Acceso con Clave y Registro en UserForm
Classified in Arts and Humanities
Written on in 
English with a size of 3.59 KB
Ejercicio 1
Filtrar datos con AutoFilter
Private Sub CB_FILTRAR_Click()
Range("DATOS").AutoFilter
Range("DATOS").AutoFilter field:=3, Criteria1:="<=" & SCB_ARRIENDO.Value
Range("DATOS").AutoFilter field:=5, Criteria1:=">=" & SB_HABIT.Value
Range("DATOS").AutoFilter field:=2, Criteria1:="<=" & SB_DUEÑOS.Value
Range("DATOS").AutoFilter field:=5, Criteria1:=">=" & SB_HABIT.Value
Range("DATOS").AutoFilter field:=6, Criteria1:=">=" & SB_BAÑOS.Value
If CBOX_UBICACION.Value <> "TODAS" Then
Range("DATOS").AutoFilter field:=7, Criteria1:=CBOX_UBICACION.Value
End If
End Sub
Para agregar todas las ubicaciones, agregar lista de ciudades y luego en el ComboBox poner ListFillRange con el nombre de la columna.
Usar LinkedCell para los ScrollBars de arriendo y el resto solo con SpinButton.
Private Sub CB_RESETEAR_Click()
Range("DATOS").AutoFilter
End Sub
Certamen Anfiteatro
Ingreso con clave
Private Sub CommandButton1_Click()
If TextBox1 = "SATD1" And TextBox2 = "123" Then
MsgBox "BIENVENIDO AL FORMULARIO"
Load UserForm2
UserForm2.Show
Else
R = MsgBox("Usuario y/o clave incorrecta", vbInformation, "ERROR")
End If
If TextBox1 = "SATD2" And TextBox2 = "1234" Then
MsgBox "BIENVENIDO AL FORMULARIO"
Load UserForm2
UserForm2.Show
Else
R = MsgBox("Usuario y/o clave incorrecta", vbInformation, "ERROR")
End If
UserForm de registro
Private Sub CommandButton1_Click()
ActiveSheet.Cells(34, 4).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(34, 4) = TextBox1.Value
ActiveSheet.Cells(34, 5) = Format(Date, "Short Date")
ActiveSheet.Cells(34, 6) = Format(Time, "Short Time")
ActiveSheet.Cells(34, 7) = TextBox4
ActiveSheet.Cells(34, 8) = TextBox5.Value & "-" & ComboBox1
ActiveSheet.Cells(34, 9) = TextBox6.Value
If OptionButton1 = True Then
ActiveSheet.Cells(34, 10) = "MASCULINO"
End If
If OptionButton2 = True Then
ActiveSheet.Cells(34, 10) = "FEMENINO"
End If
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
ComboBox1 = Empty
OptionButton1 = Empty
OptionButton2 = Empty
ActiveSheet.Cells(33, 7).Select
End Sub
TextBox1 = Empty
TextBox2 = Empty
End Sub
Salir del sistema
Private Sub CommandButton2_Click()
T = MsgBox("¿DESEA SALIR DEL SISTEMA?", vbOKCancel)
If T = True Then
End
End If
End Sub