Macro validación de datos en sumas

Estimado, muy buena tarde:
Agradezco, me pudieran colaborar con el siguiente tema:
Ejemplo:
                   Colum A       Colum B
Fila 2          Código           Valor
Fila 3          1105             2.000 (Suma Filas 4+5+6)
Fila 4 110505 600
Fila 5 110506 200
Fila 6 110507 1.200
Fila 8 1110 3.000 (Suma Filas 9+10+11)
Fila 9 111005 1.500
Fila 10 111006 500
Fila 11 111007 1000
Especificaciones: los códigos de 4 cifras son la suma de los códigos que tienen 6, pero que comienzan con esas mismas 4 cifras.
La macro realizaría la verificación que el valor que tengan los códigos de 4 cifras efectivamente sean la suma de los que tienen 6, siempre y cuando comiencen por las 4 cifras, Ejemplo: 1105=110501+110502+110503+N...
Luego cuando vuelva a encontrar un codigo de 4 cifras, siga verificando. Las que la anteceden,  Ejemplo: 1110= 111001+111002+111003+N...............
Esta vericiacion se cumple en por los menos unos 70 números que tienen 4 cifras,
por eso reuqueriria que al terminar la vericiacion de uno siga con el otro y así hasta no encontrar datos en la columna código.
Soy consciente que el tema es algo complicado, llevo intentándolo, pero no he podido ni he solucionado, nada, les ofrezco mis agradecimientos si me pudieran colaborar con clarificar este tema.
Mil y mil gracias por su ayuda.

1 respuesta

Respuesta
1
Bueno tomando en cuenta tu ejemplo desarrolle lo siguiente :
Sub Sumar_Criterio()
    CantAu = 1
    For Fila = 2 To Range("A65536").End(xlUp).Row
        If Len(Cells(Fila, 1)) = 4 Then
            Cod = Cells(Fila, 1)
            If CantAu = 0 Then
                Cells(AuFila, 2) = Cant
            End If
            Cant = 0
            AuFila = Fila
        ElseIf Len(Cells(Fila, 1)) > 4 Then
            If Cod = Val(Mid(Cells(Fila, 1), 1, 4)) Then
                Cant = Cant + Cells(Fila, 2)
                If Len(Cells(Fila + 1, 1)) = 4 Then
                    CantAu = 0
                End If
            End If
        End If
    Next
    Cells(AuFila, 2) = Cant
End Sub
Espero que sea de tu ayuda. Cualquier consulta no dudes en preguntar.
Suerte
Pitcher !
Mil gracias por tu tiempo, y tu pronta respuesta, es fantástica la instrucción que me facilitas, es fantástica, me vas ahorrar tiempo, en ejecución de taras, en verdad era lo que necesitaba, de igual manera te pido disculpas, porque se me paso hacer una pregunta demás, hay alguna forma que esta macro sirva también, no solo para que ponga la suma, si no que en ves de colocarla, ¿la verifique? Es decir,
                   Colum A       Colum B
Fila 2          Código           Valor
Fila 3          1105             2.000 (Suma Filas 4+5+6)
Fila 4 110505 600
Fila 5 110506 200
Fila 6 110507 1.200
Fila 8 1110 3.000 (Suma Filas 9+10+11)
Fila 9 111005 1.500
Fila 10 111006 500
Fila 11 111007 1000
Yo recibo esos archivos ya totalizados, pero con el valor en numero, SIN FÓRMULA, para en este caso en las filas 3, 8 y n..., también podría si no es mucho pedir que la macro verifique que esos valores que están puesto en números que corresponden a la suma de los códigos, ¿sean efectivamente la sumas correctas?, si en en caso contrario la suma es incorrecta, me salga como un log, ¿diciendo qué suma es incorrecta para los códigos en cuestión? o si no es un log, ¿Un mensaje de error?
Te agradezco mucho tu tiempo, apreciado experto.
Saludos,
Fredy mira modifique algo el código para hacer la suma en la columna C y en la columna DE hice la consulta si la B es igual a la C. este es el código :
Sub Sumar_Criterio_Formula()
    CantAu = 1
    Cont = 0
    Formula = ""
    For Fila = 2 To Range("A65536").End(xlUp).Row
        If Len(Cells(Fila, 1)) = 4 Then
            Cod = Cells(Fila, 1)
            If CantAu = 0 Then
                Cells(AuFila, 3).Select
                ActiveCell.FormulaR1C1 = "=" & Formula
                Cells(AuFila, 4).Select
                ActiveCell.FormulaR1C1 = "=+RC[-2]=RC[-1]"
                Cont = 0
                Formula = ""
            End If
            Cant = "+"
            AuFila = Fila
        ElseIf Len(Cells(Fila, 1)) > 4 Then
            If Cod = Val(Mid(Cells(Fila, 1), 1, 4)) Then
                Cant = Cant & Cells(Fila, 2) & "+"
                Cont = Cont + 1
                Formula = Formula & "+R[" & Cont & "]C[-1]"
                If Len(Cells(Fila + 1, 1)) = 4 Then
                    CantAu = 0
                End If
            End If
        End If
    Next
    Cells(AuFila, 3).Select
    ActiveCell.FormulaR1C1 = "=" & Formula
    Cells(AuFila, 4).Select
    ActiveCell.FormulaR1C1 = "=+RC[-2]=RC[-1]"
End Sub
Espero que sea de tu ayuda. Cualquier consulta no dudes en preguntar.
Suerte
Pitcher !
Estimado Experto Pitcher, en verdad mil gracias por tu gestión, en exaactamente lo que requería, te agradezco me hayas dedicado tiempo para la solución a mi inquietud, mil y mil gracias,
Saludos Cordiales,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar celdas especificas a otra fila en excel

Necesito de tu valiosa ayuda es que tengo un proyecto en el cual tengo que ingresar datos en diferentes celdas (a1, f38, c6) y tengo que copiarlos con un botón en la fila de la otra hoja... Lo interesante es que tengo que hacerlo varias veces pero...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Macro para Modificar una Fórmula

Primero que nada soy un principiante en esto de las macros y VB y tengo una duda... ¿Se podría hacer una macro que sume 1 a una fórmula?... Me explico... Tengo una fórmula sencilla que es =A1... Lo que quiero es que al dar click en un botón la...
1 respuesta

Autocompletar Texto

Quisiera saber si existe alguna forma de autocompletar texto pero, desdé una celda en Excel, es decir no con ningún combobox o un textbox sino dentro de la propia celda en la hoja de calculo, claro esto validado desde un rango. Ejemplo: Yo Tengo una...
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Macro para agregar filas en Excel

Me veo en la necesidad de plantearte la siguiente duda. Tengo una hoja excel con la columna B formada por filas con datos de pacientes y la columna A con los campos de dichos datos. Ej: A B NOMBRE: Perico Perez Los campos con los que estoy...
1 respuesta

Revisar valor de columna checkbox en un datagridview en visual basic .net 2010

Disculpa lo que sucede es que tengo una aplicación la cual cuenta con una columna checkbox para seleccionar ciertos artículos a procesar, el detalle es que en la primera corrida, si reconoce los artículos que se seleccionaron, pero en la segunda...
1 respuesta