Menu de inicio:
Private Sub Configuraciones_Click()
Application.Visible = True
Unload Me
End Sub
Private Sub Registro_Click()
Call CallRegistro
End Sub
Private Sub Inventario_Click()
Call CallInventario
End Sub
Private Sub Salir_Click()
Unload Me
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)
LabelRegistro.Visible = False
LabelInventario.Visible = False
LabelConfiguraciones.Visible = False
LabelSalir.Visible = False
End Sub
Private Sub Registro_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)
LabelRegistro.Visible = True
LabelInventario.Visible = False
LabelConfiguraciones.Visible = False
LabelSalir.Visible = False
End Sub
Private Sub Inventario_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)
LabelRegistro.Visible = False
LabelInventario.Visible = True
LabelConfiguraciones.Visible = False
LabelSalir.Visible = False
End Sub
Private Sub Configuraciones_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)
LabelRegistro.Visible = False
LabelInventario.Visible = False
LabelConfiguraciones.Visible = True
LabelSalir.Visible = False
End Sub
Private Sub Salir_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)
LabelRegistro.Visible = False
LabelInventario.Visible = False
LabelConfiguraciones.Visible = False
LabelSalir.Visible = True
End Sub
Modificar:
Private Sub CmdCerrarModificar_Click()
Unload Me
End Sub
Private Sub CmdBuscarRegistro_Click()
Dim UltimaFila As Variant
Dim FILADOC As Variant
UltimaFila = Sheets("Inventario").Range("B" & Rows.Count).End(xlUp).Row
For FILADOC = 3 To UltimaFila
If Sheets("Inventario").Range("B" & FILADOC).Value Like Me.TxtCodigo2.Value Then
Me.TxtCoordinacion2.Value = Sheets("Inventario").Range("C" & FILADOC)
Me.TxtTipoEquipo2.Value = Sheets("Inventario").Range("D" & FILADOC)
Me.TxtProcesador2.Value = Sheets("Inventario").Range("E" & FILADOC)
Me.TxtMemoriaRAM2.Value = Sheets("Inventario").Range("F" & FILADOC)
Me.TxtDiscoDuro2.Value = Sheets("Inventario").Range("G" & FILADOC)
Me.TxtFuentePoder2.Value = Sheets("Inventario").Range("H" & FILADOC)
Me.TxtSistemaOperativo2.Value = Sheets("Inventario").Range("I" & FILADOC)
Me.TxtCbSeEquipo2.Value = Sheets("Inventario").Range("J" & FILADOC)
Me.TxtMonitor2.Value = Sheets("Inventario").Range("K" & FILADOC)
Me.TxtCbSeMonitor2.Value = Sheets("Inventario").Range("L" & FILADOC)
Me.TxtTeclado2.Value = Sheets("Inventario").Range("M" & FILADOC)
Me.TxtCbSeTeclado2.Value = Sheets("Inventario").Range("N" & FILADOC)
Me.TxtRaton2.Value = Sheets("Inventario").Range("O" & FILADOC)
Me.TxtCbSeRaton2.Value = Sheets("Inventario").Range("P" & FILADOC)
Me.TxtImpresora2.Value = Sheets("Inventario").Range("Q" & FILADOC)
Me.TxtCbSeImpresora2.Value = Sheets("Inventario").Range("R" & FILADOC)
Me.TxtCornetas2.Value = Sheets("Inventario").Range("S" & FILADOC)
Me.TxtCbSeCornetas2.Value = Sheets("Inventario").Range("T" & FILADOC)
Me.TxtWifi2.Value = Sheets("Inventario").Range("U" & FILADOC)
Me.TxtCbSeWifi2.Value = Sheets("Inventario").Range("V" & FILADOC)
Me.TxtSwitch2.Value = Sheets("Inventario").Range("W" & FILADOC)
Me.TxtCbSeSwitch2.Value = Sheets("Inventario").Range("X" & FILADOC)
End If
Next FILADOC
End Sub
Private Sub CmdModificarRegistro_Click()
Dim Fila As Variant
Dim Linea As Variant
Dim ValorBuscado As Variant
ValorBuscado = Me.TxtCodigo2.Value
Set Fila = ThisWorkbook.Sheets("Inventario").Range("B:B").Find(ValorBuscado, lookAt:=xlWhole)
Linea = Fila.Row
ThisWorkbook.Sheets("Inventario").Range("C" & Linea).Value = Me.TxtCoordinacion2
ThisWorkbook.Sheets("Inventario").Range("D" & Linea).Value = Me.TxtTipoEquipo2
ThisWorkbook.Sheets("Inventario").Range("E" & Linea).Value = Me.TxtProcesador2
ThisWorkbook.Sheets("Inventario").Range("F" & Linea).Value = Me.TxtMemoriaRAM2
ThisWorkbook.Sheets("Inventario").Range("G" & Linea).Value = Me.TxtDiscoDuro2
ThisWorkbook.Sheets("Inventario").Range("H" & Linea).Value = Me.TxtFuentePoder2
ThisWorkbook.Sheets("Inventario").Range("I" & Linea).Value = Me.TxtSistemaOperativo2
ThisWorkbook.Sheets("Inventario").Range("J" & Linea).Value = Me.TxtCbSeEquipo2
ThisWorkbook.Sheets("Inventario").Range("K" & Linea).Value = Me.TxtMonitor2
ThisWorkbook.Sheets("Inventario").Range("L" & Linea).Value = Me.TxtCbSeMonitor2
ThisWorkbook.Sheets("Inventario").Range("M" & Linea).Value = Me.TxtTeclado2
ThisWorkbook.Sheets("Inventario").Range("N" & Linea).Value = Me.TxtCbSeTeclado2
ThisWorkbook.Sheets("Inventario").Range("O" & Linea).Value = Me.TxtRaton2
ThisWorkbook.Sheets("Inventario").Range("P" & Linea).Value = Me.TxtCbSeRaton2
ThisWorkbook.Sheets("Inventario").Range("Q" & Linea).Value = Me.TxtCornetas2
ThisWorkbook.Sheets("Inventario").Range("R" & Linea).Value = Me.TxtCbSeCornetas2
ThisWorkbook.Sheets("Inventario").Range("S" & Linea).Value = Me.TxtImpresora2
ThisWorkbook.Sheets("Inventario").Range("T" & Linea).Value = Me.TxtCbSeImpresora2
ThisWorkbook.Sheets("Inventario").Range("U" & Linea).Value = Me.TxtWifi2
ThisWorkbook.Sheets("Inventario").Range("V" & Linea).Value = Me.TxtCbSeWifi2
ThisWorkbook.Sheets("Inventario").Range("W" & Linea).Value = Me.TxtSwitch2
ThisWorkbook.Sheets("Inventario").Range("X" & Linea).Value = Me.TxtCbSeSwitch2
Me.TxtCodigo2.Value = Empty
Me.TxtCoordinacion2.Value = Empty
Me.TxtTipoEquipo2.Value = Empty
Me.TxtProcesador2.Value = Empty
Me.TxtMemoriaRAM2.Value = Empty
Me.TxtDiscoDuro2.Value = Empty
Me.TxtFuentePoder2.Value = Empty
Me.TxtSistemaOperativo2.Value = Empty
Me.TxtCbSeEquipo2.Value = Empty
Me.TxtMonitor2.Value = Empty
Me.TxtCbSeMonitor2.Value = Empty
Me.TxtTeclado2.Value = Empty
Me.TxtCbSeTeclado2.Value = Empty
Me.TxtRaton2.Value = Empty
Me.TxtCbSeRaton2.Value = Empty
Me.TxtCornetas2.Value = Empty
Me.TxtCbSeCornetas2.Value = Empty
Me.TxtImpresora2.Value = Empty
Me.TxtCbSeImpresora2.Value = Empty
Me.TxtWifi2.Value = Empty
Me.TxtCbSeWifi2.Value = Empty
Me.TxtSwitch2.Value = Empty
Me.TxtCbSeSwitch2.Value = Empty
Me.TxtCodigo2.SetFocus
MsgBox "Modificacion Exitosa"
End Sub
Private Sub UserForm_Click()
End Sub
Registro:
Option Explicit
Private Sub CmdCerrarRegistro_Click()
Unload Me
End Sub
Private Sub CmdCrearRegistro_Click()
Dim UltimaFila As Variant
Dim Repetido As Variant
If TxtCodigo = Empty And TxtCoordinacion = Empty And TxtTipoEquipo = Empty And TxtProcesador
= Empty And TxtMemoriaRAM = Empty And TxtDiscoDuro = Empty And TxtFuentePoder = Empty
And TxtSistemaOperativo = Empty And TxtCbSeEquipo = Empty And TxtMonitor = Empty And
TxtCbSeMonitor = Empty And TxtTeclado = Empty And TxtCbSeTeclado = Empty And TxtRaton =
Empty And TxtCbSeRaton = Empty And TxtImpresora = Empty And TxtCbSeImpresora = Empty And
TxtCorneta = Empty And TxtCbSeCorneta = Empty And TxtWifi = Empty And TxtCbSeWifi = Empty
And TxtSwitch = Empty And TxtCbSeSwitch = Empty Then
MsgBox "Para Registrar Completa Todos los Campos.", vbCritical, "Campos Vacios !!"
Exit Sub
End If
If TxtCodigo = Empty Then
MsgBox "Por Favor, Complete El Campo Codigo.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCoordinacion = Empty Then
MsgBox "Por Favor, Complete El Campo Coordinación.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtTipoEquipo = Empty Then
MsgBox "Por Favor, Complete El Campo Tipo de Equipo.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtProcesador = Empty Then
MsgBox "Por Favor, Complete El Campo Procesador.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtMemoriaRAM = Empty Then
MsgBox "Por Favor, Complete El Campo Memoria RAM.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtDiscoDuro = Empty Then
MsgBox "Por Favor, Complete El Campo Disco Duro.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtFuentePoder = Empty Then
MsgBox "Por Favor, Complete El Campo Fuente de Poder.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtSistemaOperativo = Empty Then
MsgBox "Por Favor, Complete El Campo Sistema Operativo.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeEquipo = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Equipo.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtMonitor = Empty Then
MsgBox "Por Favor, Complete El Campo Monitor.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeMonitor = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Monitor.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtTeclado = Empty Then
MsgBox "Por Favor, Complete El Campo Teclado.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeTeclado = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Teclado.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtRaton = Empty Then
MsgBox "Por Favor, Complete El Campo Raton.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeRaton = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Raton.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtImpresora = Empty Then
MsgBox "Por Favor, Complete El Campo Impresora.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeImpresora = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Impresora.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCorneta = Empty Then
MsgBox "Por Favor, Complete El Campo Cornetas.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeCorneta = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Cornetas.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtWifi = Empty Then
MsgBox "Por Favor, Complete El Campo Wifi.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeWifi = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Wifi.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtSwitch = Empty Then
MsgBox "Por Favor, Complete El Campo Switch.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
If TxtCbSeSwitch = Empty Then
MsgBox "Por Favor, Complete El Campo CB/SE - Switch.", vbExclamation, "Campos Vacios !"
Exit Sub
End If
Repetido = WorksheetFunction.CountIf(Sheets("Inventario").Range("B:B"), Me.TxtCodigo)
If Repetido = 1 Then
MsgBox "El Codigo Ya Existe"
Me.TxtCodigo.Value = Empty
Me.TxtCoordinacion.Value = Empty
Me.TxtTipoEquipo.Value = Empty
Me.TxtProcesador.Value = Empty
Me.TxtMemoriaRAM.Value = Empty
Me.TxtDiscoDuro.Value = Empty
Me.TxtFuentePoder.Value = Empty
Me.TxtSistemaOperativo.Value = Empty
Me.TxtCbSeEquipo.Value = Empty
Me.TxtMonitor.Value = Empty
Me.TxtCbSeMonitor.Value = Empty
Me.TxtTeclado.Value = Empty
Me.TxtCbSeTeclado.Value = Empty
Me.TxtRaton.Value = Empty
Me.TxtCbSeRaton.Value = Empty
Me.TxtImpresora.Value = Empty
Me.TxtCbSeImpresora.Value = Empty
Me.TxtCorneta.Value = Empty
Me.TxtCbSeCorneta.Value = Empty
Me.TxtWifi.Value = Empty
Me.TxtCbSeWifi.Value = Empty
Me.TxtSwitch.Value = Empty
Me.TxtCbSeSwitch.Value = Empty
Else
UltimaFila = Sheets("Inventario").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Inventario").Range("B" & UltimaFila) = Me.TxtCodigo
Sheets("Inventario").Range("C" & UltimaFila) = Me.TxtCoordinacion
Sheets("Inventario").Range("D" & UltimaFila) = Me.TxtTipoEquipo
Sheets("Inventario").Range("E" & UltimaFila) = Me.TxtProcesador
Sheets("Inventario").Range("F" & UltimaFila) = Me.TxtMemoriaRAM
Sheets("Inventario").Range("G" & UltimaFila) = Me.TxtDiscoDuro
Sheets("Inventario").Range("H" & UltimaFila) = Me.TxtFuentePoder
Sheets("Inventario").Range("I" & UltimaFila) = Me.TxtSistemaOperativo
Sheets("Inventario").Range("J" & UltimaFila) = Me.TxtCbSeEquipo
Sheets("Inventario").Range("K" & UltimaFila) = Me.TxtMonitor
Sheets("Inventario").Range("L" & UltimaFila) = Me.TxtCbSeMonitor
Sheets("Inventario").Range("M" & UltimaFila) = Me.TxtTeclado
Sheets("Inventario").Range("N" & UltimaFila) = Me.TxtCbSeTeclado
Sheets("Inventario").Range("O" & UltimaFila) = Me.TxtRaton
Sheets("Inventario").Range("P" & UltimaFila) = Me.TxtCbSeRaton
Sheets("Inventario").Range("Q" & UltimaFila) = Me.TxtImpresora
Sheets("Inventario").Range("R" & UltimaFila) = Me.TxtCbSeImpresora
Sheets("Inventario").Range("S" & UltimaFila) = Me.TxtCorneta
Sheets("Inventario").Range("T" & UltimaFila) = Me.TxtCbSeCorneta
Sheets("Inventario").Range("U" & UltimaFila) = Me.TxtWifi
Sheets("Inventario").Range("V" & UltimaFila) = Me.TxtCbSeWifi
Sheets("Inventario").Range("W" & UltimaFila) = Me.TxtSwitch
Sheets("Inventario").Range("X" & UltimaFila) = Me.TxtCbSeSwitch
Me.TxtCodigo.Value = Empty
Me.TxtCoordinacion.Value = Empty
Me.TxtTipoEquipo.Value = Empty
Me.TxtProcesador.Value = Empty
Me.TxtMemoriaRAM.Value = Empty
Me.TxtDiscoDuro.Value = Empty
Me.TxtFuentePoder.Value = Empty
Me.TxtSistemaOperativo.Value = Empty
Me.TxtCbSeEquipo.Value = Empty
Me.TxtMonitor.Value = Empty
Me.TxtCbSeMonitor.Value = Empty
Me.TxtTeclado.Value = Empty
Me.TxtCbSeTeclado.Value = Empty
Me.TxtRaton.Value = Empty
Me.TxtCbSeRaton.Value = Empty
Me.TxtImpresora.Value = Empty
Me.TxtCbSeImpresora.Value = Empty
Me.TxtCorneta.Value = Empty
Me.TxtCbSeCorneta.Value = Empty
Me.TxtWifi.Value = Empty
Me.TxtCbSeWifi.Value = Empty
Me.TxtSwitch.Value = Empty
Me.TxtCbSeSwitch.Value = Empty
End If
Me.TxtCodigo.SetFocus
MsgBox "Registro Exitoso"
End Sub
Private Sub UserForm_Click()
End Sub
Inventario:
Private Sub CmdCerrarInventario_Click()
Unload Me
End Sub
Private Sub LstCaracteristica_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Long
With Me.LstCaracteristica
X = .ListIndex
Modificar.TxtCodigo2.Text = .List(X, 0)
End With
Modificar.Show
End Sub
Private Sub rdbCodigos_Click()
Call MiModulo.ResetearLista
End Sub
Private Sub rdbCoordinacion_Click()
Call MiModulo.ResetearLista
End Sub
Private Sub TxtRegistro_Change()
Call MiModulo.RealizarFiltro
End Sub
Private Sub UserForm_Initialize()
Call MiModulo.CagarLista_Caracteristica
Call MiModulo.CagarLista_Perifericos
Call MiModulo.CagarLista_Interruptor
End Sub
Private Sub UserForm_Terminate()
Call MiModulo.QuitarFiltros
End Sub
Modulo:
Sub CallRegistro()
Registro.Show
End Sub
Sub CallInventario()
Load Inventario
Inventario.rdbCoordinacion.Value = True
Inventario.Show
End Sub
Sub QuitarFiltros()
Application.ScreenUpdating = False
Hoja1.ListObjects("InventarioTecnologico").ShowAutoFilter = False
Hoja1.ListObjects("InventarioTecnologico").ShowAutoFilter = True
Application.ScreenUpdating = True
End Sub
Sub CagarLista_Caracteristica()
On Error GoTo Depurar
With Inventario.LstCaracteristica
.Clear
.ColumnCount = 9
.ColumnHeads = True
.ColumnWidths = "60pt;230pt;270pt;100pt;200pt;200pt;200pt;170pt;170pt"
Dim Fila As Range, FilasFiltro As Range
Set FilasFiltro =
Hoja1.ListObjects("InventarioTecnologico").DataBodyRange.SpecialCells(xlCellTypeVisible).Rows
For Each Fila In FilasFiltro
.AddItem
.List(.ListCount - 1, 0) = Fila.Cells(1).Value
.List(.ListCount - 1, 1) = Fila.Cells(2).Value
.List(.ListCount - 1, 2) = Fila.Cells(3).Value
.List(.ListCount - 1, 3) = Fila.Cells(4).Value
.List(.ListCount - 1, 4) = Fila.Cells(5).Value
.List(.ListCount - 1, 5) = Fila.Cells(6).Value
.List(.ListCount - 1, 6) = Fila.Cells(7).Value
.List(.ListCount - 1, 7) = Fila.Cells(8).Value
.List(.ListCount - 1, 8) = Fila.Cells(9).Value
Next Fila
End With
On Error GoTo 0
Exit Sub
Depurar:
Inventario.LstCaracteristica.AddItem "No Data"
On Error GoTo 0
End Sub
Sub CagarLista_Perifericos()
On Error GoTo Depurar
With Inventario.LstPeriferico
.Clear
.ColumnCount = 10
.ColumnHeads = True
.ColumnWidths = "130pt;100pt;130;100;130pt;100pt;85pt;100pt;60pt;100pt"
Dim Fila As Range, FilasFiltro As Range
Set FilasFiltro =
Hoja1.ListObjects("InventarioTecnologico").DataBodyRange.SpecialCells(xlCellTypeVisible).Rows
For Each Fila In FilasFiltro
.AddItem
.List(.ListCount - 1, 0) = Fila.Cells(10).Value
.List(.ListCount - 1, 1) = Fila.Cells(11).Value
.List(.ListCount - 1, 2) = Fila.Cells(12).Value
.List(.ListCount - 1, 3) = Fila.Cells(13).Value
.List(.ListCount - 1, 4) = Fila.Cells(14).Value
.List(.ListCount - 1, 5) = Fila.Cells(15).Value
.List(.ListCount - 1, 6) = Fila.Cells(16).Value
.List(.ListCount - 1, 7) = Fila.Cells(17).Value
.List(.ListCount - 1, 8) = Fila.Cells(18).Value
.List(.ListCount - 1, 9) = Fila.Cells(19).Value
Next Fila
End With
On Error GoTo 0
Exit Sub
Depurar:
Inventario.LstPeriferico.AddItem "No Data"
On Error GoTo 0
End Sub
Sub CagarLista_Interruptor()
On Error GoTo Depurar
With Inventario.LstInterruptor
.Clear
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "130pt;100pt;130pt;100pt"
Dim Fila As Range, FilasFiltro As Range
Set FilasFiltro =
Hoja1.ListObjects("InventarioTecnologico").DataBodyRange.SpecialCells(xlCellTypeVisible).Rows
For Each Fila In FilasFiltro
.AddItem
.List(.ListCount - 1, 0) = Fila.Cells(20).Value
.List(.ListCount - 1, 1) = Fila.Cells(21).Value
.List(.ListCount - 1, 2) = Fila.Cells(22).Value
.List(.ListCount - 1, 3) = Fila.Cells(23).Value
Next Fila
End With
On Error GoTo 0
Exit Sub
Depurar:
Inventario.LstInterruptor.AddItem "No Data"
On Error GoTo 0
End Sub
Sub RealizarFiltro()
Dim criterio As String
criterio = "*" & Inventario.TxtRegistro.Value & "*"
If Inventario.rdbCoordinacion.Value = True Then
Hoja1.ListObjects("InventarioTecnologico").Range.AutoFilter Field:=2, Criteria1:=criterio
ElseIf Inventario.rdbCodigos.Value = True Then
Hoja1.ListObjects("InventarioTecnologico").Range.AutoFilter Field:=1, Criteria1:=criterio
End If
Call MiModulo.CagarLista_Caracteristica
Call MiModulo.CagarLista_Perifericos
Call MiModulo.CagarLista_Interruptor
End Sub
Sub ResetearLista()
Call MiModulo.QuitarFiltros
Call MiModulo.CagarLista_Caracteristica
Call MiModulo.CagarLista_Perifericos
Call MiModulo.CagarLista_Interruptor
Inventario.TxtRegistro.Value = ""
Inventario.TxtRegistro.SetFocus
End Sub
Sub OcultarExcel()
Application.Visible = False
MenuInicio.Show
End Sub
Sub Formulario()
MenuInicio.Show
End Sub
