Formulario

publicado el 19 de noviembre6 años

Estimados expertos reciban un cordial saludo por intermedio de ayudaexcel, mi dificultad es que estoy creando un sistema de restaurante para cual tengo un formulario Hamburguesas la cual cuando selecciono una las mesas en momentos selecciona bien y en otro momento no selecciona, pero el problema es que si selecciono una mesa y si quiero seleccionar otra mesa si haber seleccionado un plato no debe seleccionar o por lo menos que diga no a seleccionado ningún plato en la mesa tal (mesa seleccionada anteriormente) por el momento eso es mi dificultad. Amigos programadores espero su pronta respuesta de antemano muchas gracias. Adjunto el enlace del archivo.

https://onedrive.live.com/?id=9076AC7202FC6EF1!522&cid=9076AC7202FC6EF1

Editado el el 19 de noviembre6 años por jeaa

publicado el 19 de noviembre6 años

Bueno ... dice el enlace que ya no existe el archivo...

Saludos.

publicado el 19 de noviembre6 años

No hay nada tampoco en ese nuevo enlace

publicado el 19 de noviembre6 años

Autor

Sino que el archivo pesa bastante ojala se pueda, disculpa por la demora.

https://drive.google.com/open?id=1zB_oahrWD5OBT0yQCP2fNssdhYFw2_7G

publicado el 19 de noviembre6 años

Hace 17 horas, jeaa dijo:

Amigos programadores espero su pronta respuesta de antemano muchas gracias

Espero que algún programador tenga un super pantallón para poder ayudarte. En mi humilde portátil el userform se sale por todos lados de la pantalla :huh: . ¿Es necesario hacerlo tan gigante? Yo no puedo trabajar sobre él y por lo tanto no puedo ayudarte

publicado el 19 de noviembre6 años

Hace 19 minutos , Haplox dijo:

Espero que algún programador tenga un super pantallón para poder ayudarte. En mi humilde portátil el userform se sale por todos lados de la pantalla . ¿Es necesario hacerlo tan gigante? Yo no puedo trabajar sobre él y por lo tanto no puedo ayudarte

¡Dios mío, que carácter! Con poner Me.Zoom = 85 en el evento Initialize del formulario se acaba el problema, ¡Ale!, ya no tienes excusa.???

publicado el 19 de noviembre6 años

Autor

Disculpe por el tamaño de pantalla la pantalla se puede adecuar, de todos modos gracias.

publicado el 20 de noviembre6 años

Hace 21 horas, Antoni dijo:

¡Dios mío, que carácter!

Ya, ya,... pero a ti no te veo echar una manita . Es que está lleno de trampas, hay que deshabilitar o cambiar la mitad de las cosas para abrirlo, pera poder cerrarlo... :blink:

Aparte @jeaa no entiendo la dinámica del form, ni la que necesitas. No sé que es esa macro de validadr mesa, que funciona unas veces y otras no. Explica claramente que te sobra o no funciona, así cómo quieres que funcione el form. Ejemplo

Si elijo una mesa no poder cambiar hasta... ¿Qué? ¿Validar el pedido?
SI elijo una mesa, pero quiero seleccionar otra porque, por ejemplo me he equivocado... ¿Qué hago?
etc.

Cosas así, para tener claro qué necesitas

publicado el 20 de noviembre6 años

Cita

Haplox dijo:

Ya, ya,... pero a ti no te veo echar una manita . Es que está lleno de trampas, hay que deshabilitar o cambiar la mitad de las cosas para abrirlo, pera poder cerrarlo...

Es que soy daltónico, detecto el color "marrón" a la legua, jajaja............???

publicado el 20 de noviembre6 años

Autor

Disculpa lo que pasa es que quiero de me funcione correctamente los números de mesas; si selecciono una mesa también debo seleccionar los platos que deseo y así sucesivamente con todas las mesas y si yo selecciona otra mesa sin haber culminado con la mesa anterior seleccionado, me debe salir un mensaje no termino el pedido con la mesa anterior numero tal y no de be pasar a otra mesa. En conclusión si selecciona una mesa también debo seleccionar uno o mas platos y así para el resto de las mesas.

publicado el 23 de noviembre6 años

@jeaa , se me hace imposible trabajar con tu formulario, aparte de que con tanto código sin demasiado sentido, tocar cualquier cosa puede estroperar otra.

Habías empezado bien con M1. Pon este código para todas las pesas, cambiando M1 por cada mesa (M2, M3, etc): Espero que te pueda guiar para seguir

If MesaActiva <> M1.Caption And VisualizarLB.ListCount = 0 Then
        respuesta = MsgBox("La" & " Mesa " & Mid(VisorMesa, 6, 2) & " está activa " & "y no Ha Registrado Nada Para el Pedido: " & NoPedido & vbNewLine & vbNewLine & "¿Realmente quiere cambiar de mesa?", vbYesNo, "Mesa Activa sin Pedido")
            If respuesta = 6 Then
                VisorMesa = "MESA " & M1.Caption & " ACTIVA"
                M1.BackColor = vbRed
            End If
    End If

publicado el 23 de noviembre6 años

Autor

Haplox, muchas gracias voy a probar y te cuento luego...

publicado el 23 de noviembre6 años

Autor

Funciona bien lo que pasa es que una vez seleccionada la mesa selecciono un plato me dice que seleccione una mesa, pero ya esta seleccionado la mesa esto significa que no reconoce la mesa por favor que puedo hacer.

publicado el 24 de noviembre6 años

Hace 16 horas, jeaa dijo:

Funciona bien lo que pasa es que una vez seleccionada la mesa selecciono un plato me dice que seleccione una mesa

A ver, yo solo he puesto en el labe la mesa que se selecciona, pero no sé cómo hacías para realmente activarla. Solo tienes que llevar esa parte dentrol del If.

Como ves a poco que se toca se estropea algo. Por cierto, debes hacerlo con todas las mesas, que según lo visto para cada una tienes un código distinto :huh: . De hay lo que decías de "unas veces funciona y otras no". Lógico si para cada mesa tienes un código distinto.

If MesaActiva <> M1.Caption And VisualizarLB.ListCount = 0 Then
        respuesta = MsgBox("La" & " Mesa " & Mid(VisorMesa, 6, 2) & " está activa " & "y no Ha Registrado Nada Para el Pedido: " & NoPedido & vbNewLine & vbNewLine & "¿Realmente quiere cambiar de mesa?", vbYesNo, "Mesa Activa sin Pedido")
            If respuesta = 6 Then
                VisorMesa = "MESA " & M1.Caption & " ACTIVA"
                M1.BackColor = vbRed

				'TODO EL CÓDIGO QUE USASES IRÍA AQUÍ'
	
            End If
    End If

publicado el 24 de noviembre6 años

Autor

respuesta = MsgBox("La" & " Mesa " & Mid(VisorMesa, 6, 2) & " está activa " & "y no Ha Registrado Nada Para el Pedido: " & NoPedido & vbNewLine & vbNewLine & "¿Realmente quiere cambiar de mesa?", vbYesNo, "Mesa Activa sin Pedido")

Al ejecutar el formulario selecciono una mesa me sales un mensajes como muestra la siguiente imagen image.png.642a7f4d9febbb6c3c6d36500dd09ff7.png

a la mesa lo toma Y y en todas las mesas, ademas este mensaje podría salir cuando pulso en otra mesa sin haber seleccionado un plato, pero este sale cuando apena ejecuto y escojo una mesa. Por favor si me dejo entender, Haplox muchas gracias por tomarte el tiempo en mi duda de agradezco de todo corazón.

6 años6 años Gerson Pineda changed the title to Formulario

publicado el 25 de noviembre6 años

En 24/11/2019 at 17:24 , jeaa dijo:

a la mesa lo toma Y y en todas las mesas, ademas este mensaje podría salir cuando pulso en otra mesa sin haber seleccionado un plato, pero este sale cuando apena ejecuto y escojo una mesa. Por favor si me dejo entender, Haplox muchas gracias por tomarte el tiempo en mi duda de agradezco de todo corazón.

No entiendo ¿Necesitas ayuda o modificar algo más?

publicado el 25 de noviembre6 años

Autor

Haplox, disculpa solo quiero nada mas que funcione las mesas

publicado el 25 de noviembre6 años

@jeaa , por partes... Te dejo el código, sin variar mucho para no estropear el resto de jaleo de macros que tienes, de las Mesas 1 y 2. Debes aplicarlas al resto, FIJÁNDOTE que debes cambiar las celdas, NumMesa, etc. correspondientes a cada mesa.

En algún lugar, supongo que al registrar el pedido, debes poner MesaActiva a 0, si no no te funcionará. Lo del nº de pedido no me ha quedado claro cómo quieres ponerlo o su dinámica. Mira el cambio que he hecho a ver si es lo que necesitas... Y crucemos los dedos ?

