Excel - Consulta el ultimo registro

   
Vista:

Consulta el ultimo registro

Publicado por fernando (4 intervenciones) el 31/01/2014 17:32:38
Estimados a ver si me pueden ayudar, tengo un excel con estos campos :

ID_KARDEX_CARTOLA EXP_CODIGO_ITEM FECHA_SIN_HORA MES SALDO_ACTUAL
2790316 101500470019 10-01-2013 1 830
2798226 101500470019 11-01-2013 1 820
2817335 101500470019 17-01-2013 1 620
2818712 101500470025 17-01-2013 1 600
2819086 101500470025 17-01-2013 1 590
2819143 101500470025 17-01-2013 1 140

Y con muchos datos mas...
necesito sacar por mes solo muestro el mes 1 pero hay datos para todos los meses) y por producto, el ultimo saldo actual del ultimo mes o el ulimo nro de kardex, en el caso del ejemplo seria :

101500470019 17-01-2013 1 620
101500470025 17-01-2013 1 140

gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Consulta el ultimo registro

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 31/01/2014 20:55:22
una pequeña macro...
suponiendo que el 1er EXP_CODIGO_ITEM está en B2
y los datos están ordenados por fecha (agrupados por código)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub test()
Dim fil&, rngpivot As Range
Dim scode$
fil = 0
Set rngpivot = Range("B2")
scode = rngpivot.Offset(fil)
 
Do While rngpivot.Offset(fil) <> ""
   If rngpivot.Offset(fil).Value = scode Then
      If rngpivot.Offset(fil + 1).Value = scode Then
         rngpivot.Offset(fil).EntireRow.Hidden = True
      Else
          scode = rngpivot.Offset(fil + 1)
      End If
   End If
   fil = fil + 1
Loop
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar