Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Linking Cells Macro
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 70
Default Linking Cells Macro
I am using the codes below to link cells specific cells in Column B from a
worksheet called Summary to specific cells in Column C and Column D in a
worksheet called Report. As you can see the codes I have are very long. Is
there a way to make them shorter?

Sub ColumnCMacro()
Range("C2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C51").Select
Range("A1:L1").Select

End Sub


Sub ColumnDMacro()
Range("D2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D51").Select
Range("A1:L1").Select
End Sub


Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 11,501
Default Linking Cells Macro
Hi,

Are they typo's where you miss out the odd cell for example C17 & c18 are
missed or us that a real requirement?

Mike

"MCheru" wrote:

I am using the codes below to link cells specific cells in Column B from a
worksheet called Summary to specific cells in Column C and Column D in a
worksheet called Report. As you can see the codes I have are very long. Is
there a way to make them shorter?

Sub ColumnCMacro()
Range("C2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C51").Select
Range("A1:L1").Select

End Sub


Sub ColumnDMacro()
Range("D2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D51").Select
Range("A1:L1").Select
End Sub


Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 70
Default Linking Cells Macro
That is a real requirement.

"Mike H" wrote:

Hi,

Are they typo's where you miss out the odd cell for example C17 & c18 are
missed or us that a real requirement?

Mike

"MCheru" wrote:

I am using the codes below to link cells specific cells in Column B from a
worksheet called Summary to specific cells in Column C and Column D in a
worksheet called Report. As you can see the codes I have are very long. Is
there a way to make them shorter?

Sub ColumnCMacro()
Range("C2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-1]"
Range("C51").Select
Range("A1:L1").Select

End Sub


Sub ColumnDMacro()
Range("D2").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D7").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D8").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D9").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D11").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D12").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D13").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D14").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D16").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D19").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D20").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D22").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D23").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D24").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D25").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D26").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D27").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D28").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D29").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D30").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D31").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D32").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D33").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D36").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D37").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D39").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D40").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D41").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D42").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D43").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D44").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D45").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D46").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D47").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D48").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D49").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D50").Select
ActiveCell.FormulaR1C1 = "='Summary'!RC[-2]"
Range("D51").Select
Range("A1:L1").Select
End Sub


Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 8,520
Default Linking Cells Macro
Dear Cheru

Try the below code. Mention the exception rows in variable strException.

If this post helps click Yes
---------------
Jacob Skaria

Dim intRow
Dim strException

strException = "1,4,17,18,21,34,35"

For intRow = 1 To 51
If InStr("," & strException & ",", "," & CStr(intRow) & ",") = 0 Then
Range("C" & intRow).FormulaR1C1 = "='Summary'!RC[-1]"
Range("D" & intRow).FormulaR1C1 = "='Summary'!RC[-2]"
End If
Next
Range("A1:L1").Select


Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Linking cells Shannan Excel Discussion (Misc queries) 2 September 30th 09 07:13 PM
Linking cells into empty cells in another worksheet Bookworm Excel Discussion (Misc queries) 6 October 14th 07 11:11 AM
Linking cells with a diffrent sheet with 2 cells Angelofdoom Excel Worksheet Functions 2 February 15th 06 04:20 PM
Linking a horizontal set of cells to a vertical sets of cells Russell-stanely Charts and Charting in Excel 2 October 21st 05 03:19 PM
Linking cells Dee Excel Worksheet Functions 0 August 18th 05 08:30 PM


All times are GMT +1. The time now is 02:12 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement