Como reparar este código de ingreso

Private Sub CommandButton1_Click()
'Declaración de variables

Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String

Continuar = MsgBox("Ingresar nuevo Miembro?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
Cuenta = Application.WorksheetFunction.CountIf(Range("A:A"), Me.TextBox1)
'
If Cuenta > 0 Then
MsgBox "La Cedula'" & Me.TextBox1 & "' ya se encuentra registrada", vbExclamation, strTitulo
Else
Set TransRowRng = ThisWorkbook.Worksheets("BD").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("BD")
.Cells(NewRow, 1).value = Val(Me.TextBox1)
If Me.TextBox1 = "" Then
MsgBox "Debe Ingresar un Nombre", vbExclamation, strTitulo
TextBox2.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 2).value = Me.TextBox2
If Me.TextBox3 = "" Then
MsgBox "Debe Ingresar un Apellido", vbExclamation, strTitulo
TextBox2.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 3).value = Me.TextBox3
If Me.OptionButton1 Or Me.OptionButton2 = "" Then
MsgBox "Debe Ingresar tipo de Sexo", vbExclamation, strTitulo
TextBox3.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 4).value = Me.OptionButton1.Caption Or Me.OptionButton2.Caption
If Me.TextBox4 = "" Then
MsgBox "Debe Ingresar Número de Teléfono Local", vbExclamation, strTitulo
TextBox4.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 5).value = Me.TextBox4
If Me.TextBox5 = "" Then
MsgBox "Debe Ingresar Número de Teléfono Local", vbExclamation, strTitulo
TextBox4.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 6).value = Me.TextBox5
If Me.TextBox5 = "" Then
MsgBox "Debe Ingresar Número de Teléfono Celular", vbExclamation, strTitulo
TextBox5.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 7).value = Me.TextBox6
If Me.TextBox6 = "" Then
MsgBox "Debe Ingresar Correo Eléctronico", vbExclamation, strTitulo
TextBox6.SetFocus
SendKeys "{Home}+{End}"
Else
If Me.ComboBox1 = "" Then
MsgBox "Debe Ingresar Status", vbExclamation, strTitulo
ComboBox1.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 8).value = Me.ComboBox1
If Me.TextBox7 = "" Then
MsgBox "Debe Ingresar un Sector", vbExclamation, strTitulo
TextBox7.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 9).value = Me.TextBox8
If Me.TextBox8 = "" Then
MsgBox "Debe Ingresar la Dirección", vbExclamation, strTitulo
TextBox8.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 10).value = Me.TextBox8
If Me.CheckBox1 = "" Then
Me.TextBox12 = ""
Me.TextBox13 = ""
Me.TextBox15 = ""
Else
.Cells(NewRow, 13).value = Me.CheckBox1
If Me.TextBox9 = "" Then
MsgBox "Debe Ingresar N° de Planillas Entregadas", vbExclamation, strTitulo
TextBox9.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 11).value = Me.TextBox9
If Me.TextBox12 = "" Then
MsgBox "Debe Ingresar Total de Electores Aportados", vbExclamation, strTitulo
TextBox12.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 12).value = Me.TextBox12
If Me.TextBox13 = "" Then
MsgBox "Debe Ingresar la Fecha de Entrega", vbExclamation, strTitulo
TextBox13.SetFocus
SendKeys "{Home}+{End}"
Else
.Cells(NewRow, 14).value = Me.TextBox13
If Me.TextBox15 = "" Then
MsgBox "Debe Ingresar el Total de Electores Verificados", vbExclamation, strTitulo
TextBox15.SetFocus
SendKeys "{Home}+{End}"
.Cells(NewRow, 15).value = Me.TextBox15
End With
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
MsgBox "Ingreso de Datos Exitoso.", vbInformation, strTitulo
'Unload Me
End Sub

2 respuestas

Respuesta
1

¿Y qué quieres reparar?

¿Quieres hacerlo más compacto?

¿O quieres primero poner las validaciones y que no escriba en la hoja hasta que todos los campos esté completados?

Me da error de compilacion edn with sin with

La estructura quedaría así:

