¿Qué sintaxis puedo desarrollar para realizar una búsqueda y pegado inteligente?
Dante, me quedo muy claro el código y funciona muy óptimo, entiendo lo que me dices, pero tengo una complicación, no puedo eliminar las columnas, ya que tengo debo llevar un registro de cuando ingresaron o salieron de la fabrica las iniciativas, debo lograr decirle al programa que me entregue la fecha de donde se encuentra hoy el estado. Por ejemplo tengo una iniciativa que hoy ingreso a "APN" y tiene una fecha de compromiso el 28/02/2018, por ende me gustaría que la reporteria me diga eso, la misma iniciativa cambio de fabrica y se encuentra en "AR" con nuevas fechas, y así sucesivamente sin perder el registro de las fechas anteriores. Eso es lo que no puedo hacer.
Para ser más especifico, tengo una columna denominada fabrica que cuenta con 9 estados posibles(
"BACKLOG","GESTIÓN DE LA DEMANDA","APN",,"AR""DESARROLLO","PRUEBA USR","PRE-PRODUCCIÓN","PRODUCCIÓN","QA"), luego 9 columnas( cada estado tiene una columna donde se ingresa una fecha de entrada y salida), los estados o fabricas pueden cambiar, cree una reporteria que me debe indicar en que estado se encuentra hoy el proyecto y sus fechas comprometidas, por ejemplo el estado se encuentra en "AR" con fecha de entrada =x y de salida=Y, el mes siguiente el proyecto se encuentra en "APN" con nuevas fechas, cada estado debe tener si o si las columnas, ya que no se puede perder la trazabilidad o el seguimiento de estos.
1 respuesta
Envíame el archivo y me explicas con ejemplos varios casos.
Tienes que poner en amarillo en la hoja "" los datos que quieres ver en la hoja "reporte"
También haz la parte que te comenté para eliminar las columnas, ya que tu archivo es muy grande.
Solamente explícame los ejemplos y yo te ayudo a que no sean necesarias las columnas.
En el asunto del correo pon tu nombre de usuario "matias perez"
Te anexo una sola macro para filtrar por ámbito y proyecto:
Sub botonreporte()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Consolidado")
Set h2 = Sheets("REPORTE")
h2.Range("A7:O" & Rows.Count).ClearContents
If h1.AutoFilterMode Then h1.AutoFilterMode = False
ambito = h2.ComboBox1.Value 'h2.Cells(1, 1)
proyec = h2.ComboBox2.Value 'h2.Cells(2, 1)
u = h1.Range("A" & Rows.Count).End(xlUp).Row
j = 7
For i = 3 To u
If h1.Cells(i, "B") = ambito And h1.Cells(i, "E") = proyec Then
h2.Cells(j, "A") = h1.Cells(i, "A") 'iniciativa
h2.Cells(j, "B") = h1.Cells(i, "B") 'ambito
h2.Cells(j, "C") = h1.Cells(i, "C") 'responsable
h2.Cells(j, "D") = h1.Cells(i, "S") 'tiempo de captura
h2.Cells(j, "E") = h1.Cells(i, "T") 'alerta
h2.Cells(j, "F") = h1.Cells(i, "Z") 'total vble impacto
h2.Cells(j, "G") = h1.Cells(i, "AQ") 'etapa (FABRICA)
'Buscar columna
etapa = h1.Cells(i, "AQ")
If etapa <> "" Then
Set b = h1.Rows(1).Find(etapa, lookat:=xlWhole)
If Not b Is Nothing Then
col1 = b.Column
col2 = b.Column + 1
col3 = b.Column + 2
h2.Cells(j, "H") = h1.Cells(i, col1) 'ingreso
h2.Cells(j, "I") = h1.Cells(i, col3) 'termino
Else
h2.Cells(j, "H") = "no hay encabezado con la etapa"
End If
End If
'
h2.Cells(j, "J") = h1.Cells(i, "T") 'alerta****
'
h2.Cells(j, "K") = h1.Cells(i, "AL") 'factibilidad
h2.Cells(j, "L") = h1.Cells(i, "AM") 'cuadrante
h2.Cells(j, "M") = h1.Cells(i, "AN") 'tiempo iniciativa
h2.Cells(j, "N") = h1.Cells(i, "H") 'estado iniciativa
h2.Cells(j, "O") = h1.Cells(i, "AR") 'n°de cambios
j = j + 1
End If
Next
Application.ScreenUpdating = True
MsgBox ("Proceso Finalizado")
End Sub
.
. S aludos. Dante Amor. R ecuerda valorar la respuesta. G racias
.
