1macro

Clasificado en Informática

Escrito el en español con un tamaño de 8,94 KB

 
'Aqui en el evento Activade del UserFor1 solamente se utiliza para
'llenar los elemtos que apareceran en el ComboBox1

Private Sub UserForm_Activate()
ComboBox1.AddItem "Rancaguita"
ComboBox1.AddItem "Santiaguitito"
ComboBox1.AddItem "Viñitita"
ComboBox1.AddItem "Concepcioncito"
ComboBox1.AddItem "Chaitencitito"
ComboBox1.AddItem "La Serena"
ComboBox1.Text = "Seleccione una Opción"
End Sub
_____________________________________________________________________________
'Esta program se utiliza para que el cursor pase al siguiente control
'cuando el usario seleccione algun elemento del ComboBox.

Private Sub ComboBox1_Click()
ComboBox1.Enabled = False 'Se deshabilita el mismo
TextBox4.Enabled = True 'Habilita el TextBox4 ( Edad ) antes que llegue el cursor
TextBox4.SetFocus 'Deja el cursor en Edad
End Sub
_____________________________________________________________________________
'Programación del Nombre

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(TextBox1.Text) And (TextBox1.Text) <> "" Then
Dim HH As String
HH = MsgBox("Ing. OK, pase al siguiente control", vbInformation, "OK")
TextBox1.Enabled = False 'Se deshabilita el mismo
TextBox2.Enabled = True 'Habilita el TextBox2 (Direccion ) antes que llegue el cursor.
TextBox2.SetFocus 'Deja el cursor en Dirección
Else
Dim RH As String
RH = MsgBox("Error, no Ingrese solo Numeros", vbCritical, "Warning")
TextBox1.Text = " " 'Limpia el Error ingresado por el usuario
TextBox1.SetFocus 'deja el cursor en Nombre para que ingrese nuevamente
End If
End If
End Sub
_____________________________________________________________________________
'Programación de la Direccion

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(TextBox2.Text) Then
Dim HH As String
HH = MsgBox("Ing. OK, pase al siguiente control", vbInformation, "OK")
TextBox2.Enabled = False 'Se deshabilita el mismo
TextBox3.Enabled = True 'Habilita el TextBox3 ( Fono ) antes que llegue el cursor.
TextBox3.SetFocus 'Deja el cursor en Fono
Else
Dim RH As String
RH = MsgBox("Error, no Ingrese solo Numeros", vbCritical, "Warning")
TextBox2.Text = " " 'Limpia el Error ingresado por el usuario
TextBox2.SetFocus 'deja el cursor en Nombre para que ingrese nuevamente
End If
End If
End Sub
_____________________________________________________________________________
'Programación del Fono

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If IsNumeric(TextBox3.Text) Then
Dim HH As String
HH = MsgBox("Ing. OK, pase al siguiente control", vbInformation, "OK")
TextBox3.Enabled = False 'Se deshabilita el mismo
ComboBox1.Enabled = True 'Habilita el Combobox1 ( Ciudad) antes que llegue el cursor.
ComboBox1.SetFocus 'Deja el cursor en Ciudad
Else
Dim RH As String
RH = MsgBox("Error, Ingrese solo Numeros", vbCritical, "Warning")
TextBox3.Text = " " 'Limpia el Error ingresado por el usuario
TextBox3.SetFocus 'deja el cursor en Nombre para que ingrese nuevamente
End If
End If
End Sub
_____________________________________________________________________________



'Programación de la Edad
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If IsNumeric(TextBox4.Text) Then
Dim HH As String
HH = MsgBox("OK,Pase al siguiente", vbInformation, "OK")
TextBox4.Enabled = False 'Se deshabilita el mismo
CommandButton1.Enabled = True 'Habilita el Boton Grabar antes que llegue el cursor.
CommandButton1.SetFocus 'Deja el cursor en el boton Grabar
Else
Dim RH As String
RH = MsgBox("ERROR, Ingrese solo Numeros", vbCritical, "Warning")
TextBox4.Text = " " 'Limpia el Error ingresado por el usuario
TextBox4.SetFocus 'deja el cursor en Nombre para que ingrese nuevamente
End If
End If
End Sub
_____________________________________________________________________________
'Programación del Boton Grabar

