Application-defined or Object-defined hatası

[xeminx000]

Öncelikle iyi forumlar,
Kodumun 7. satırında Application-defined or Object-defined hatası alıyorum yardımcı olur musunuz?

Sub order()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Range("D2").FormulaR1C1 = "=LEFT(RC[-2],4)"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D" & i)
Range("E2").Formula = "=COUNTIF(D2: D & i ,1901)"
End Sub

 

[Ömer]

Merhaba,

Satırı aşağıdaki gibi değiştirin.

Range("E2").Formula = "=COUNTIF(D2:D" & i & " ,1901)"

.

 

[xeminx000]

Merhaba,

Satırı aşağıdaki gibi değiştirin.

Range("E2").Formula = "=COUNTIF(D2:D" & i & " ,1901)"

.

Teşekkürler hocam.

 

[xeminx000]

Peki ben bu formülden gelen değeri E2 ' ye yazdırmak yerine bir x değişkenine atamak istersem nasıl yapmam gerekiyor?

Range("E2").Formula = "=COUNTIF(D2:D" & i & " ,1901)"

 

[Korhan Ayhan]

Deneyiniz.

X = Evaluate("=COUNTIF(D2:D" & i & " ,1901)")

 

[xeminx000]

Deneyiniz.

X = Evaluate("=COUNTIF(D2:D" & i & " ,1901)")

Teşekkürler