Código para ordenar valores en una hoja Excel
Necesito puedas ayudarme con un código que no logro modificar (creo es mas complicado modificarlo que crear uno nuevo).
De una excel en Hoja 1 que copio:
Necesito obtener en otra Hoja 2, lo siguiente:
A B C D E F G H I J K L M N ...........
Las columnas A y B se mantienen fijas. Los datos de SEMANAS se ordenan en correspondencia con los SISTEMAS y sus cantidades (en el caso en que dentro de una misma semana existan cantidades distintas de un mismo sistema, se adicionan- Ejemplo SEMANA 44) . En la 1er columna en blanco (E) se coloca en correspondencia con cada sistema, la resta entre STOCK (m2) y el valor de la columna D. En la próxima columna en blanco (H) se colocara la misma cuenta (STOCK - VALOR en columna G. En la tercer columna en blanco (K) se colocara la diferencia entre valores de columna H y J. Y asi hasta completar todas las cuentas entre celdas que tengan valores.
Agradezco de antemano puedas darme una mano.
Te dejo un fuerte abrazo
Daniel.
1 Respuesta
Con esta parte del código, pasas a información de una hoja a la otra
'COPIA VALORES DE Actividades y los pone en el resumen
For i = 4 To u1
obra = h1.Cells(i, "D").Value
cant = h1.Cells(i, "M").Value
sema = h1.Cells(i, "N").Value
sist = h1.Cells(i, "O").Value
'
'busca el sistema
Set b = h3.Columns("A").Find(sist, lookat:=xlWhole)
If Not b Is Nothing Then
fila = b.Row
'busca semana
Set c = h3.Rows(3).Find(sema, lookat:=xlWhole)
col = c.Column
'pone datos
If h3.Cells(fila, col - 1).Value = "" Then
h3.Cells(fila, col - 1).Value = obra
Else
h3.Cells(fila, col - 1).Value = h3.Cells(fila, col - 1).Value & " / " & obra
End If
h3.Cells(fila, col).Value = h3.Cells(fila, col).Value + cant
End If
Next[Sal u dos