Private Sub M1_Click()

    Dim NumMesa As Integer, PedMesa As Integer
    NumMesa = Hoja6.Cells(2, 2)
    PedMesa = Hoja6.Cells(2, 3)
    TotalL = "0"
    TotalL = Format(TotalL, "$ ###,##0")
    VisualizarLB.Clear
    
    Uf = Sheets(2).Range("B1:B" & Rows.count).End(xlDown).Row
    NoPedido = WorksheetFunction.Max(Sheets(2).Range("B1:B" & Uf)) + 1
    
    'NoPedido.Text = Hoja2.Cells(2, 14) + 1
    BillTxt.Text = ""
    BillTxt.Text = Format(BillTxt.Text, "$ ###,##0")
    
    If MesaActiva <> 0 And VisualizarLB.ListCount = 0 Then
    
        MsgBox "No Ha Registrado Nada Para el Pedido: " & NoPedido
        M1.ForeColor = vbGreen
    Exit Sub
    End If
    
    
    
    
    If NumMesa = 0 Then
    
        'VisorMesa = "MESA 1, ESTA ACTIVA CON EL PEDIDO No " & NoPedido.Text
        VisorMesa = Hoja6.Cells(NumMesa + 2, 1) + ", ESTA ACTIVA. PEDIDIDO No: " & NoPedido.Text
        Hoja6.Cells(NumMesa + 2, 2) = 1
        Hoja6.Cells(NumMesa + 2, 3) = NoPedido.Text
        M1.ForeColor = vbRed
    
    End If
         
    If PedMesa <> 0 Then
        
        Me.VisualizarLB.Clear
        Dim ped, count As Integer, FilPed As Integer, UltFil As Integer
        NoPedido.Text = Hoja6.Range("C2")
        FilPed = Hoja6.Range("C2")
        UltFil = Hoja2.Range("B" & Rows.count).End(xlUp).Row

            For count = 2 To UltFil
            
                ped = Hoja2.Cells(count, 2)
                
                    If ped = FilPed Then
                    
                        Me.VisualizarLB.AddItem Cells(count, 1)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 1) = Hoja2.Cells(count, 2)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 2) = Hoja2.Cells(count, 3)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 3) = Hoja2.Cells(count, 4)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 4) = Hoja2.Cells(count, 5)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 5) = Hoja2.Cells(count, 6)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 6) = Hoja2.Cells(count, 7)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 7) = Hoja2.Cells(count, 8)
                                        
                    End If
                    
            Next count

        End If
            
            Dim Suma As Long
            Dim i As Integer
            
            Suma = 0
            
                For i = 0 To Me.VisualizarLB.ListCount - 1
            
                    Suma = Suma + CDbl(Me.VisualizarLB.List(i, 7))
            
                Next
           
                    TotalL = Suma
                    TotalL = Format(TotalL.Caption, "$ ###,##0")
     
                    

 
 MesaActiva = 1
End Sub

Private Sub M2_Click()


Dim NumMesa As Integer, PedMesa As Integer
    NumMesa = Hoja6.Cells(3, 2)
    PedMesa = Hoja6.Cells(3, 3)
    TotalL = "0"
    TotalL = Format(TotalL, "$ ###,##0")
    VisualizarLB.Clear
    
    Uf = Sheets(2).Range("B1:B" & Rows.count).End(xlDown).Row
    NoPedido = WorksheetFunction.Max(Sheets(2).Range("B1:B" & Uf)) + 1
    
    'NoPedido.Text = Hoja2.Cells(2, 14) + 1
    BillTxt.Text = ""
    BillTxt.Text = Format(BillTxt.Text, "$ ###,##0")
    
    If MesaActiva <> 0 And VisualizarLB.ListCount = 0 Then
    
        MsgBox "No Ha Registrado Nada Para el Pedido: " & NoPedido
        M2.ForeColor = vbGreen
    Exit Sub
    End If
    
    
    
    
    If NumMesa = 0 Then
    
        VisorMesa = "MESA 1, ESTA ACTIVA CON EL PEDIDO No " & NoPedido.Text
        VisorMesa = Hoja6.Cells(NumMesa + 2, 1) + ", ESTA ACTIVA. PEDIDIDO No: " & NoPedido.Text
        Hoja6.Cells(NumMesa + 2, 2) = 1
        Hoja6.Cells(NumMesa + 2, 3) = NoPedido.Text
        M1.ForeColor = vbRed
    
    End If
         
    If PedMesa <> 0 Then
        
        Me.VisualizarLB.Clear
        Dim ped, count As Integer, FilPed As Integer, UltFil As Integer
        NoPedido.Text = Hoja6.Range("C3")
        FilPed = Hoja6.Range("C3")
        UltFil = Hoja2.Range("B" & Rows.count).End(xlUp).Row

            For count = 2 To UltFil
            
                ped = Hoja2.Cells(count, 2)
                
                    If ped = FilPed Then
                    
                        Me.VisualizarLB.AddItem Cells(count, 1)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 1) = Hoja2.Cells(count, 2)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 2) = Hoja2.Cells(count, 3)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 3) = Hoja2.Cells(count, 4)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 4) = Hoja2.Cells(count, 5)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 5) = Hoja2.Cells(count, 6)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 6) = Hoja2.Cells(count, 7)
                        Me.VisualizarLB.List(Me.VisualizarLB.ListCount - 1, 7) = Hoja2.Cells(count, 8)
                                        
                    End If
                    
            Next count

        End If
            
            Dim Suma As Long
            Dim i As Integer
            
            Suma = 0
            
                For i = 0 To Me.VisualizarLB.ListCount - 1
            
                    Suma = Suma + CDbl(Me.VisualizarLB.List(i, 7))
            
                Next
           
                    TotalL = Suma
                    TotalL = Format(TotalL.Caption, "$ ###,##0")
     
                    

 
 MesaActiva = 2
End Sub

publicado el 29 de noviembre6 años

Autor

Muchas gracias, me sirvió mucho

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 2

Crear un loop para emitir recibos

Prueba con tu código modificado

Por JSDJSD, · publicado hace 11 horas 11 hr
Crear un loop para emitir recibos

Sub Imagen13_Haga_clic_en() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R34") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste '---- RUTA DEL ARCHIVO (CORREGIDO) ---- rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("K19") & ".JPG" .Chart.Export rutaArchivo .Delete End With 'Guardar ruta en AK30 por compatibilidad Range("AK30").Value = rutaArchivo '--- PEGAR BLOQUE DE DATOS --- Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- PREPARAR ENVÍO DEL MAIL --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VALIDAR ARCHIVO ANTES DE ENVIAR --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR MAIL --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub Sub powerbuttonINQ() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R33") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("J17") & ".JPG" .Chart.Export rutaArchivo .Delete End With Range("AK30").Value = rutaArchivo Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- EMAIL CONFIG --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VERIFICAR ARCHIVO --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub

Por JSDJSD, · publicado hace 11 horas 11 hr
Crear un loop para emitir recibos

Hola! como estás?
Ahora parece ser que quisiera funcionar la macro, pero no he logrado que llegue hasta el final porque me arroja error cuando tiene que adjuntar el archivo (lo cual normalmente funciona bien)... no lo entiendo, porque estuve revisando si el archivo seguía guardandose con el mismo formato y en la misma carpeta y, por lo que vi, está todo correcto.

Buenas tardes!
Estuve haciendo la prueba. La macro no llega a finalizar porque arroja el error que muestro en los archivos adjuntos. No entiendo por qué no logra encontrar los archivos al ejecutar el loop, porque si utilizo la macro original (es decir, sin el loop), funciona correctamente.
Se me ocurría que quizá al copiar y pegar el codigo en la celda P17 quizá estuviera poniendo algo extra en el nombre del archivo a crear que hiciera que el recibo creado no se guardara exactamente con el mismo nombre por el que luego la macro lo intentaría localizar el para enviarlo por mail, pero revisé y aparentemente los archivos se guardan con el mismo formato que se guardaron siempre.
Sabrán qué puede ser?

Por Corvette, · publicado el jueves a las 18:031 día
FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Hola Susana.
¿No puedes usar una Macro?
No te preocupes, prueba con esta formula, suponiendo que el IBAN de la cuenta está en A2:
=SI(EXTRAE(A2;13;2)=SI(11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)*3&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)=10;1;SI(11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)=11;0;11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)))&SI(11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)=10;1;SI(11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)=11;0;11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)));"Valido";"Erroneo")
¿Demasiado largo?
Bueno, para los que no apreciáis la belleza de la jungla, puedes usar esta otra:
=SI(EXTRAE(A2;13;2)=EXTRAE(12345678910;11-RESIDUO(SUMA(EXTRAE(A2;FILA(INDIRECTO("5:12"));1)*(EXTRAE(37498625;FILA(INDIRECTO("1:8"));1)+1));11);1)&EXTRAE(12345678910;11-RESIDUO(SUMA(EXTRAE(DERECHA(A2;10);FILA(INDIRECTO("1:10"));1)*(EXTRAE(0&137498625;FILA(INDIRECTO("1:10"));1)+1));11);1);"Valido";"No Valido")
Esta última depende de la versión de tu excel deberás usar Control+Mayusculas+Intro.
Saludos.

Por torquemada, · publicado el 29 de noviembre29 nov
FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Hola, SUSANA GARCIA-ABAD FERNANDEZ.
En esta respuesta de Antoni
Puede que encuentres la solución.
Saludos.

Por torquemada, · publicado el 27 de noviembre27 nov

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Formulario

Featured Replies

Haplox, muchas gracias voy a probar y te cuento luego...

Haplox, disculpa solo quiero nada mas que funcione las mesas

Archivado

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)