VBA Copying to column to last row of data in column D

[Teatimedgg]

Hi everyone, Still new! but learning with everyone's help

I have data in columns D and G and I am adding a formula in Columns A, B, C, E, F and J. I want to make sure the formula columns go to the end of the data in Column D when I copy it down.

Example:

See attached

I want columns to use column D to know where to copy the formula down to.


thanks!!

 

[Eloise T]

Hi everyone, Still new! but learning with everyone's help

I have data in columns D and G and I am adding a formula in Columns A, B, C, E, F and J. I want to make sure the formula columns go to the end of the data in Column D when I copy it down.

Example:

See attached

I want columns to use column D to know where to copy the formula down to.


thanks!!

Sub Demo
   Dim ws As Worksheet
       With ws.[D3].Resize(ws.Cells(Rows.Count, 3).End(xlUp).Row)




'Since rows 1 and 2 are blank (potential header rows?), the D3
'  (above) tells this Subroutine to start in the 3rd row.  It
' will continue until it runs out of data in D.

'  Someone more expert than I, please confirm.


'   Y O U R   L O G I C   G O E S   H E R E.


      End With
End Sub

 

[AlanSidman]

maybe something like this:

Option Explicit

Sub InsertFormula()
Dim lr As Long
lr = Range("D" & Rows.Count).End(xlUp).Row
Range("J3").FormulaR1C1 = "=RC[-3] * 5" 'Insert your own formula here
Range("J3:J" & lr).FillDown
End Sub

 

[NARAYANK991]

maybe something like this:

Option Explicit

Sub InsertFormula()
Dim lr As Long
lr = Range("D" & Rows.Count).End(xlUp).Row
Range("J3").FormulaR1C1 = "=RC[-3] * 5" 'Insert your own formula here
Range("J3:J" & lr).FillDown
End Sub

Hi ,

The code can be simplified further to :

Sub InsertFormula()
    Dim lr As Long
    lr = Range("D" & Rows.Count).End(xlUp).Row
    Range("J3:J" & lr).Formula = "=G3 * 5" 'Insert your own formula here
End Sub

Narayan

 

[Teatimedgg]

Perfect again!! Thank you so much!