Modificar Macro

%3CLINGO-SUB%20id%3D%22lingo-sub-2494677%22%20slang%3D%22es-ES%22%3EModify%20Macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2494677%22%20slang%3D%22es-ES%22%3E%3CP%3EHello%3C%2FP%3E%3CP%3E%3CBR%20%2F%3EI%20found%20a%20macro%20that%20someone%20shared%20on%20a%20blog%20to%20automatically%20run%20the%20formulas%20of%20an%20EXCEL%20sheet%20(summary)%20based%20on%20the%20number%20of%20rows%20of%20information%20that%20exists%20in%20another%20EXCEL%20sheet%20(database)%3B%20the%20macro%20works%20very%20well%20from%20row%202%2C%20my%20problem%20is%20that%20to%20preserve%20the%20information%20prior%20to%20I%20need%20the%20macro%20to%20work%20from%20row%2010236%2C%20I%20modified%20it%20but%20instead%20of%20including%20the%20information%20down%2C%20it%20does%20it%20up%20does%20anyone%20know%20that%20I%20need%20to%20modify%20it%20to%20work%20as%20I%20need%20it%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHere's%20the%20already%20modified%20macro%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CEM%3ESub%20Macro1()%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%20Macro1%20Macro%3C%2FEM%3E%3CBR%20%2F%3E'%20Update%3CEM%3EData%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%3C%2FEM%3E%3CBR%20%2F%3E'%3CEM%3EKeyboard%20Shortcut%3A%20Ctrl%2Bk%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%20determines%20which%20is%20the%20last%20row%20of%20Revenue%20Sheet%20Report%20Rough%20List%2C%20col%20A%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3Efilx%20%3D%20Sheets(%22Revenue%20Report%20Rough%20List%22).%20Range(%22A%22%20%26amp%3B%20Rows.Count).%20End(xlUp).%20Row%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'%20selects%20the%20row%20range%202%20that%20has%20formulas%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3ESheets(%22COUR%20LIST%22).%20Select%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3ERange(%22A10236%3AZ10236%22).%20Select%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3ESelection.AutoFill%20Destination%3A%3DRange(%22A10236%3AZ%22%20%26amp%3B%20filx)%2C%20Type%3A%3DxlFillDefault%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3E'optional%3A%20select%20some%20cell%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3ERange(%22A10236%22).%20Select%3C%2FEM%3E%3CBR%20%2F%3E%3CEM%3EEnd%20Sub%3C%2FEM%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThank%20you%20very%20much%20in%20advance.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2494677%22%20slang%3D%22es-ES%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2625834%22%20slang%3D%22en-US%22%3ERe%3A%20Modificar%20Macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2625834%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1090350%22%20target%3D%22_blank%22%3E%40Mario_Arbesu%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CEM%3Efilx%20%3D%20Sheets(%22Revenue%20Report%20Rough%20List%22).%20Range(%22A%22%20%26amp%3B%20Rows.Count).%20End(%3CSTRONG%3ExlUp%3C%2FSTRONG%3E).%20Row%3C%2FEM%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

Hola,


Encontré un macro que alguien compartió en un blog para correr de forma automática las formulas de una hoja de EXCEL (resumen) con base en la cantidad de filas de información que existe en otra hoja de EXCEL (base de datos); el macro funciona muy bien desde la fila 2, mi problema es que para conservar la información previa a necesito que el macro funcione a partir de la fila 10236, lo modifiqué pero en lugar de incluir la información hacia abajo, lo hace hacia arriba ¿alguien sabe que me falta modificar para que funcione como lo necesito?

 

Este es el macro ya modificado:

 

Sub Macro1()
'
' Macro1 Macro
' Actualizar datos
'
' Keyboard Shortcut: Ctrl+k
'
'determina cuál es la última fila de Hoja Revenue Report Rough List, col A
filx = Sheets("Revenue Report Rough List").Range("A" & Rows.Count).End(xlUp).Row
'selecciona el rango de fila 2 que tiene fórmulas
Sheets("COUR LIST").Select
Range("A10236:Z10236").Select
Selection.AutoFill Destination:=Range("A10236:Z" & filx), Type:=xlFillDefault
'opcional: seleccionar alguna celda
Range("A10236").Select
End Sub

 

De antemano muchas gracias.

1 Reply

@Mario_Arbesu 

 

filx = Sheets("Revenue Report Rough List"). Range("A" & Rows.Count). End(xlUp). Row