Formatear Libro Registro Mantenimiento

' Subrutina para formatear hojas de trabajo mantenimiento iluminaci�n Sub Copia_y_formula() Dim Normales As Integer Dim Emergencia As Integer Dim Area As String Area = InputBox("C�digo �rea", "Codigo Area M�ximo") Normales = InputBox("Cantidad Luminarias Servicio Normal", "Normal") Emergencia = InputBox("Cantidad de Luminarias Servicio Emergencia", "Emergencia") Call Mostrar_Hojas Call Llenar_Codigo_Equipos(Area, Normales, Emergencia) Call Copiar_Hoja(Normales, Emergencia) Call Formula(Normales, Emergencia) Regresar_Plano Worksheets("Consolidado").Visible = True Sheets("Consolidado").Select Range("c2").Select End Sub Sub Copiar_Hoja(Normales, Emergencia) Application.ScreenUpdating = False Dim Nombre_Hoja As String Dim Registro1 As String Dim Registro2 As String Dim Registro3 As String Dim Registro4 As String Dim Registro5 As String Dim Control As String Dim Servicio As String Registro1 = "L1N" For j = 2 To Normales Nombre_Hoja = "Q" & j & "" Servicio = "L" & j & "" Registro2 = "L" & j & "N" & "" Sheets(Registro1).Select Sheets(Registro1).Copy After:=Sheets(j) Registro3 = ActiveSheet.Name Registro4 = "" & Registro3 & "" Sheets(Registro4).Select Sheets(Registro4).Name = Registro2 Next Registro5 = "L1E" For j = 2 To Emergencia Nombre_Hoja = "Q" & j & "" Servicio = "L" & j & "" Registro2 = "L" & j & "E" & "" Sheets(Registro5).Select Sheets(Registro5).Copy After:=Sheets(j) Registro3 = ActiveSheet.Name Registro4 = "" & Registro3 & "" Sheets(Registro4).Select Sheets(Registro4).Name = Registro2 Next Sheets("L1N").Move Before:=Sheets("L2N") Sheets("L1E").Move Before:=Sheets("L2E") Application.ScreenUpdating = True End Sub

' Subrutina para llenar f�rmulas Sub Formula(Normales, Emergencia) Dim Equipo As String Dim Ubic1 As String Dim Ubic2 As String Dim Ubic3 As String Dim Ubic4 As String Dim Ubic5 As String Dim Nombre_Hoja As String Dim Total_Luminarias As Integer Total_Luminarias = Normales + Emergencia + 1 For i = 2 To Total_Luminarias Ubic1 = "Q" & i & "" Ubic2 = "L" & i & "" Ubic3 = "M" & i & "" Ubic4 = "N" & i & "" Ubic5 = "D" & i & "" Equipo = Range(Ubic1).Value Range(Ubic2).Formula = "=" & Equipo & "!$I$101" Range(Ubic3).Formula = "=" & Equipo & "!$J$101" Range(Ubic4).Formula = "=" & Equipo & "!$K$101" Range(Ubic5).Formula = "=MAX(" & Equipo & "!D2:D101)" Next End Sub

' Subrutina para llenar datos en consolidado Sub Llenar_Codigo_Equipos(Area, Normales, Emergencia) Dim Total_Luminarias As Integer Dim Columnas As Integer Dim i As Integer Dim j As Integer Dim k As Integer Dim Matriz_Temporal() As String Dim Rango As Range Dim Rango_Nuevo As String Dim Valor_Contador As Integer Dim Total_Filas As Integer Columnas = 2 Total_Luminarias = Normales + Emergencia MsgBox Total_Luminarias If Total_Luminarias = 0 Then Exit Sub ReDim Matriz_Temporal(1 To Total_Luminarias, 1 To Columnas) Sheets("Consolidado").Select Range("A2").Select Range("A2").Activate Set Rango = ActiveCell.Range(Cells(1, 1), Cells(Total_Luminarias, Columnas)) Valor_Contador = 0 Application.ScreenUpdating = False j = 1 For i = 1 To Total_Luminarias Matriz_Temporal(i, j) = Valor_Contador + 1 Valor_Contador = Valor_Contador + 1 Next i j = 2 For i = 1 To Normales

Matriz_Temporal(i, j) = Area & "-" & "L" & i & "N" & "" Next i For i = 1 To Emergencia k = Normales + i Matriz_Temporal(k, j) = Area & "-" & "L" & i & "E" Next i Rango.Value = Matriz_Temporal ' Llenar f�rmula con luminaria y tipo iluminaci�n Total_Filas = Total_Luminarias + 1 Range("Q2").Activate Rango_Nuevo = "Q3:R" & Total_Filas & "" Range("Q2:R2").Select Selection.Copy Range(Rango_Nuevo).Select ActiveSheet.Paste Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Sub Mostrar_Hojas() Dim Hoja_Equipo As Worksheet Application.ScreenUpdating = False For Each Hoja_Equipo In ActiveWorkbook.Worksheets If Hoja_Equipo.Name <> "Plano" Then Hoja_Equipo.Visible = True Next Hoja_Equipo Worksheets("Consolidado").Visible = True Application.ScreenUpdating = True End Sub Sub Ocultar_Hojas() Dim Hoja_Equipo As Worksheet Application.ScreenUpdating = False For Each Hoja_Equipo In ActiveWorkbook.Worksheets If Hoja_Equipo.Name <> "Consolidado" Then Hoja_Equipo.Visible = True Next Hoja_Equipo Worksheets("Consolidado").Visible = False Application.ScreenUpdating = True End Sub Sub Mostrar_User_Form1() UserForm1.Show End Sub