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 wieDim ws1 As Worksheet
und verwendenSet ws1 = Workbooks("Summary.xlsm").Worksheets("MonthlyData_Raw")
... Dann verwenden Sie es wie diese:LastRow = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
oderws1.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...
Du musst angemeldet sein, um einen Kommentar abzugeben.
Versuchen Sie dies: