Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 258
  • Last Modified:

copy formulas down

I am using a macro that copies a formula down.  The change I need is that in any column between A and Az where the first row has a formula I want to copy it down and if it does not have a formula then do nothing.

Thanks,
Montrof

Sub FormulaFill()
    Application.ScreenUpdating = False

    LastRow = range("A" & Rows.Count).End(xlUp).Row
    range("Q2").Copy Destination:=range("Q3:Q" & LastRow)
    range("A1").Select

    Application.ScreenUpdating = True

End Sub

Open in new window

0
montrof
Asked:
montrof
1 Solution
 
byundtCommented:
Here is a macro to fill the formulas down:
Sub FormulaFill()
    Dim cel As Range, rg As Range
    Dim lastrow As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    If lastrow < 2 Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Set rg = Range("A2:AZ" & lastrow)
    For Each cel In rg.Rows(1).Cells
        If cel.HasFormula Then
            cel.Copy
            Intersect(cel.EntireColumn, rg).PasteSpecial xlPasteFormulas
        End If
    Next
    Range("A1").Select

End Sub

Open in new window

0
 
montrofAuthor Commented:
Thank you very much
0

Featured Post

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now