Scribd
Upload
19 views

Clase 16

Uploaded by

Jason Enriquez Cayllahua
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
19 views

Clase 16

Uploaded by

Jason Enriquez Cayllahua
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Private Sub cmdcancelar_Click()

Unload Me
End Sub

Private Sub cmdlimpiar_Click()


Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()


txtnombre.Value = ""
txttelefono.Value = ""
With cbodepartamento
.AddItem "Ventas"
.AddItem "Marketing"
.AddItem "Administracion"
.AddItem "Diseño"
End With
cbodepartamento.Value = ""
With cbocurso
.AddItem "Access"
.AddItem "Excel"
.AddItem "PowerPoint"
.AddItem "Word"
End With
cbocurso.Value = ""
optbasico = True
chkalmuerzo = False
chkrefrigerio = False
txtnombre.SetFocus ' cursor apunta al objeto
End Sub
Private Sub cmdingresar_Click()
ActiveWorkbook.Sheets("DATOS").Activate
Range("A1").Select
'buscar ultima fila
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
' llenar datos
ActiveCell.Value = txtnombre.Value
ActiveCell.Offset(0, 1) = txttelefono.Value
ActiveCell.Offset(0, 2) = cbodepartamento.Value
ActiveCell.Offset(0, 3) = cbocurso.Value
If optbasico = True Then
ActiveCell.Offset(0, 4).Value = "Basico"
ElseIf optintermedio = True Then
ActiveCell.Offset(0, 4).Value = "Intermedio"
Else
ActiveCell.Offset(0, 4).Value = "Avanzado"
End If
If chkalmuerzo = True Then
ActiveCell.Offset(0, 5).Value = "Si"
Else
ActiveCell.Offset(0, 5).Value = "No"
End If
If chkrefrigerio = True Then
ActiveCell.Offset(0, 6).Value = "Si"
Else
ActiveCell.Offset(0, 6).Value = "No"
End If
End Sub
' eliminar fila
Private Sub cmdeliminar_Click()
Selection.EntireRow.Delete
End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy