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 post
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 post
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 post
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

    • Hola Cracks! De nuevo necesitando de su apoyo, Tengo una tabla que me muestra el Fill Rate de ordenes de venta  que obtengo por la siguiente formula: Cantidad facturada/Cantidad de Pedido Cuando en una misma fila esta toda la cantidad facturada por toda la cantidad del pedido la formula corre bien y nos da el 100% ,el problema está cuando  una cantidad de pedido se divide entre varias cantidades facturadas se debe dividir todas por la misma cantidad de pedido,  se vería de esta forma: Cantidad de Pedido   | Cantidad Facturada  | Fill Rate 858                                  396                                46% 0                                      129                                 15% 0                                      333                                 39%   El tema es que antes de hacer la división tiene que que comprobar que la cantidad de pedido es diferente a 0 , si es 0 debe correr un ciclo for que le reste -1  a la fila hasta que encuentre la fila de arriba (858) con un valor numérico para poder hacer la división y se le asigne un %. Les dejo mi archivo con un link por We Transfer, espero me puedan ayudar. https://we.tl/t-FM5vlSr9sm En la hoja BD es tal cual esta la tabla antes de aplicarle la macro. En la hoja BD Solucion1de2 se aplica la primer corrección que seria ligar la cantidad facturada a la cantidad de pedido que le corresponde y no dividirlo por 0. En la hoja BD Solucion2de2 se aplica la segunda corrección que seria eliminar todas las filas cuyo Fill Rate sea mayor a 100% porque seria un valor irreal.
    • Hola Ramon Hay variedad de patrones y formas, para obtener acumulados en DAX, pero también comentar que depende de modelado que se tiene  Un ejemplo puede ser  AcumuladoVentas = CALCULATE ( [TotalVentas]; FILTER ( ALL ( Calendario ); Calendario[Fecha] <= MAX ( Calendario[Fecha] ) ) ) [TotalVentas]: es la medida de sumar, pero puede ser cualquier medida que tengas para tu acumulado   Saludos! 
    • Aqui esta el archivo en excel y una de las planillas en word en las que la macro sustituye los datos. Datos_Licitaciones.xlsm Cotizacion.docx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy