Como condicionar una operación de una macro

Tengo varios textbox el cual ya coloque condición de que si no estaba lleno arrojara un mensaje y lo colocara en el mismo textbox así a varios textbox, entonces cuando ninguno esta aparecen todos los mensajes; adicional a esto coloque que fuera a una hoja y me agregara una fila; la pregunta es: que código tengo que usar para que si en el caso que no llenaran un textbox no hiciera la operación de agregar filas en la otra hoja

Este es el código que tengo

Private Sub CommandButton1_Click()
Dim ren As Long
If tipo_operacion.Text = "" Then
MsgBox ("INGRESA TIPO DE OPERACION")
tipo_operacion.SetFocus
End If
If orden_p.Text = "" Then
MsgBox ("INGRESA LA ORDEN DE PRODUCCION")
orden_p.SetFocus
End If
If origen.Text = "" Then
MsgBox ("INGRESA TIPO DE ORIGEN")
origen.SetFocus
End If
If maq.Text = "" Then
MsgBox ("INGRESA LA MAQUINA")
maq.SetFocus
End If
If cod_ref.Text = "" Then
MsgBox ("INGRESA EL CODIGO DE LA REFERENCIA")
cod_ref.SetFocus
End If
If prod_ref.Text = "" Then
MsgBox ("INGRESA EL PRODUCTO DE REFERENCIA")
prod_ref.SetFocus
End If
If c_total.Text = "" Then
MsgBox ("INGRESA LA CANTIDAD PRODUCIDA")
c_total.SetFocus
End If
If s_total.Text = "" Then
MsgBox ("INGRESA EL SCRAP")
s_total.SetFocus
End If

Application.ScreenUpdating = False

Sheets("BD INGRESO PRODUCCION").Select
Range("A3:X3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("C3").Select

1 Respuesta

Respuesta
1

H o l a: Estoy agregando la variable werr para activarla en caso de faltar algún dato. Después valido si la variable es verdadera, si es así, entonces se sale de la rutina. Si no hay errores de captura entonces continúa con el código para agregar la fila.

Private Sub CommandButton1_Click()
    Dim ren As Long
    Dim werr As Boolean
    werr = False
    If tipo_operacion.Text = "" Then
        MsgBox ("INGRESA TIPO DE OPERACION")
        tipo_operacion.SetFocus
        werr = True
    End If
    If orden_p.Text = "" Then
        MsgBox ("INGRESA LA ORDEN DE PRODUCCION")
        orden_p.SetFocus
        werr = True
    End If
    If origen.Text = "" Then
        MsgBox ("INGRESA TIPO DE ORIGEN")
        origen.SetFocus
        werr = True
    End If
    If maq.Text = "" Then
        MsgBox ("INGRESA LA MAQUINA")
        maq.SetFocus
        werr = True
    End If
    If cod_ref.Text = "" Then
        MsgBox ("INGRESA EL CODIGO DE LA REFERENCIA")
        cod_ref.SetFocus
        werr = True
    End If
    If prod_ref.Text = "" Then
        MsgBox ("INGRESA EL PRODUCTO DE REFERENCIA")
        prod_ref.SetFocus
        werr = True
    End If
    If c_total.Text = "" Then
        MsgBox ("INGRESA LA CANTIDAD PRODUCIDA")
        c_total.SetFocus
        werr = True
    End If
    If s_total.Text = "" Then
        MsgBox ("INGRESA EL SCRAP")
        s_total.SetFocus
        werr = True
    End If
    '
    If werr Then Exit Sub
    '
    Application.ScreenUpdating = False
    Sheets("BD INGRESO PRODUCCION").Select
    Range("A3:X3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    Range("C3").Select
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Atascado en la función sumar. Si

En una hoja de calculo tengo en las columnas H, I, J una celda en blanco por columna, en la columna QUE tengo una celda con un numero como referencia 1000 y una celda donde ha de apareceme el resultado siguiente para el cual necesito la fórmula que...
2 respuestas

Fórmula que separe la fecha por dígitos de uno en cada columna

Necesito una fórmula o macro que separe la fecha en dígitos de uno en cada columna, Ej: 27/03/2025 (col-A(2), col-B(7), col-C(0), col-D(3), col-E(2), col-F(0), col-G(2), col-H(5) Agradecido de antemanos
2 respuestas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Cómo se copia una fórmula moviendo solo valores intermedios?

Tengo la siguiente fórmula: ='2025-300'!C$1 Deseo arrastrar la fórmula hacia abajo o copiarla de forma que solo cambie el 300 en el correlativo siguiente: ='2025-301'!C$1 ='2025-302'!C$1 Y asi sucescivamente.
1 respuesta

¿Como adecuar picture de fondo dependiendo de pantalla?

Tengo un libro de Excel que manejo con formularios. Tengo una hoja cuyo fondo tengo una imagen que dependiendo del ordenador en que lo habra, sale desplazado o mas grande... Es decir, me varia dependiendo, creo yo de la resolucion o tamaño de...
2 respuestas

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
1 respuesta

¿Macro al escribir carácter en un rango de Excel?

A tod@s! Tengo una hoja llamada Acción y lo que quiero es que en cualquier celda de la columna C, cada vez que escriba un carácter ejecute una acción o macro. ¿Cómo puedo hacerlo?
1 respuesta

Agregar y ocultas celdas con botón

Tengo varios archivos Excel donde manejo información por semanas, pero cada semana tengo que ocultar la semana que ya pasó y agregar una semana nueva, son 45 pestañas! Es un lio hacer una por una. Quisiera saber si hay una manera de que con un botón...
1 respuesta

¿Código VBA en Excel para filtrar en un textbox sin tener en cuenta acentos, mayúsculas o minúsculas?

Estoy utilizando el siguiente código en una hoja de excel para buscar y filtrar lo que escribo en dos Texbox: Private Sub TextBox1_Change() ActiveSheet.Unprotect ALERTA = "*" & TextBox1.Value & "*" Range("D3").AutoFilter Field:=4, Criteria1:=ALERTA...
1 respuesta