Saltar al contenido

seleccionar ultima celda visible con filto


Rickhb132000

Recommended Posts

publicado

Hola buenas tardes:

He visto esta pregunta como dos veces pero el tema esta cerrado y no puedo descargar los ejemplos, que ponen, y explico mi un ejemplo muy sencillo

 

si tengo un archivo con 6 columnas y 1000 filas las cuales filtro por mes, necesito el ultiimo valor que tenga la columna 6

Espero ser claro en lo que quiero, gracias, saludos

publicado

hola Rickhb132000

te sugiero subir una archivo en excel con un pequeño modelo de lo que tienes y necesitas obtener.

Saludos

Silvia

publicado

Hola Silvia, gracias por contestar.

Te mando un archivo, el original lleva otras hojas , pero lo que necesito es sobre esa solo hoja que queda.

Como veras, lleva filtros para seleccionar un mes columna "B", (por ejemplo) y en fila 50 llevar subtotales, en este caso de fecha poner la formula de "fin.mes", en la columna "D" es número de Articulo que este va a ir cambiando y poner el N° correspondiente, en estos casos tanto puede ser el primer o ultimo registro.

Columnas "E,F" serian sumas del mes, en esas no hay mayor problema.

En la columna "G" aquí si necesito que sea el ultimo valor .

Puede ser atravéz de formula o código, de todos modos ira dentro de un código.

Gracias, saludos

PRUEBA ULTIMA FILA CON FILTRO.xlsm

publicado

Rick

vas a tener la columna P como auxiliar numerando las filas con datos?

si es así, esto puede servir

=INDICE(G3:G48,COINCIDIR(SUBTOTALES(104,P3:P48),P3:P48,))

mi separador de argumentos es la coma, si el tuyo es otro corriges.

(si no vas a tener P, avisas para ver otra forma)

Lo de la  banderita, no recuerdo ni como la puse..,  debe estar en el perfil, algo para desmarcar.

 

saludos

Silvia

 

 

publicado

Hola Silvia.

Gracias, por la sugerencia, me funciona muy bien, la columna "P", es solo un control, si ves en la parte superior junto a Articulo dice repeticiones, es para ver que realmente me este filtrando todos los datos por articulo.

Como estaba intentando hacerlo y no estaba tan perdido, los rangos ya los tenia con nombre, entonces a la hora de cambiar tu formula utilizando en rango los nombres y una pequeña modificación de la coma "," final ya no tuve que ocupar la columna "P", así quedo

=INDICE(Existencia,COINCIDIR(SUBTOTALES(104,Existencia),Existencia))

 

Muchas gracias, saludos

publicado

hola

Existencias sería la columna H?

a mi me da este resultado filtrando por el mes de marzo

image.thumb.png.f68354f1ab1b1d606beb4781d2505ada.png

1. 104 te da el máximo valor en un rango filtrado.

2. Coincidir te da el numero de la fila que coincida con el dato encontrado, pero no se refiere al rango filtrado, si ese dato estuviera en cualquier otra fila, por ejemplo se agota tu stock, compras y vuelves a tener saldos de stock repetidos, coincidir solo te traerá el primer resultado que encuentre.

En todo caso, me parece que para ti, sería suficiente con esto:

=SUBTOTALES(105,H4:H48)

105 es el mínimo dentro del rango filtrado.

 

sin embargo, si tuvieras dos mínimos iguales dentro del mismo rango filtrado, esto tampoco funcionará.

Evalúa mis observaciones y si necesitas una nueva formula, avisas., pero indica todas las consideraciones a tomar. 

otra cosa, en lugar de P, veo que también podrías utilizar Factura, con 104 (es porque veo que está en aumento)

En fin, revisa bien, puede que no necesites evaluar tanta cosa.. y tan solo subtotales sea tu solución.

 

saludos, ?

Silvia

 

 

 

 

 

publicado

Hola Silvia, es cierto, en cuanto a Factura, son tanto facturas de proveedores como propias por eso no podría ser, pero si como bien dices P, es solo un dato informativo que si va en consecutivo y le podemos sacar mayor provecho.

Seguiré trabajando y cualquier otra duda te molesto nuevamente.

Mil gracias.

publicado

Entonces aquí otra opción:

=BUSCAR(1,1/SUBTOTALES(9,DESREF(G3,FILA(A3:A50)-FILA(A3),)),G3:G50)

Mi separador de argumentos es la coma, si el tuyo es otro, corriges.

Silvia

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.