View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Stefi Stefi is offline
external usenet poster
 
Posts: 2,646
Default troubleshoot column formula

Private Sub Worksheet_Change(ByVal Target As Range)
Range("E" & Target.Row).FormulaR1C1 = Range("E" & Target.Row -
1).FormulaR1C1
Range("F" & Target.Row).FormulaR1C1 = Range("F" & Target.Row -
1).FormulaR1C1
Range("G" & Target.Row).FormulaR1C1 = Range("G" & Target.Row -
1).FormulaR1C1
End Sub

Change "E", "F", "G" to column letters needed!

Stefi


angie ezt *rta:

thank you! it works fine! how do i enter the same for another column? (i have
two columns with formulas.

Ο χρήστης "Stefi" *γγραψε:

Alt+F11 (VBA)
Right click on worksheet name in the Project Explorer window
Choose View code from the local menu
Copy/Paste code in the code window

Stefi


angie ezt *rta:

where do i have to paste the code? in which menu should i go?


Ο χρήστης "Stefi" *γγραψε:

A Worksheet_Change event macro like this may help:
Private Sub Worksheet_Change(ByVal Target As Range)
Range("E" & Target.Row).FormulaR1C1 = Range("E" & Target.Row -
1).FormulaR1C1
End Sub

It takes the formula from the previous row.
Change "E" to column letter needed!


Regards,
Stefi

angie ezt *rta:

i have pasted a fomula in an entire column. the problem is that excel has
become very slow on open and save and i only have 100 records in total. is
there a way not to copy the formula in the entire column but each time a user
enters data in a row the corresponding cell in that row gets the fomula?

your help would be greatly appreciated!