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 de Dante Amor
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:
