Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Macro to shift to next row
I need this macro to be tweaked so that it runs the same way but pulls the
information from the following row in each worksheet. here is the macro. Can someone help me? Range("C1").Select ActiveCell.FormulaR1C1 = "=Master!R[3]C" Range("C2").Select Range("E4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("E5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("E6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("E7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("E8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("E9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("E10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("E11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("E12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("E13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("E14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("E15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("F4").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[7]" Range("F5").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[7]" Range("F6").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[7]" Range("F7").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[7]" Range("F8").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[7]" Range("F9").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[7]" Range("F10").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[7]" Range("F11").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[7]" Range("F12").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[7]" Range("F13").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[7]" Range("F14").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[7]" Range("F15").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[7]" Range("G4").Select Selection.FillRight Range("G5").Select Selection.FillRight Range("G6").Select Selection.FillRight Range("G7").Select Selection.FillRight Range("G8").Select Selection.FillRight Range("G9").Select Selection.FillRight Range("G10").Select Selection.FillRight Range("G11").Select Selection.FillRight Range("G12").Select Selection.FillRight Range("G13").Select Selection.FillRight Range("G14").Select Selection.FillRight Range("G15").Select Selection.FillRight Range("H4").Select Selection.FillRight Range("H5").Select Selection.FillRight Range("H6").Select Selection.FillRight Range("H7").Select Selection.FillRight Range("H8").Select Selection.FillRight Range("H9").Select Selection.FillRight Range("H10").Select Selection.FillRight Range("H11").Select Selection.FillRight Range("H12").Select Selection.FillRight Range("H13").Select Selection.FillRight Range("H14").Select Selection.FillRight Range("H15").Select Selection.FillRight Range("J4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("J5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("J6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("J7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("J8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("J9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("J10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("J11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("J12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("J13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("J14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("J15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("K4").Select Selection.FillRight Range("K5").Select Selection.FillRight Range("K6").Select Selection.FillRight Range("K7").Select Selection.FillRight Range("K8").Select Selection.FillRight Range("K9").Select Selection.FillRight Range("K10").Select Selection.FillRight Range("K11").Select Selection.FillRight Range("K12").Select Selection.FillRight Range("K13").Select Selection.FillRight Range("K14").Select Selection.FillRight Range("K15").Select Selection.FillRight Range("L15").Select Selection.FillRight Range("L14").Select Selection.FillRight Range("L13").Select Selection.FillRight Range("L12").Select Selection.FillRight Range("L11").Select Selection.FillRight Range("L10").Select Selection.FillRight Range("L9").Select Selection.FillRight Range("L8").Select Selection.FillRight Range("L7").Select Selection.FillRight Range("L6").Select Selection.FillRight Range("L5").Select Selection.FillRight Range("L4").Select Selection.FillRight Range("E19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("E20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("E21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("E22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("E23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("E24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("F19").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[7]" Range("F20").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[7]" Range("F21").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[7]" Range("F22").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[7]" Range("F23").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[7]" Range("F24").Select ActiveCell.FormulaR1C1 = "='M:\[Payroll 2009.xls]Stonehenge Project'!R[-20]C" Range("F24").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[7]" Range("G19").Select Selection.FillRight Range("G20").Select Selection.FillRight Range("G21").Select Selection.FillRight Range("G22").Select Selection.FillRight Range("G23").Select Selection.FillRight Range("G24").Select Selection.FillRight Range("H24").Select Selection.FillRight Range("H23").Select Selection.FillRight Range("H22").Select Selection.FillRight Range("H21").Select Selection.FillRight Range("H20").Select Selection.FillRight Range("H19").Select Selection.FillRight Range("J19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("J20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("J21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("J22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("J23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("J24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("K19").Select Selection.FillRight Range("K20").Select Selection.FillRight Range("K21").Select Selection.FillRight Range("K22").Select Selection.FillRight Range("K23").Select Selection.FillRight Range("K24").Select Selection.FillRight Range("L19").Select Selection.FillRight Range("L20").Select Selection.FillRight Range("L21").Select Selection.FillRight Range("L22").Select Selection.FillRight Range("L23").Select Selection.FillRight Range("L24").Select Selection.FillRight Range("E29").Select ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[-1]" Range("E30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-1]" Range("F29").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[7]" Range("F30").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[6]" Range("G29").Select Selection.FillRight Range("G30").Select Selection.FillRight Range("H29").Select Selection.FillRight Range("H30").Select Selection.FillRight Range("J30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-1]" Range("L29").Select ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[-1]" Range("L30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-2]" Range("D1").Select End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Macro to shift to next row
Hi,
Hi, Exactly where in you code, what line, do you want to tweek. In general you should look at the OFFSET method. example: Range("A1").Offset(1,0) If this helps, please click the Yes button Cheers, Shane Devenshire "Unique713" wrote: I need this macro to be tweaked so that it runs the same way but pulls the information from the following row in each worksheet. here is the macro. Can someone help me? Range("C1").Select ActiveCell.FormulaR1C1 = "=Master!R[3]C" Range("C2").Select Range("E4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("E5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("E6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("E7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("E8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("E9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("E10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("E11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("E12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("E13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("E14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("E15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("F4").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[7]" Range("F5").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[7]" Range("F6").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[7]" Range("F7").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[7]" Range("F8").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[7]" Range("F9").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[7]" Range("F10").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[7]" Range("F11").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[7]" Range("F12").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[7]" Range("F13").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[7]" Range("F14").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[7]" Range("F15").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[7]" Range("G4").Select Selection.FillRight Range("G5").Select Selection.FillRight Range("G6").Select Selection.FillRight Range("G7").Select Selection.FillRight Range("G8").Select Selection.FillRight Range("G9").Select Selection.FillRight Range("G10").Select Selection.FillRight Range("G11").Select Selection.FillRight Range("G12").Select Selection.FillRight Range("G13").Select Selection.FillRight Range("G14").Select Selection.FillRight Range("G15").Select Selection.FillRight Range("H4").Select Selection.FillRight Range("H5").Select Selection.FillRight Range("H6").Select Selection.FillRight Range("H7").Select Selection.FillRight Range("H8").Select Selection.FillRight Range("H9").Select Selection.FillRight Range("H10").Select Selection.FillRight Range("H11").Select Selection.FillRight Range("H12").Select Selection.FillRight Range("H13").Select Selection.FillRight Range("H14").Select Selection.FillRight Range("H15").Select Selection.FillRight Range("J4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("J5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("J6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("J7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("J8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("J9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("J10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("J11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("J12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("J13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("J14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("J15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("K4").Select Selection.FillRight Range("K5").Select Selection.FillRight Range("K6").Select Selection.FillRight Range("K7").Select Selection.FillRight Range("K8").Select Selection.FillRight Range("K9").Select Selection.FillRight Range("K10").Select Selection.FillRight Range("K11").Select Selection.FillRight Range("K12").Select Selection.FillRight Range("K13").Select Selection.FillRight Range("K14").Select Selection.FillRight Range("K15").Select Selection.FillRight Range("L15").Select Selection.FillRight Range("L14").Select Selection.FillRight Range("L13").Select Selection.FillRight Range("L12").Select Selection.FillRight Range("L11").Select Selection.FillRight Range("L10").Select Selection.FillRight Range("L9").Select Selection.FillRight Range("L8").Select Selection.FillRight Range("L7").Select Selection.FillRight Range("L6").Select Selection.FillRight Range("L5").Select Selection.FillRight Range("L4").Select Selection.FillRight Range("E19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("E20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("E21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("E22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("E23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("E24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("F19").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[7]" Range("F20").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[7]" Range("F21").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[7]" Range("F22").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[7]" Range("F23").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[7]" Range("F24").Select ActiveCell.FormulaR1C1 = "='M:\[Payroll 2009.xls]Stonehenge Project'!R[-20]C" Range("F24").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[7]" Range("G19").Select Selection.FillRight Range("G20").Select Selection.FillRight Range("G21").Select Selection.FillRight Range("G22").Select Selection.FillRight Range("G23").Select Selection.FillRight Range("G24").Select Selection.FillRight Range("H24").Select Selection.FillRight Range("H23").Select Selection.FillRight Range("H22").Select Selection.FillRight Range("H21").Select Selection.FillRight Range("H20").Select Selection.FillRight Range("H19").Select Selection.FillRight Range("J19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("J20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("J21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("J22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("J23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("J24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("K19").Select Selection.FillRight Range("K20").Select Selection.FillRight Range("K21").Select Selection.FillRight Range("K22").Select Selection.FillRight Range("K23").Select Selection.FillRight Range("K24").Select Selection.FillRight Range("L19").Select Selection.FillRight Range("L20").Select Selection.FillRight Range("L21").Select Selection.FillRight Range("L22").Select Selection.FillRight Range("L23").Select Selection.FillRight Range("L24").Select Selection.FillRight Range("E29").Select ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[-1]" Range("E30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-1]" Range("F29").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[7]" Range("F30").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[6]" Range("G29").Select Selection.FillRight Range("G30").Select Selection.FillRight Range("H29").Select Selection.FillRight Range("H30").Select Selection.FillRight Range("J30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-1]" |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Macro to shift to next row
I am so new to macros that I have no idea what that means. This is the first
macro I have ever created. I am guessing that anywhere that says active cell is where i want the macro to move to the next roow to pull the info. Is this possible? "Shane Devenshire" wrote: Hi, Hi, Exactly where in you code, what line, do you want to tweek. In general you should look at the OFFSET method. example: Range("A1").Offset(1,0) If this helps, please click the Yes button Cheers, Shane Devenshire "Unique713" wrote: I need this macro to be tweaked so that it runs the same way but pulls the information from the following row in each worksheet. here is the macro. Can someone help me? Range("C1").Select ActiveCell.FormulaR1C1 = "=Master!R[3]C" Range("C2").Select Range("E4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("E5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("E6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("E7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("E8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("E9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("E10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("E11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("E12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("E13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("E14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("E15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("F4").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[7]" Range("F5").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[7]" Range("F6").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[7]" Range("F7").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[7]" Range("F8").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[7]" Range("F9").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[7]" Range("F10").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[7]" Range("F11").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[7]" Range("F12").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[7]" Range("F13").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[7]" Range("F14").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[7]" Range("F15").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[7]" Range("G4").Select Selection.FillRight Range("G5").Select Selection.FillRight Range("G6").Select Selection.FillRight Range("G7").Select Selection.FillRight Range("G8").Select Selection.FillRight Range("G9").Select Selection.FillRight Range("G10").Select Selection.FillRight Range("G11").Select Selection.FillRight Range("G12").Select Selection.FillRight Range("G13").Select Selection.FillRight Range("G14").Select Selection.FillRight Range("G15").Select Selection.FillRight Range("H4").Select Selection.FillRight Range("H5").Select Selection.FillRight Range("H6").Select Selection.FillRight Range("H7").Select Selection.FillRight Range("H8").Select Selection.FillRight Range("H9").Select Selection.FillRight Range("H10").Select Selection.FillRight Range("H11").Select Selection.FillRight Range("H12").Select Selection.FillRight Range("H13").Select Selection.FillRight Range("H14").Select Selection.FillRight Range("H15").Select Selection.FillRight Range("J4").Select ActiveCell.FormulaR1C1 = "='Riverview East Owners'!RC[-1]" Range("J5").Select ActiveCell.FormulaR1C1 = "='Liberty House Condominium'!R[-1]C[-1]" Range("J6").Select ActiveCell.FormulaR1C1 = "='Liberty Terrace'!R[-2]C[-1]" Range("J7").Select ActiveCell.FormulaR1C1 = "='Liberty Court'!R[-3]C[-1]" Range("J8").Select ActiveCell.FormulaR1C1 = "='Liberty View'!R[-4]C[-1]" Range("J9").Select ActiveCell.FormulaR1C1 = "='200-210 E. 65th St.'!R[-5]C[-1]" Range("J10").Select ActiveCell.FormulaR1C1 = "='761-799 7th Ave. '!R[-6]C[-1]" Range("J11").Select ActiveCell.FormulaR1C1 = "='Executive Condominium'!R[-7]C[-1]" Range("J12").Select ActiveCell.FormulaR1C1 = "='Cove Club'!R[-8]C[-1]" Range("J13").Select ActiveCell.FormulaR1C1 = "='Greenwhich Court'!R[-9]C[-1]" Range("J14").Select ActiveCell.FormulaR1C1 = "='The Regatta'!R[-10]C[-1]" Range("J15").Select ActiveCell.FormulaR1C1 = "='The Soundings'!R[-11]C[-1]" Range("K4").Select Selection.FillRight Range("K5").Select Selection.FillRight Range("K6").Select Selection.FillRight Range("K7").Select Selection.FillRight Range("K8").Select Selection.FillRight Range("K9").Select Selection.FillRight Range("K10").Select Selection.FillRight Range("K11").Select Selection.FillRight Range("K12").Select Selection.FillRight Range("K13").Select Selection.FillRight Range("K14").Select Selection.FillRight Range("K15").Select Selection.FillRight Range("L15").Select Selection.FillRight Range("L14").Select Selection.FillRight Range("L13").Select Selection.FillRight Range("L12").Select Selection.FillRight Range("L11").Select Selection.FillRight Range("L10").Select Selection.FillRight Range("L9").Select Selection.FillRight Range("L8").Select Selection.FillRight Range("L7").Select Selection.FillRight Range("L6").Select Selection.FillRight Range("L5").Select Selection.FillRight Range("L4").Select Selection.FillRight Range("E19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("E20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("E21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("E22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("E23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("E24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("F19").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[7]" Range("F20").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[7]" Range("F21").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[7]" Range("F22").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[7]" Range("F23").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[7]" Range("F24").Select ActiveCell.FormulaR1C1 = "='M:\[Payroll 2009.xls]Stonehenge Project'!R[-20]C" Range("F24").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[7]" Range("G19").Select Selection.FillRight Range("G20").Select Selection.FillRight Range("G21").Select Selection.FillRight Range("G22").Select Selection.FillRight Range("G23").Select Selection.FillRight Range("G24").Select Selection.FillRight Range("H24").Select Selection.FillRight Range("H23").Select Selection.FillRight Range("H22").Select Selection.FillRight Range("H21").Select Selection.FillRight Range("H20").Select Selection.FillRight Range("H19").Select Selection.FillRight Range("J19").Select ActiveCell.FormulaR1C1 = "='30 Lincoln (S&P)'!R[-15]C[-1]" Range("J20").Select ActiveCell.FormulaR1C1 = "='The Highgate (P&S)'!R[-16]C[-1]" Range("J21").Select ActiveCell.FormulaR1C1 = "='Milro Associates'!R[-17]C[-1]" Range("J22").Select ActiveCell.FormulaR1C1 = "='The Claridge House (P&H)'!R[-18]C[-1]" Range("J23").Select ActiveCell.FormulaR1C1 = "='Courtney Associates'!R[-19]C[-1]" Range("J24").Select ActiveCell.FormulaR1C1 = "='Stonehenge Project'!R[-20]C[-1]" Range("K19").Select Selection.FillRight Range("K20").Select Selection.FillRight Range("K21").Select Selection.FillRight Range("K22").Select Selection.FillRight Range("K23").Select Selection.FillRight Range("K24").Select Selection.FillRight Range("L19").Select Selection.FillRight Range("L20").Select Selection.FillRight Range("L21").Select Selection.FillRight Range("L22").Select Selection.FillRight Range("L23").Select Selection.FillRight Range("L24").Select Selection.FillRight Range("E29").Select ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[-1]" Range("E30").Select ActiveCell.FormulaR1C1 = "='Milford Consultants'!R[-26]C[-1]" Range("F29").Select Selection.FillRight ActiveCell.FormulaR1C1 = "='Milford Mgt. Corp.'!R[-25]C[7]" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HELP: Setting CNTL-SHIFT-F to invoke Excel2007 macro | Excel Discussion (Misc queries) | |||
help with VB/Macro to shift cells | Excel Discussion (Misc queries) | |||
help with VB/Macro to shift cells | Excel Discussion (Misc queries) | |||
how to use shift and down arrow keys in a macro? | Excel Worksheet Functions | |||
Make a macro of keystrokes. ie. F2,Shift & Home & right cursor,de. | Excel Worksheet Functions |