• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Fonksiyonları yada formülleri Aktif/Pasif yapmak ?

  • Konbuyu başlatan Konbuyu başlatan HAKANP
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Nisan 2006
Mesajlar
228
Kolay gelsin, iyi akşamlar.

Yoğun veri girişi yaptığım bir çalışma sayfam var. Diğer bir sayfam ise bu veri giriş yaptığım sayfadan çok fazlaca DÜŞEYARA fonksiyonu ile bu özet olarak verileri alıyor. Ben veri girişi yaptıkça diğer sayfadaki DÜŞEYARA fonksiyonu devamlı güncelleme yaptığından veri girişim yavaşlıyor bazen donuyor. Seri halde veri girişi yapamıyorum. Bu yüzden DÜŞEYARA çalışan sayfadaki fonkiyonların çalışmalarını bir düğmeye makro atayarak, ON/OFF switch' ine benzer bir şey yapmak istiyrorum. Özetle veri girişi yaparken DÜŞEYARA fonsiyonu çalışan sayfada fonksiyonlar duracak ben butonu aktif hale getirdiğim de fonksiyon güncellenecek. Sadece O safyadaki Fonksiyonların çalışıp çalışmaması benim isteğime bağlı olarak düğmeye atanacak.

Teşekkürler.
 
Merhaba,
Bunun için makroya gerek yok. Bu özellik Excel'de mevcut.Yapmanız gereken,
Önce "seçenekler" den "hesaplama" seçeneklerinden "El ile" olanı tercih edin.
İhtiyaç duydukça "F9" ile hesaplattırabilirsiniz.
 
Merhaba,
Bunun için makroya gerek yok. Bu özellik Excel'de mevcut.Yapmanız gereken,
Önce "seçenekler" den "hesaplama" seçeneklerinden "El ile" olanı tercih edin.
İhtiyaç duydukça "F9" ile hesaplattırabilirsiniz.
Cevabınız için teşekkürler ama;

Herzaman aynı çalışma kitabında çalışmadığımızı ve bu talebimi sadece tek bir çalışma sayfası için yapmak istediğimi düşünürsek sizin düşüncenizin daha zahmetli olduğu kanısındayım. Doğru değil mi ?

Bu yüzden bunu hesaplamaların olduğu bir tek sayfa için yapmak mümkün mü ? Benim sorunum bu

Teşekkürler
 
Ekteki dosyada yazılan makroyu ve ToggleButton'ı kendinize uyarlayın.
 
Son düzenleme:
Zipli dosyayı silip normal halini ekledim.
 
Sanırım bu kez istediğiniz gibi oldu.
Kod:
Sub Hesapla()
    ActiveSheet.Calculate
End Sub
 
Sanırım bu kez istediğiniz gibi oldu.
Kod:
Sub Hesapla()
    ActiveSheet.Calculate
End Sub

Sayın Anemos
Sizin verdiğiniz bu kod sadece mevcut sayfada hesaplama işlemi yapıyor. Benim istediğimi tam anlamıyla anlamış değilsiniz. Sayın Mehmett' in işlemi çok güzel ama bütün çalışma kitabındaki hesaplama işlemlerini durduruyor. Benim yapmak istediğim sadece butonun atandığı sayfadaki hesaplama işlemleri durdursun. İsterseniz sayın Mehmett'in örneğini inceleyin daha sonra benim açıklamamı tekrar okuyun. Teşekkürler.
 
Excel, tek sayfada hesaplama yaptırabilir fakat tek sayfanın hesaplamasını durdurabilecek bir özelliğe sahip değildir. Size önerebileceğim en iyi yol, yukarıda verdiğim örnektir.
İyi çalışmalar...
 
Aşağıdaki kodları hesaplamayı manuel yaptıracağınız sayfanın kod sayfasına kopyalayın. Sonrada sayfadan bir kez başka bir sayfaya geçip sonra tekrar aynı sayfayı aktif yapın. Kodlar çalışacaktır.

