Jump to content

Problema en macro al saltar aviso validando longitud de una celda.


Recommended Posts

Hola, ¿puede alguien revisar esta macro?

Sería este código, ahora mismo lo tengo en verde para que no salte. Quiero que una vez que introduzca datos en la celda B1, si la longitud es diferente a 10 caracteres me avise. Le pongo que haga esta comprobación cuando la celda no esté vacía. Algo así como después de actualizarla. El problema es que al hacer una prueba, me salta el msgbox igual en plan bucle infinito… no sé cómo solucionarlo. Gracias!


Private Sub Worksheet_Change(ByVal Target As Range)

'celda = "B1"

'If Not IsEmpty(celda) And Len(celda) <> 10 Then

'MsgBox ("Revisar Código. 10 caracteres obligatorios"), vbInformation

'Range("B1").Clear

'End If

End Sub

 

ejemplo_len.xlsm

Link to comment
Share on other sites

Prueba así, si lo que pretendes es que no se pueda continuar si no se rellena la celda, habrá que recurrir a un userform.

Private Sub Worksheet_Change(ByVal Target As Range)
Set celda = Range("B1")
If Not Intersect(Target, celda) Is Nothing Then
   If Not IsEmpty(celda) And Len(celda) <> 12 Then
      MsgBox ("Revisar Código. 12 caracteres obligatorios"), vbInformation
      celda.Select
   End If
End If
End Sub

 

Link to comment
Share on other sites

17 minutes ago, Antoni said:

Prueba así, si lo que pretendes es que no se pueda continuar si no se rellena la celda, habrá que recurrir a un userform.


Private Sub Worksheet_Change(ByVal Target As Range)
Set celda = Range("B1")
If Not Intersect(Target, celda) Is Nothing Then
   If Not IsEmpty(celda) And Len(celda) <> 12 Then
      MsgBox ("Revisar Código. 12 caracteres obligatorios"), vbInformation
      celda.Select
   End If
End If
End Sub

 

gracias, Antoni! Funcionó a la perfección, como siempre!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy