Macro en Excel

[08Alf]

PARTE 3:

Private Sub REPORTBYWEEK_Click()
If Range("ar5").Value = "" Then 'sino selecciona la unidad
MsgBox "Please selec the unit"
Me.WEEK.SetFocus
Exit Sub
End If
UserForm_terminate
wait
extractperweek
Range("5:280").Select
Selection.EntireRow.Hidden = True
Range("157:211").Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False 'para adecuar el encuadre freeze panes
Range("C159").Select
ActiveWindow.FreezePanes = True
Range("H:H,L:L,R:R,V:V,X:X,Y:Y,AC:AC,AM:AM,AN:AN,A O:AO,AP:AP").Select 'PARA ESCONDER LAS COLUMNAS QUE NO QUIERO UTILIZAR
Selection.EntireColumn.Hidden = True
Range("C158").Select
ActiveSheet.Shapes("PRINTAREA").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYENTITY").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTCONTEST").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYWEEK").Visible = True 'para mostrar el boton de impresion
ActiveSheet.Shapes("autoshape 1").Visible = True 'para mostrar el mensaje de como obtener un nuevo reporte
endwait
protect
End Sub

Private Sub reportentity_Click()
If Range("at5").Value = "" Then 'sino selecciono la semana
MsgBox "Please select the week"
Me.WEEK.SetFocus
Exit Sub
End If
UserForm_terminate
wait
extractweek
Range("5:280").Select
Selection.EntireRow.Hidden = True
Range("5:155").Select
Selection.EntireRow.Hidden = False
Range("155:155").Select 'PARA ESCONDER LAS FILAS QUE QUEDAN VACIAS
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Range("155:155", Selection).Select
Selection.EntireRow.Hidden = True
ActiveWindow.FreezePanes = False
Range("a1").Select
Range("C7").Select
ActiveWindow.FreezePanes = True
Formatbyentity
Range("H:H,L:L,R:R,V:V,AB:AB,AF:AF,AG:AG,AL:AL,AM: AM,AN:AN,AO:AO,AP:AP").Select 'PARA ESCONDER LAS COLUMNAS QUE NO QUIERO UTILIZAR
Selection.EntireColumn.Hidden = True
Range("C7").Select
ActiveSheet.Shapes("PRINTAREA").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTCONTEST").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYWEEK").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYENTITY").Visible = True 'para mostrar el boton de impresion
ActiveSheet.Shapes("autoshape 1").Visible = True 'para hacer aparecer el mensaje de como obtener un nuevo reporte
endwait
protect
End Sub

Private Sub SALESCONTESTREPORT_Click()
If Range("at5").Value = "" Then 'sino selecciona la semana
MsgBox "Please select the week"
Me.WEEK.SetFocus
Exit Sub
End If
UserForm_terminate
wait
extract_sales_contest
SORT
Columns("B:AP").Select
Selection.EntireColumn.Hidden = False
Range("5:280").Select
Selection.EntireRow.Hidden = True
Range("215:260").Select
Selection.EntireRow.Hidden = False
Range("C260").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Range("260:260", Selection).Select
Selection.EntireRow.Hidden = True
ActiveWindow.FreezePanes = False
Range("C216").Select
ActiveWindow.FreezePanes = True
Range("C215").Select
SORT 'repito el sort porque sino no funciona
Unload Me
Columns("B:AP").Select
Selection.EntireColumn.Hidden = False
Range("5:280").Select
Selection.EntireRow.Hidden = True
Range("215:260").Select
Selection.EntireRow.Hidden = False
Range("C260").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Range("260:260", Selection).Select
Selection.EntireRow.Hidden = True
ActiveWindow.FreezePanes = False
Range("C216").Select
ActiveWindow.FreezePanes = True
Range("C215").Select
ActiveSheet.Shapes("PRINTAREA").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYENTITY").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTBYWEEK").Visible = False 'para ocultar el boton de impresion
ActiveSheet.Shapes("PRINTCONTEST").Visible = True 'para mostrar el boton de impresion
ActiveSheet.Shapes("autoshape 1").Visible = True 'para mostrar el mensaje de como obtener un nuevo reporte
endwait
protect
End Sub

Private Sub UserForm_Initialize()
i = 7
Do While Cells(i, 1) <> ""
Me.ACCESSLIST.AddItem Cells(i, 1)
i = i + 1
Loop
Range("at5").Value = "" 'para poner en cero el campo de semana seleccionada
Range("ar5").Value = "" 'para poner en cero el campo de unidad seleccionada
ESCAPE.SetFocus
End Sub

Private Sub USERID_Click()

End Sub

FIN PARTE 3