Excel VBA: No se puede FillDown de fecha variable en VBA

votos
0

Mi objetivo es encontrar la fecha más reciente en column A(la fecha en column Aque se determina mediante una fórmula) y FillDown una fila a partir de la fecha más reciente en el column Amedio column T.

Soy capaz de localizar la fecha más reciente en column Ala utilización de

Max_date = Application.WorksheetFunction.Max(Columns(A))

pero cuando intento para identificarlo en una gama estoy sin éxito.

A continuación se muestra el total de código en su defecto:

Sub Find_Date()

Dim Max_date As Date

Max_date = Application.WorksheetFunction.Max(Columns(A))

Worksheets(Sheet1).Range(A & Max_date).End(xlDown).FillDown

End Sub
Publicado el 07/11/2018 a las 22:42
fuente por usuario
En otros idiomas...                            


1 respuestas

votos
0

Max_date le da el valor de la fecha actual, no el valor de la fila, por lo que no funciona. Es necesario encontrar una manera de obtener el número de fila (i utilizar la función de hoja de cálculo partido más adelante). y ya que tienes el valor de fecha ya que sólo puede utilizar ese valor para rellenar col A a T

Max_date = Application.WorksheetFunction.Max(Columns("A"))

Max_Row = Application.WorksheetFunction.Match(Max_date, Columns("A"), 0)

Worksheets("Sheet1").Range("A" & Max_Row & ":T" & Max_Row).Value = Max_date

Restricción - no funciona cuando usted tiene múltiples valor máximo idéntica en la columna A, la función de concordancia siempre va para el primero sólo se

Respondida el 08/11/2018 a las 03:50
fuente por usuario

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more