Private Sub CommandButton1_Click()
'Programación del diseño de la planilla de grabado
Range("B4").Value = "Nombre" 'Asigna Nombre en el Rango B4
Range("C4").Value = "Dirección"
Range("D4").Value = "Fono"
Range("E4").Value = "Ciudad"
Range("F4").Value = "Edad"
Range("B4:F20").Borders.Value = 9 'Asigna borde doble al rango B4:F20
Range("B4:F20").Font.Bold = True 'Asigna letra negrita al rango B4:F20
Range("B4:F4").Font.Size = 12 'Asigna tamaño 12 a la letra del Titulo
Range("B4:F4").Interior.Color = vbBlue 'Asigna color azul al fondo de la letra del Titulo1
Range("B4:F4").Font.Color = vbWhite 'Asigna color blanco a la letra del Titulo
Range("B4").ColumnWidth = 18 'Asigna ancho 18 a la columna B ( Nombre )
Range("C4").ColumnWidth = 18 'Asigna ancho 18 a la columna C ( Dirección )
Range("D4").ColumnWidth = 7 'Asigna ancho 18 a la columna D ( Fono )
Range("E4").ColumnWidth = 15 'Asigna ancho 18 a la columna E ( Ciudad )
Range("F4").ColumnWidth = 7 'Asigna ancho 18 a la columna F ( Edad )
Range("B5:F5").Font.Size = 10 'Asigna tamaño 10 a la letra del contenido de la planilla
Range("B5:F20").Font.Color = vbBRed 'Asigna color rojo a la letra del contenido de la planilla
Range("B5:F20").Interior.Color = vbYellow 'Asigna color amarillo al fondo de la letra del contenido
'Aqui se Graban los datos Propiamemnte tal
Range("B5").Select 'selecciona la celda B5
Selection.EntireRow.Insert 'inserta una fila
Sheets("Hoja1").Range("B5").Value = TextBox1 'Graba el Nombre en la celda B5
'Sheets("Hoja1").Range("C12").Value = TextBox2
' Sheets("Hoja1").Range("D12").Value = TextBox3
' Sheets("Hoja1").Range("E12").Value = TextBox4
' Sheets("Hoja1").Range("F12").Value = ComboBox1


Dim RR As String
RR = MsgBox("Datos Grabados", vbInformation, "SAVE")
CommandButton1.Enabled = False 'Se deshabilita el mismo
CommandButton2.Enabled = True 'Se Habilita el boton Otro Ingreso
CommandButton3.Enabled = True 'Habilita el boton Salir
CommandButton2.SetFocus 'Deja el cursor en Otro Ingreso
End Sub
_____________________________________________________________________________
'Programación Boton Otro Ingreso
Private Sub CommandButton2_Click()
TextBox1.Text = " " 'Limpia el contenido del TextBox1 ( Nombre )
TextBox2.Text = " " 'Limpia el contenido del TextBox2 ( Direccion )
TextBox3.Text = " " 'Limpia el contenido del TextBox3 ( Fono )
TextBox4.Text = " " 'Limpia el contenido del TextBox4 ( Edad )
ComboBox1.Text = " " 'Limpia el combobox1 ( Ciudad )
CommandButton2.Enabled = False 'Se deshabilita el mismo
TextBox1.Enabled = True 'Habilita el TextBox1 ( nombre ) antes que llegue el cursor
TextBox1.SetFocus 'deja el cursor en el Textbox1 ( Nombre )
End Sub


'Programación Boton Salir

Private Sub CommandButton3_Click()
Dim AA As String
Dim HH As String
AA = "Juan Perez"
HH = MsgBox("Esta Seguro de Salir", vbYesNo + vbQuestion, "PREGUNTITA")
If HH = vbYes Then
Dim AB As String
AB = MsgBox("OK, Chaito, el Autor es :" & AA, vbInformation, "See You")
End
Else
Dim AX As String
AX = MsgBox("Regresara al Programa", vbExclamation, "Regreso")
End If
End Sub