Mittwoch, Januar 29, 2020

VBA-Formel application-defined or object-defined-Fehler beim einfügen der Formel in VBA

Ich versuche, ersetzen Sie die Ergebnisse mit Formeln, so dass der Benutzer wäre in der Lage, um zu sehen, beide Werte und Formeln.

Sub MoreOrEqualAmountCalculated()

Dim LastRow As Long
Dim Counter As Long

With Application
    .ScreenUpdating = False
End With

Application.Workbooks("Summary.xlsm").Worksheets("MonthlyData_Raw").Activate

LastRow = Range("A1000000").End(xlUp).Row

For Counter = 2 To LastRow
    'Populate both results and FORMULA: There is an error 1004 - application-defined or object-'defined error. What am I missing?

    Cells(Counter, 36).Formula = "=IF(Cells(Counter, 35).Value >= 0,""Recovery _
    Equals or Exceeds Amount calculated"",""Recovery less than Amount _   
    calculated"")"

Next

With Application
    .ScreenUpdating = True
End With

End Sub

Ich gesehen habe ein paar ähnliche Themen aber keines, wenn Sie erklärt die Regeln, um das einfügen von Formeln in details. Ich würde Ihre Hilfe schätzen und ausdrückliche Erklärung in der Lage sein, dieses wissen anzuwenden in der Zukunft.

Vielen Dank,
Russ

  • Siehe diese ausgezeichnete Antwort zum erstellen von Formeln: stackoverflow.com/a/19502534/293078
  • Sollten Sie wirklich vermeiden .Activate Betrachten, verwenden stattdessen eine variable wie Dim ws1 As Worksheet und verwenden Set ws1 = Workbooks("Summary.xlsm").Worksheets("MonthlyData_Raw")… Dann verwenden Sie es wie diese: LastRow = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row oder ws1.Cells(Counter, 36).Formula =
  • Vielen Dank für die Bereitstellung Ideen zur Optimierung der code durch die Verwendung von Variablen, Christmas007!!! Ich werde es anwenden…
InformationsquelleAutor LearnForever | 2015-01-12

1 Kommentar

  1. 1

    Versuchen Sie dies:

     Cells(Counter, 36).Formula = "=IF(" & Cells(Counter, 35).Address & " >= 0,""Recovery " & _
     "Equals or Exceeds Amount calculated"",""Recovery less than Amount " & _   
     "calculated"")"

Kostenlose Online-Tests