Application Filling without formatting or promoting

Hello friends

I am using the following code to run a regression analysis, it works fine but has 2 problems:

1) It overwrites the cells format (I want to keep cells style format)

2) It promotes me about replacing the content of cells (I have 55 tests and can't click "ok" 55 times)

thanks in advance

Application.Run "ATPVBAEN.XLAM!Regress", Sheets("Data").Range("$H$" & start & ":$H$" & limit) _
        , Sheets("Data").Range("$K$" & start & ":$L$" & limit), False, False, , Sheets("Tests").Range( _
        "$C$" & target), False, False, False, False, , False

Hi,

1) I don't know the answer here, as I've never used the regression analysis add-in from VBA sorry, but hopefully someone can chip in here and help you out.

2) Insert

Application.DisplayAlerts = False

before your Application.Run line, and

Application.DisplayAlerts = True

after it.

I hope this helps

Thank you ajryan88 for the replay

I have used it, and used another property, the AlertBeforeOverwriting both did not work :/ here is my full code

Sub RegressionAnalysis()
        Application.AlertBeforeOverwriting = False
        Application.DisplayAlerts = False
    Dim i As Integer, start As Integer, target As Integer, limit As Integer, companies
    companies = Array(12, 12, 12, 12, 14, 14, 15, 16, 17, 18, 18, 18, 19, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23)
    start = 2
    target = 1
    For i = 0 To 54 Step 1
        limit = start + companies(i) - 1
        Application.Run "ATPVBAEN.XLAM!Regress", Sheets("Data").Range("$H$" & start & ":$H$" & limit) _
        , Sheets("Data").Range("$K$" & start & ":$L$" & limit), False, False, , Sheets("Tests").Range( _
        "$C$" & target), False, False, False, False, , False
        start = limit + 1
        target = target + 19
    Next i
    Application.AlertBeforeOverwriting = True
        Application.DisplayAlerts = True
End Sub

Sorry, that was my only suggestion...

I hate to say it here, because it doesn't help you at all, but I'm out of my depth on this one, and I'm going to have to bow out.

Good luck, and I hope someone can help you out in the near future.

Thanks

Thanks anyway .... as a temporal solution, I will clear cells before filling

Hello MrShorty

I need to use VBA because I will give the workbook to another user, he just want to insert data and then do ONE CLICK only

mmmmm, well

My data are about security exchange, every month we will add the data of stock prices, this means more rows are added monthly to my sheet .... and the number of rows may be different from the previous month

anyway, I may rethink of my sheet structure Thank you all