Codigos Vb Para Excel

Índice
- Códigos VB en Excel 2003…………………………pg 3-10
- Códigos VB en Excel 2007…………………………pg 11-17

Códigos VB en Excel 2003

Código de los botones gestión y ordenar

Private Sub btn_gestion_Click()

'Al hacer click en el botón "Gestión" aparece el formulario, antes de mostrarlo lo ubico en pantalla
frm_gestion.Top = 285
frm_gestion.Left = 500frm_gestion.Show

End Sub

Private Sub btn_ordenar_Click()

'El código siguiente ha sido extraído de la grabación de una macro que ordena

Range("B11:E30").Select
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
Selection.Sort Key1:=Range("B11"), Order1:=xlAscending,Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select

End Sub

Código del formulario

Private Sub btn_baja_Click()

'Declaro la siguientes variables

Dim linea_seleccionada As Integer
Dim respuesta_usuario As Integer
Dim rango_borrado As String

'La celda que ha seleccionado elusuario me indica la línea seleccionada para, posteriormente, borrarla

linea_seleccionada = Selection.Row

'Si el usuario selecciona una línea vacía le muestra un mensaje de error

If Cells(linea_seleccionada, 2) = "" Then
respuesta_usuario = MsgBox("Seleccione una línea válida", vbCritical, "Práctica 4º ESO 2010")

'Le pido al usuario su confirmación para borrar

Elserespuesta_usuario = MsgBox("El contacto " & Cells(linea_seleccionada, 2) & " va a ser eliminado. ¿Realmente desea continuar?", vbQuestion + vbYesNo, "Práctica 4º ESO 2010")

'Si el usuario responde que si borro la línea, si no, no hago nada
'Para borrar calculo el rango que voy a eliminar (rango_borrado) a partir de la línea que tengo seleccionada (linea_seleccionada)If respuesta_usuario = 6 Then
rango_borrado = "B" & CStr(linea_seleccionada) & ":E" & CStr(linea_seleccionada)
Range(rango_borrado).Select
Selection.Delete Shift:=xlUp
End If
End If

End Sub

Private Sub btn_insertar_Click()

'Declaro la siguientes variables

Dim nombre As String
Dim direccion As String
Dim telefono As StringDim grupo As String
Dim formulario_correcto As Boolean
Dim linea_libre As Integer
Dim i As Integer

'Por defecto el formulario va a estar correcto (True) pero si al realizar la verificaciones alguna está incorrecta el formulario estará incorrecto (False)

formulario_correcto = True

'Asigno a cada variable su caja de texto correspondiente

nombre = txt_nombre.Textdireccion = txt_direccion.Text
telefono = txt_telefono.Text

'Asigno el valor a la variable de grupo

If opt_colegio = True Then
grupo = "Colegio"
ElseIf opt_familia = True Then
grupo = "Familia"
ElseIf opt_amigos = True Then
grupo = "Amigos"
Else
grupo = "Otros"
End If


'Incluyo un mensaje de error enel caso de que la cajas de texto estén vacías

If nombre = "" Then
i = MsgBox("Introduzca el nombre por favor", vbInformation, "4º ESO")
formulario_correcto = False
End If

If direccion = "" Then
i = MsgBox("Introduzca la dirección por favor", vbInformation, "4º ESO")
formulario_correcto = False
End If

If telefono = "" Then
i = MsgBox("Introduzca el...