Kod:
Private Sub Worksheet_Activate()
Application.Calculation = xlManual
End Sub
 
Private Sub Worksheet_Deactivate()
Application.Calculation = xlAutomatic
End Sub
 
Aşağıdaki kodları hesaplamayı manuel yaptıracağınız sayfanın kod sayfasına kopyalayın. Sonrada sayfadan bir kez başka bir sayfaya geçip sonra tekrar aynı sayfayı aktif yapın. Kodlar çalışacaktır.

Kod:
Private Sub Worksheet_Activate()
Application.Calculation = xlManual
End Sub
 
Private Sub Worksheet_Deactivate()
Application.Calculation = xlAutomatic
End Sub

ToggleButon daha mantıklı geldi ama unutkanlığa sebebiyet vermemek için, sayfaya geçtiğimizde hesaplamalar aktif değilken bir uyarı vermesini istiyorum.
aşağıdaki yapmaya çalıştım, ama olmadı

Private Sub Worksheet_Activate()
ThisWorkbook.Activate
If Controls(ToggleButton1) = False Then
MsgBox "Hesaplamaları Aktif Hale Getimeyi Unutmayınız", vbInformation, "Uyarı..!"
Exit Sub
End If
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Formüller Çalışıyor"
Application.Calculation = xlAutomatic
End If
If ToggleButton1 = False Then
ToggleButton1.Caption = "Formüller Çalışmıyor"
Application.Calculation = xlManual
End If
End Sub
 
Private Sub Worksheet_Activate()
ThisWorkbook.Activate
If ToggleButton1 = False Then
MsgBox "Hesaplamaları Aktif Hale Getimeyi Unutmayınız", vbInformation, "Uyarı..!"
Exit Sub
End If
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Formüller Çalışıyor"
Application.Calculation = xlAutomatic
End If
If ToggleButton1 = False Then
ToggleButton1.Caption = "Formüller Çalışmıyor"
Application.Calculation = xlManual
End If
End Sub

Bu şekilde tamam
 
Arkadaşlar merhaba!
Bir tane çok fazla sayıda fonksiyon içeren dosyam var. bir kod yardımıyla sadece A1:H1000 arasındaki formüller aktif olacak [I1:ZY1000] arasındaki formüller pasif olacak.
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic bu kod işimi görmüyor.
Yardımlarınız için teşekkür ederim
 
Arkadaşlar merhaba!
Bir tane çok fazla sayıda fonksiyon içeren dosyam var. bir kod yardımıyla sadece A1:H1000 arasındaki formüller aktif olacak [I1:ZY1000] arasındaki formüller pasif olacak.
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic bu kod işimi görmüyor.
Yardımlarınız için teşekkür ederim

merhaba
syn muokumus, istediğiniz normal yollardan yapılamaz.
formüllerde tanımlı ad kullanmak çözüm olabilir.
örnek dosya ile yeni konu açmanızı öneririm.
 
Kısmen aktif formül

Sn Uzmanamele görüşleriniz için teşekkür ederim. İstediğim çözümü dosya üzerinde anlatmaya çalıştım. Dosyamda F ve G sütunudaki formüller birbiri ile aynı.
Üret düğmesine bastığım zaman F sütunudaki formüller işlem yaparken, G sütunundaki formüllerin çalışmasını istemiyorum.
 

Ekli dosyalar

Sn Uzmanamele görüşleriniz için teşekkür ederim. İstediğim çözümü dosya üzerinde anlatmaya çalıştım. Dosyamda F ve G sütunudaki formüller birbiri ile aynı.
Üret düğmesine bastığım zaman F sütunudaki formüller işlem yaparken, G sütunundaki formüllerin çalışmasını istemiyorum.

merhaba
G sütunundaki formül çalışmasın derken; mevcut veriler saklansın mı istiyorsunuz?
 
Evet formüller duracak ama işlem yapmayacak. Bazı sütunlarda formüller ardışık değil.
 
Geri
Üst