Condensing Macros

[lightkerosene]

https://drive.google.com/file/d/0B9DAeFilFvhdTmJ6YXd0ODRMeXc/view?usp=sharing

^ this is the link to the macro I am working with.

Press cntl+shift+Q
Press cntl+shift+W
Go to tab RPA and click another cell...
Then
Press cntl+shift+E
Press cntl+shift+R


For some reason there is a glitch between W and E that makes it so you need to press another button.. Also even after you run all of the macros, you still have to unhide the macro settings tab and drag all the formulas in row 2, down to the last row... but I digress.

I tried a macro that simply calls the other macros, but it didn't work and I assume that is due to the glitch that is occuring between W and E.. Ideally I can get all of these functions to work correctly by pressing 1 macro command, like Cntrl + shift + Z and not have to go back in and manually import the findings from the macro settings group. But I will settle for just having them all run on 1 macro.

 

[mrmmickle1]

Here are a few observations. Hopefully they will help you to get to your end goal:

You can shorten your Primary Macro to this one line:

Sheets("Smart Report").Range("X2:X3004").Cells.SpecialCells(xlCellTypeBlanks) = "Y"

The upper portion of Import can be changed to this one line:

 Sheets("Smart Report").Range("I2:I3004").Cells.SpecialCells(xlCellTypeBlanks) = "=Today()"

In LastMacro try changing Sheet2. to Sheets("RPA") it may fix your issue....


If you want to run all back to back just link all of the smaller subs to one large one like this:

[COLOR=#0000ff]Sub [/COLOR]Test()

   [COLOR=#0000ff] Call[/COLOR] Primary
  [COLOR=#0000ff]  Call[/COLOR] Run
  [COLOR=#0000ff]  Call[/COLOR] LastMacro
 [COLOR=#0000ff]   Call[/COLOR] FitSheet

[COLOR=#0000ff]End Sub[/COLOR]

 

[lightkerosene]

Problem with doing that last macro like that is, it tries to do paste the formulas down to 1,00000000 or whatever. I have tried that. Any ideas?

 

[mrmmickle1]

Try changing this line:

   .Rows("3:" & Range("U2").End(xlDown).Row).PasteSpecial

TO

[COLOR=#ff0000]     .Rows("3:" & Range("U2").End(xlUp).Row).PasteSpecial[/COLOR]

 

[lightkerosene]

Try changing this line:

   .Rows("3:" & Range("U2").End(xlDown).Row).PasteSpecial

TO

[COLOR=#ff0000]     .Rows("3:" & Range("U2").End(xlUp).Row).PasteSpecial[/COLOR]

This is worse.. So it deletes the first row which lets me know what is what.
It also only goes down 3 rows.

The goal is to drag all of the formulas in the second row to the end of the last used row of column U.

Basically, the Import imports how many lines have a said number of items.. Then imports that into U.
Drag row 2, to the last used cell.. I don't know how else I can do this..

 

[lightkerosene]

Solved it. So Basically I need to select cell A2 on Macro settings before running last macro.

It reads

Sub Run()
Call Primary
Call Import
Call PrimaryLine
Call MobileValues
Call MobileShare
Sheets("Macro Settings").Select
Range("A2").Select
Call LastMacro
Call FitSheet
End Sub


Thanks for all of your help. I dont see a plus REP button.

 

[mrmmickle1]

Glad you were able to solve it! A reply is sufficient as for as "REP" is concerned.