Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Consulta el ultimo registro

Excel - Consulta el ultimo registro

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Consulta el ultimo registro

Publicado por fernando (6 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 (1237 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