Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Copying a FORMUALE a set no of times down a colum

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Posts
    91
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Code works but copys value stored where as i need it to copy the formulae present.Here is the code:
    Sub Test()
    Dim CopyTimes As Integer
    Dim CopyLoop As Integer

    CopyTimes = Worksheets("sheet1").Range("A1").Value
    If CopyTimes <= 1 Then Exit Sub
    For CopyLoop = 1 To CopyTimes
    'assume A2 has the data, B2 is the place to start storeing
    Worksheets("sheet1").Range("B" & CopyLoop + 1).Value = Worksheets("sheet1").Range("A2").Value
    Next CopyLoop

    End Sub


  2. #2
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Bogota, Colombia
    Posts
    11,959
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Change .Value to .Formula

    Second, you don't need to use a Loop. Try with:

    Worksheets("sheet1").Range("B2").Resize(CopyTimes,1).Formula = Worksheets("sheet1").Range("A2").Formula


    Regards,

    Juan Pablo González
    http://www.juanpg.com

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •