Dante Amor

Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L:L")) Is Nothing Then Dim i As Long If Target.CountLarge > 1 Then Exit Sub If UCase(Target.Value) = UCase("Alta")...

Al parecer los valores en las celdas son textos. Edita cada celda y después presiona enter, para ver si el valor se convierte en un valor numérico. Si es así, repite la operación para todas las celdas. O multiplica todas las celdas por 1.

¿En la columna A tienes el nombre y en la columna B el centro? Algo como esto: Según mi ejemplo quieres crear 3 hojas: dep1, ¿dep2 y dep3? Puedes comentar ...

Si quieres separar la PREposición del apellido. Por ejemplo: DELOPEZ el resultado DE LOPEZ Prueba la siguiente macro Sub Separar_Preposicion_De() With Range("A2", Range("A" & Rows.Count).End(xlUp)) .Value =...

Aquí otra opción, para este año 2020: Si en A1 tienes 27 En B1 pon la siguiente fórmula =A1*7+43821 Nota: 43821 corresponde al domingo 22 de dic de 2019, esto es para obtener la semana 1 del año 2020. En C1 pon esta fórmula =B1+6 Resultados:

Prueba lo siguiente: Private Sub txtCod_Exit(ByVal Cancel As MSForms.ReturnBoolean) If MINCaracter(txtCod, "Cod/Producto", 10) = False Then Exit Sub ''AQUI 10 DIGITOS Max Cancel = True End Sub

¿Qué dice el mensaje de error? No se ve bien la imagen.

¿Y cómo seleccionas la celda en la hoja? ¿Por lo que veo tienes varios registros con "Toallas de mano" pero cómo sabes cuál es el que tienes en el listbox? Cómo cargas los datos en el listbox, ¿tienes algún filtro para cargar los datos o simplemente...

Prueba hacer todo en un nuevo libro. Pon aquí el código que tengas.

¿Cómo haces la carga?