Como hago que no guarde la informacion si hay celdas en blanco

Tengo esta macro:

Private Sub AGREGAR_Click()
Dim fila As Integer
fila = 1
While Cells(fila, 1) <> ""
fila = fila + 1
Wend
If IdTienda.Value = "" Then
MsgBox "Error, El Campo IdTienda es Obligatorio"
Else
ActiveSheet.Cells(fila, 1) = IdTienda.Text
ActiveSheet.Cells(fila + 1, 1) = IdTienda.Text
ActiveSheet.Cells(fila + 2, 1) = IdTienda.Text
ActiveSheet.Cells(fila + 3, 1) = IdTienda.Text
End If
If Semana.Value = "" Then
MsgBox "Error, El Campo SEMANA es Obligatorio"
Else
end sub

Como hago para que primero verifique el error y no guarde la información

En pocas palabras si hay error que no guarde la información

1 Respuesta

Respuesta
2

Puede ser de esta forma:

Private Sub AGREGAR_Click()
    Dim fila As Integer
    fila = 1
    While Cells(fila, 1) <> ""
        fila = fila + 1
    Wend
    'VALIDACIONES
    If IdTienda.Value = "" Then
        MsgBox "Error, El Campo IdTienda es Obligatorio"
        Exit Sub
    End If
    If Semana.Value = "" Then
        MsgBox "Error, El Campo SEMANA es Obligatorio"
        Exit Sub
    End If
    '
    'AGREGAR REGISTRO
    ActiveSheet.Cells(fila, 1) = IdTienda.Text
    ActiveSheet.Cells(fila + 1, 1) = Semana.Text
    ActiveSheet.Cells(fila + 2, 1) = TextBox3.Text
    ActiveSheet.Cells(fila + 3, 1) = TextBox4.Text
    MsgBox "Registro agregado"
End Sub

[Si te ayudó la información, no olvides valorar la respuesta.

¡Gracias! 

Me ayudo mucho

No olvides valorar la respuesta.

También tienes pendiente valorar esta respuesta:

Por que me genera este error de compilación

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas