UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

alemaniadavid


Buenos dias.

Por medio de la presente, les quiero pedri de la manera mas amable, si por favor me pueden ayudar con un proyecto que necesito resolver de manera urgente.

Honestamente ya busque por todos mis medios la solución, y la verdad no encuentro la solución a la misma.

Pasa que tengo un archivo que contien dos hojas, una llamada "DATOS" Y otra llamada "Hoja2", en la de datos, como su nombre lo indica, contienen los datos a consultar, y en la hoja2, tengo la macro que ejecuta una suma de los valores de datos con sus respectivas condiciones.

Aqui el problema es solo me lo ejecuta en una sola fila, y en la demas me aparece el mismo resultado de la primera fila, osea que no cumple con la condicion de la segunda fila y asi sucesivamente.

Espero y esta explicación me de a entender, de verdad espero y me puedan ayudar, prometo ayudar a muchas mas personas con algun problema similiar, de momento sin su ayuda, me seria mas dificil.

No se porque anexo el archivo, y no me lo envia, si mi archivo solo pesa 20 kb, si alguien tiene un correo, se los puedo enviar, de momento les dejo el codigo que aplico.

Sub sumaB()
Dim i, j As Integer
Dim dato As Range
Dim filas As Integer
Dim carro As String
Dim act As String
Dim mes As String
Dim tipo As String
Dim suma As Double

carro = Range("unidad")
act = Range("A4")
mes = Range("b2")
tipo = Range("b3")
suma = 0

For i = 1 To Worksheets.Count
filas = Worksheets(i).Cells(Rows.Count, 4).End(xlUp).Row
For j = 2 To filas
                If Worksheets(i).Cells(j, 2).Value = carro And Worksheets(i).Cells(j, 1).Value = act And Worksheets(i).Cells(j, 4).Value = mes And Worksheets(i).Cells(j, 3).Value = tipo Then
                suma = suma + Worksheets(i).Cells(j, 5).Value
                End If
            Next j
       Next i
Range("total:c8") = suma
End Sub

Saludos cordiales.

Igtelo

avatar
Hola David.

Ok tu planteamiento es claro, ¿Y el archivo, qué dice lo que está en rojo al inicio de las páginas?

Por favor lean!!

Saludos
Ignacio Téllez

alemaniadavid


Honestamente nose como subir el archivo, sino se pude, no hay problema.

Gracias por haber leido mi mensaje.

Saludos cordiales y excelente dia.

Igtelo

avatar
Ok.

Lo cerramos.

Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.