DOCENTE FACILITADOR
Lic. Ing. William Roque
Celular: 73299220
===================================================================================
=========================================
' Para realizar procesos de impresion en excel
Sub Imprimir_Excel()
[Link]
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
' Para mostrar y exportar en pdf
Sub Exportar_PDF()
[Link] Type:=xlTypePDF, _
Filename:=[Link] & "\Reporte Caja [Link]",
quality:=xlQualityStandard, openafterpublish:=True
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
' Macro para sacar el efecto de parpadeo en el excel insertar al principio y final
de cada macro
[Link] = False
[Link] = True
-----------------------------------------------------------------------------------
------------------------------------------
'Guardar una libro en excel
Sub Guardar_Caja_Chica()
[Link]
'[Link]
MsgBox "Se Guardaron todos los datos Procesados de Caja Chica", vbInformation, " "
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'Mensaje de bienvenida y salida de la hoja excel
Private Sub Abrir_Excel()
[Link]
[Link] = False
MsgBox "Bienvenido este es sistema de control de Almacenes", vbInformation,
"Almacenes"
[Link] = True
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
Private Sub Cerrar_Excel(Cancel As Boolean)
[Link] = False
MsgBox "Se esta cerrando el sistema de control de Almacenes....!!!", vbInformation,
"Almacenes"
[Link]
'[Link]
[Link] = True
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'Macro para abrir formulario logina
Private Sub boton_login()
[Link] = xlMaximized
[Link]
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'Macro para ocultar hojas en excel
Private Sub Ocultar()
[Link] = xlMaximized
'Oculta la hojas del excel el total
Dim hoja As Worksheet
For Each hoja In Worksheets
If [Link] <> "Hoja1" Then
[Link] = xlSheetVeryHidden
End If
Next hoja
[Link] = False
[Link] 'Guardar el libro excel
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'Macro para formulario Login
Private Sub Boton_Login()
Dim hoja As Worksheet
If TextBox1 <> "12345" Then GoTo WrongPass
Unload Me
MsgBox ("Bienvenido al curso de Almacenes pongase comodo...")
For Each hoja In Worksheets
[Link] = xlSheetVisible
Next hoja
[Link]
[Link] = xlMaximized
Range("c4").Select
Exit Sub
WrongPass:
Unload Me
MsgBox "Lo siento Mucho...? Contraseña no valida..."
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'Macro para salir del excel
Private Sub CommandButton1_Click()
[Link] = xlMaximized
'Oculta la hojas del excel el total
Dim hoja As Worksheet
For Each hoja In Worksheets
If [Link] <> "Hoja1" Then
[Link] = xlSheetVeryHidden
End If
Next hoja
[Link] 'Guardar el libro excel
[Link] 'Cierra el excel
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'macro para abrir archivo pdf
Private Sub CommandButton17_Click()
Dim archivo As String
archivo = [Link] & "\[Link]"
[Link] Address:=archivo
End Sub
-----------------------------------------------------------------------------------
------------------------------------------
'macro para abrir archivo pdf
Private Sub CommandButton17_Click()
[Link] Type:=xlTypePDF, _
Filename:=[Link] & "\Evaluacion Excel Nivel [Link]",
quality:=xlQualityStandard, openafterpublish:=True
End Sub
