• DİKKAT

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

Hesapla + Sil Butonu (Excel 2007)

Katılım
21 Şubat 2009
Mesajlar
43
Excel Vers. ve Dili
2003 Turkce
Merhaba

Tablomda veri girerken her defasında değişik hesaplar yapmasını istemiyorum.
Veri girişi tamamlandıktan sonra hesap dediğimde hesaplanmasını istiyorum.
Biliyorum bunu otomatik hesaplayı iptal edip F9 ile yapabilirim ama görsellik açısından "Hesapla" butonu koymak istiyorum.
Aynı zamanda da tablodaki sadece belirli yerdeki bilgilerin silenmesi için de "Sil"
butonu nu nasıl koyabilirim.
Birde şunu sorucam. Bir sayfadaki butonlar, sayfayı kopyaladığımda da diğer sayfada çalışırmı.. Ve diğer klasörleri de etkilermi..
(Not. Daha önce buna benzer bir konu açılmış ama ben onu net olarak anlayamadım.)

Herkeze selamlar..
 
Örnek dosyanızı Buraya yükleyip linkini belirtiniz.
Dosya içerisine ne yapılacaksa formüller varsa formulleride ekleyiniz. Yardımcı olacak kişiler dosya görmeden afaki cevap yazmak biraz zordur.
 
Sayfaya eklediğiniz butona sağ tıklayıp açılan seçeneklerden makro ata seçeneğini seçin. Sonraki adımda makro1 seçeneğini seçip Tamam diyerek işlem tamamlanır. Diğer buton içinde aynı yoldan makro2 seşeneğini seçmelisiniz. Hepsi bu kadar.
 

Ekli dosyalar

  • bata.JPG
    bata.JPG
    56.3 KB · Görüntüleme: 9
Sayfaya eklediğiniz butona sağ tıklayıp açılan seçeneklerden makro ata seçeneğini seçin. Sonraki adımda makro1 seçeneğini seçip Tamam diyerek işlem tamamlanır. Diğer buton içinde aynı yoldan makro2 seşeneğini seçmelisiniz. Hepsi bu kadar.

Dediğinizi yaptım.
Sil butonu çalıştı. Makroda Silmesi gereken hücrelerde ( H7:H16) bir değişiklik yaptım. Oldu.
Ama Hesapla butonunda bir problem var.
Hesapla dediğimde bütün tabloyu ( formüller dahil) siliyor.
Ben mi hata yapıyorum ? Yoksa yanlış anlaşılmamı var..
Bir de, Altın üye olmadığım için ekli dosyayı göremiyorum.
 
Makro sizin formüllerle yapılmıştır.sadece dosya boyutunu şişirmemek için değere dönüştürüyor.
Makro1 içerisindeki Aşağıdaki satırları pasif ederseniz Formülleri görürsünüz.

Kod:
Range("R6:T13").Value = Range("R6:T13").Value
Range("O17:S17").Value = Range("O17:S17").Value
Range("Y6").Value = Range("Y6").Value
Range("W7:Y18").Value = Range("W7:Y18").Value
Range("C24:Y36").Value = Range("C24:Y36").Value
Range("M37:S37").Value = Range("M37:S37").Value

Sizin için 4.ncü mesajda dosyayı indirebilmeniz için inceleyinize tıklamanız yeterli. Olmuyorsa adresi http://s3.dosya.tc/server2/0hn8dt/UFRSHESAPLAMA.rar.html
 
Geri
Üst