Private Sub CommandButton1_Click()
'Declaración de variables
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
With ThisWorkbook.Worksheets("BD")
    Continuar = MsgBox("Ingresar nuevo Miembro?", vbYesNo + vbExclamation, strTitulo)
    If Continuar = vbNo Then Exit Sub
    '
    Cuenta = Application.WorksheetFunction.CountIf(Range("A:A"), Me.TextBox1)
    If Cuenta > 0 Then
        MsgBox "La Cedula'" & Me.TextBox1 & "' ya se encuentra registrada", vbExclamation, strTitulo
        Exit Sub
    End If
    '
    Set TransRowRng = .Cells(1, 1).CurrentRegion
    NewRow = TransRowRng.Rows.Count + 1
    .Cells(NewRow, 1).Value = Val(Me.TextBox1)
    If Me.TextBox1 = "" Then
        MsgBox "Debe Ingresar un Nombre", vbExclamation, strTitulo
        TextBox2.SetFocus
        SendKeys "{Home}+{End}"
    Else
        .Cells(NewRow, 2).Value = Me.TextBox2
        If Me.TextBox3 = "" Then
            MsgBox "Debe Ingresar un Apellido", vbExclamation, strTitulo
            TextBox2.SetFocus
            SendKeys "{Home}+{End}"
        Else
            .Cells(NewRow, 3).Value = Me.TextBox3
            If Me.OptionButton1 Or Me.OptionButton2 = "" Then
                MsgBox "Debe Ingresar tipo de Sexo", vbExclamation, strTitulo
                TextBox3.SetFocus
                SendKeys "{Home}+{End}"
            Else
                .Cells(NewRow, 4).Value = Me.OptionButton1.Caption Or Me.OptionButton2.Caption
                If Me.TextBox4 = "" Then
                    MsgBox "Debe Ingresar Número de Teléfono Local", vbExclamation, strTitulo
                    TextBox4.SetFocus
                    SendKeys "{Home}+{End}"
                Else
                    .Cells(NewRow, 5).Value = Me.TextBox4
                    If Me.TextBox5 = "" Then
                        MsgBox "Debe Ingresar Número de Teléfono Local", vbExclamation, strTitulo
                        TextBox4.SetFocus
                        SendKeys "{Home}+{End}"
                    Else
                        .Cells(NewRow, 6).Value = Me.TextBox5
                        If Me.TextBox5 = "" Then
                            MsgBox "Debe Ingresar Número de Teléfono Celular", vbExclamation, strTitulo
                            TextBox5.SetFocus
                            SendKeys "{Home}+{End}"
                        Else
                            .Cells(NewRow, 7).Value = Me.TextBox6
                            If Me.TextBox6 = "" Then
                                MsgBox "Debe Ingresar Correo Eléctronico", vbExclamation, strTitulo
                                TextBox6.SetFocus
                                SendKeys "{Home}+{End}"
                            Else
                                If Me.ComboBox1 = "" Then
                                    MsgBox "Debe Ingresar Status", vbExclamation, strTitulo
                                    ComboBox1.SetFocus
                                    SendKeys "{Home}+{End}"
                                Else
                                    .Cells(NewRow, 8).Value = Me.ComboBox1
                                    If Me.TextBox7 = "" Then
                                        MsgBox "Debe Ingresar un Sector", vbExclamation, strTitulo
                                        TextBox7.SetFocus
                                        SendKeys "{Home}+{End}"
                                    Else
                                        .Cells(NewRow, 9).Value = Me.TextBox8
                                        If Me.TextBox8 = "" Then
                                            MsgBox "Debe Ingresar la Dirección", vbExclamation, strTitulo
                                            TextBox8.SetFocus
                                            SendKeys "{Home}+{End}"
                                        Else
                                            .Cells(NewRow, 10).Value = Me.TextBox8
                                            If Me.CheckBox1 = "" Then
                                                Me.TextBox12 = ""
                                                Me.TextBox13 = ""
                                                Me.TextBox15 = ""
                                            Else
                                                .Cells(NewRow, 13).Value = Me.CheckBox1
                                                If Me.TextBox9 = "" Then
                                                    MsgBox "Debe Ingresar N° de Planillas Entregadas", vbExclamation, strTitulo
                                                    TextBox9.SetFocus
                                                    SendKeys "{Home}+{End}"
                                                Else
                                                    .Cells(NewRow, 11).Value = Me.TextBox9
                                                    If Me.TextBox12 = "" Then
                                                        MsgBox "Debe Ingresar Total de Electores Aportados", vbExclamation, strTitulo
                                                        TextBox12.SetFocus
                                                        SendKeys "{Home}+{End}"
                                                    Else
                                                        .Cells(NewRow, 12).Value = Me.TextBox12
                                                        If Me.TextBox13 = "" Then
                                                            MsgBox "Debe Ingresar la Fecha de Entrega", vbExclamation, strTitulo
                                                            TextBox13.SetFocus
                                                            SendKeys "{Home}+{End}"
                                                        Else
                                                            .Cells(NewRow, 14).Value = Me.TextBox13
                                                            If Me.TextBox15 = "" Then
                                                                MsgBox "Debe Ingresar el Total de Electores Verificados", vbExclamation, strTitulo
                                                                TextBox15.SetFocus
                                                                SendKeys "{Home}+{End}"
                                                                .Cells(NewRow, 15).Value = Me.TextBox15
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End With
MsgBox "Ingreso de Datos Exitoso.", vbInformation, strTitulo
'Unload Me
End Sub

