Excel celda de datos obligatorios
Quisiera saber como obligar a llenar una celda y verificar en otra celda
Pensé que esto funcionaria
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Hoja1").Range("B25").Value = "" Then
Call B1
End If
End Sub
Private Sub B1()
Dim B1 As Boolean
If Sheets("Hoja1").Range("B24").Value = "" Then
Call B2
End If
End Sub
Private Sub B2()
Dim B2 As Boolean
If Sheets("Hoja1").Range("B23").Value = "" Then
Cancel = True
Else
ActiveWorkbook.Close savechanges:=True
End If
End Sub
No se en que evento lo necesitas pero prueba, suponiendo que la celda es A1 donde debe obligatoriamente ingresar un dato
sub obliga()
If Range("A1")= empty then
Msgbox("Debe ingresar un dato en A1 en forma obligatoria")
exit sub
End if
End sub
Visita http://programarexcel.com descarga cientos de ejemplos de macros gratis.
