Download INCAE - CLACDS - DSE Costa Rica

Metodología para la Evaluación de Opciones de Electrificación Rural con Fuentes de Energía Renovable
Entregable I
GoTo fi
tracta_error:
If num_error = 1 Then
fNameDrive = "C:\"
Worksheets("aux1").Cells(4, 2) = ""
Resume
End If
If num_error = 2 Then
fName = "C:\"
Resume
Else: End
End If
fi:
End Sub
Public Sub Salir()
'Application.CommandBars("Formatting").Visible = True
'Application.DisplayFormulaBar = True
'ActiveWindow.DisplayWorkbookTabs = True 'etiquetas de las hojas
'Application.DisplayStatusBar = True
'With ActiveWindow
'.DisplayGridlines = True 'lineas auxiliares de las celdas
'.DisplayHeadings = True 'cabeceras de columnas y celdas
'.DisplayHorizontalScrollBar = True
'.DisplayVerticalScrollBar = True
'.DisplayWorkbookTabs = True 'etiquetas de las hojas, asi también es correcto
'End With
Estilo = vbYesNo + vbQuestion + vbDefaultButton1 ' Define los botones.
Respuesta = MsgBox("¿Guardar archivo? ", vbYesNo + vbQuestion + vbDefaultButton1, "FORMATO PROYECTOS")
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
Load UserForm4
UserForm4.Show
'fName = TextBox1
'ActiveWorkbook.SaveAs Filename:=fName 'guarda el libro
Else
'No queremos guardar el fichero
ThisWorkbook.Saved = True 'para que no pregunte si guarda el Quit
End If
'ThisWorkbook.Close
'CIERRA EL LIBRO ACTIVO
Application.Quit
'salir de excel
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Public Sub Limpiar()
'
' LIMPIAR Macro
' Macro grabada el 08/09/2005 por . J.Flores
'
'
'Application.CommandBars("Formatting").Visible = True
'Application.DisplayFormulaBar = True
'ActiveWindow.DisplayWorkbookTabs = True 'etiquetas de las hojas
'Application.DisplayStatusBar = True
'With ActiveWindow
'.DisplayGridlines = False 'lineas auxiliares de las celdas
'.DisplayHeadings = False 'cabeceras de columnas y celdas
'.DisplayHorizontalScrollBar = True
'.DisplayVerticalScrollBar = True
'.DisplayWorkbookTabs = True 'etiquetas de las hojas, asi también es correcto
'End With
Estilo = vbYesNo + vbQuestion + vbDefaultButton1 ' Define los botones.
Respuesta = MsgBox("¿Limpiar datos? ", vbYesNo + vbQuestion + vbDefaultButton1, "FORMATO PROYECTOS")
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
Range("D13").Select
Selection.ClearContents
Range("D15").Select
Selection.ClearContents
Range("D17").Select
CLACDS – IT Power – SDA – TTA – Nordteco
Febrero 2008