Pero de esa forma es muy complejo seguir el código.

Además si te falta algún dato, pero capturaste bien el primer textbox1, el código te almacena el número y como te falta algún dato, el código termina.

Te recomiendo que primero valides los datos, si los datos están completos entonces almacenas los datos en la hoja.

Por ejemplo, te pongo 3 datos; y si es lo que necesitas te sigues con los demás datos.

Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
    If MsgBox("Ingresar nuevo Miembro?", vbYesNo + vbExclamation, strTitulo) = vbNo Then Exit Sub
    '
    If Application.WorksheetFunction.CountIf(Range("A:A"), Me.TextBox1) > 0 Then
        MsgBox "La Cedula'" & Me.TextBox1 & "' ya se encuentra registrada", vbExclamation, strTitulo
        Exit Sub
    End If
    '
    If Me.TextBox1 = "" Then
        MsgBox "Debe Ingresar una Cédula", vbExclamation, strTitulo
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If Me.TextBox2 = "" Then
        MsgBox "Debe Ingresar un Nombre", vbExclamation, strTitulo
        TextBox2.SetFocus
        Exit Sub
    End If
    '
    If Me.TextBox3 = "" Then
        MsgBox "Debe Ingresar un Apellido", vbExclamation, strTitulo
        TextBox3.SetFocus
        Exit Sub
    End If
    'etc
    'etc
    '
    Set h = ThisWorkbook.Worksheets("BD")
    u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
    h.Cells(u, 1).Value = Val(TextBox1.Value)   'cedula
    h.Cells(u, 2).Value = TextBox2.Value        'nombre
    h.Cells(u, 3).Value = TextBox3.Value        'apellido
    'etc
    'etc
    '
    MsgBox "Ingreso de Datos Exitoso.", vbInformation, strTitulo
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Respuesta

Fíjate en un ejemplo que te puede orientar, no especificas que tiene de erróneo el código

https://youtu.be/gqZzSfikEYY

https://youtu.be/smL4A-aRjCM

Visita http://programarexcel.com y descarga cientos de ejemplos gratis para que puedas armar tu macro

Suscribe a https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ y recibe actualizaciones de ejemplos que se vayan presentando en tu mail

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
2 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas

Promedio de las ultimas 100 celdas con numeros

Tengo en la columna 0Y2:OY146 (celdas en blanco y celdas con numeros necesito calcular el promedio de los ultimos 100 numeros de la columna, si la cantidad fuera inferior a 100 que calcule el promedio de la totalidad de las celdas que contenga numeros.
2 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Es estrictamente necesario que una aplicación para android e ios se vea diferente

Si una empresa lanza su aplicación en las tiendas para Android y App Store ¿Esta tendría que verse diferente? Ya que he visto aplicaciones de empresas famosas que se ven un poco mejor diseñadas en Iphone ¿Es estrictamente necesario ofrecer una...
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Buscar un valor que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que proviene de una tabla dinámica que se va actualizando por mes y tiene dos características y buscar el valor en diferentes tablas.
Sin respuestas

Buscar un valor en un rango que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que viene de una tabla dinámica con dos características y hay que buscarlo dentro de un rango en diferentes tablas que coincidan con el nombre.
Sin respuestas