Method calculate of object _application failed Hatası

[mekist]

Merhaba

Direkt userform açılacak şekilde çalışma yaptım, seçimleri yapıp veri güncellemesi yapıyorum
Veriler güncellerken formülleri manüle çeviriyorum

Herhangi bir Excel açıkken bu dosyayı açarsam hesaplamayı manüel yapıyor, Excel hiç açık değilken açtığımda formülleri manüele çevirmeyip hata veriyor

Application.Calculation = xlManual sanırım Excel' i hiç açmadığı için application uygulamayı bulamadığı için işlemi yapamıyor

Bu hatayla karşılaşan hiç olmamış sanırım, burada bir konu var, tam karşılamıyor

https://stackoverflow.com/questions/51656302/calculation-not-a-method-of-application-or-activeworkbook

Karşılaşan yada çözüm yolu var mıdır

 

[mekist]

Önerisi olan var mıdır

 

[Korhan Ayhan]

Dosyanız bende hata verdiği için deneyemiyorum. Aşağıdaki şekilde denediniz mi?

Private Sub Workbook_Open()
    Application.Calculation = xlManual
    Windows(ThisWorkbook.Name).Visible = False
    UserForm1.Show vbModeless
End Sub

 

[mekist]

Korhan Bey

Application.Calculation = xlManual bu yoktu ekledim
İnternetten veri alan butonda Application.Calculation = xlManual bunu devre dışı bıraktım, burayı geçti
Application.Calculation = xlAutomatic formül hesaplamasını otomatik hale getirirken hata aldı, yine aynı mantıkla Excel' i açık görmediği için sorun görüyor

Her şey yolunda gitse bile 2. çalıştırmada manüel ve otomatiği yine yapması gerekecek, 2. çalışmadan sonra işlemi yap diye döngü kurmak gerekir

 

[Korhan Ayhan]

Eğer hesaplama yöntemini değiştirmek hataya sebep oluyorsa geçici olarak exceli görünür yapıp sanırım bu sorunu aşabilirsiniz. Sonrasında yine exceli gizleyerek işleme devam edebilirsiniz.

 

[mekist]

Teşekkür ederim, öyle yaptım

 

[mekist]

Merhaba

Grafik sayfası için seçtiğim marj / orana göre grafik değişiyor
Yanlız sadece UserForm açık Excel kapalı olunca dosyayı bulamadığı için aynı hata burada da veriyor

Geçici olarak görünür yaptım bu defa tekrar gizlenmiyor
Nasıl çözebilirim

Private Sub Worksheet_Calculate()
Sheets("Grafik").Range("D6") = Sheets("Grafik%").Range("E5").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D6")) Is Nothing Then Exit Sub

If Sheets("Grafik").Range("D6").Value > 0 And Sheets("Grafik").Range("D6").Value < 15 Then
Sheets("Grafik").ChartObjects("Grafik1").Activate
    ActiveChart.Axes(xlValue).Select
    Selection.TickLabels.NumberFormat = "0%"
    ActiveChart.Axes(xlValue).DisplayUnit = xlNone

ElseIf Sheets("Grafik").Range("D6").Value = 19 Then
    Sheets("Grafik").ChartObjects("Grafik1").Activate
    ActiveChart.Axes(xlValue).Select
    Selection.TickLabels.NumberFormat = "#.###"
    ActiveChart.Axes(xlValue).DisplayUnit = xlMillions
    ActiveChart.Axes(xlValue).HasDisplayUnitLabel = True

Else
Sheets("Grafik").ChartObjects("Grafik1").Activate
    ActiveChart.Axes(xlValue).Select
Selection.TickLabels.NumberFormat = "#.###"
ActiveChart.Axes(xlValue).DisplayUnit = xlNone

End If

End Sub