Evitar celda sin dato
en un libro banco tengo la siguiente macro corregida por garciac, de esta página pero necesito ponerla más opartiva para eso tengo dos inconvenientes:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Tipo As String
If Target.Column = 5 Then
Tipo = Target.Value
Select Case Tipo
Case "CH", "ND"
Target.Offset(0, 1).Select
Case "DP", "NC"
Target.Offset(0, 2).Select
Case Else
Target.Offset(0, 0).Select
End Select
End If
End Sub
1. Que en la columna tipo (E) se debe colocar una de las opciones (de la cual realice una lista desplegable) necesito que esa celda de esa columna no debe permitir datos en blanco o vacia.
2. QUE AL COLOCAR EN MONTO EN EL DEBE O HABER COLUMNA F O G RESPECTIVAMENTE AL PRESIONAR ENTER ME COLOQUE EN LA COLUMNA B FILA SIGUIENTE PARA CONTINUAR INTRODUCIENDO DATOS
GRACIAS POR SU ATENCIÓN Y TIEMPO
1 Respuesta
Prueba este código
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Tipo As String
If Target.Column = 5 Then
Tipo = Target.Value
Select Case Tipo
Case "CH", "ND"
Target.Offset(0, 1).Select
Case "DP", "NC"
Target.Offset(0, 2).Select
Case Else
Target.Offset(0, 0).Select
End Select
End If
If Target.Column = 6 Then
Target.Offset(1, -4).Select
End If
If Target.Column = 7 Then
Target.Offset(1, -5).Select
End If
End Sub
Con respecto a lo de las celdas vacías cuando crees la lista en validación de datos, desactivas la opción "omitir blancos", ademas puedes poner un mensaje de error.
Si tienes alguna duda coméntamela, no se te olvide finalizar la pregunta!
