macro ile otomatik hesaplama

[yesevi33]

Iyi günler benim sorunum şu, ekli dosyada yer alan tabloda sarı renkte olan verilere tabloda yer alan birim kullanım ve fire oranlarına göre aşağıda mavi renkli olan yerlere hesaplama yapıyoruz. Ama her stun için formülü teker teker girmemiz gerekiyor. Bunun kısa bir yolu yokmu acaba verileri iç taraftaki birim kullanımdan alıp mavi renkli olan yere aktaracak bir kısa yol yokmu acaba. eğer anlaşılmadıyda gönderdiğim dosyda mavi renkli olan yere tıkladığınızda nasıl bir formül yaptığım görünür. ben bunu otomatik olarak yapacak bir formül varmı bunu araştırıyorum. Excelde veri, durum çözümlemesi, veri tablosu diye bir yer var ordan denedim ama olmadı bunun kısa yolunu bilen varsa yardımcı olursa sevinirim. Bu gönderdiğim tablo örnek bir tablo bu tablolar bazen dört beş sayfa olabiliyor.

 

[hamitcan]

Formül çoğaltmada mı sıkıntınız var ? Tam olarak sorunuz anlaşılmıyor.

 

[yesevi33]

mavi renkteki verileri hesaplarken kullanımları otomatikman onun üstündeki birim kullanım ve fire oranlarından almasını istiyorum. biz bunları elimizle girerek yapıyoruz. durum çözümlemesinde veri tablosunda bunu otomatik yapıyordu ama ben buna uyarlıyamadım.

 

[hamitcan]

Birim kullanım miktarını zaten hücreden alıyor ama 0.85 oranı nedir anlayamadım.

 

[yesevi33]

.85 fire oranı. tabloda fire olarak %15 görünüyor hesaplama yaparken 100 - 15 dediğimizde çıkan sonuç .85 olarak hesaplanıyor. benim istediğim bütün tabloyu bloklayıp bir makro ile mavi renkteki yerlere hesaplama yapabilirmiyiz.

 

[hamitcan]

Böyle bir deneyin.

Sub Hesapla()
    For i = 10 To 22 Step 4
    For j = 3 To 9
        Cells(i, j) = Cells(6, j) * Cells(i - 3, j) / ((100 - Cells(i - 2, j)) / 100)
    Next
    Next
    MsgBox "Bitti"
End Sub

 

[yesevi33]

Hocam ilginizden dolayı teşekkürler bu kodu nereye girecem bu konuda fazla bilgim yok. Benim ileri excel konusunda fazla bilgim yok size zahmet örnek olarak gönderdiğim dosya üzerinde uygulayıp gönderebilirmisiniz. Bende daha sonra bendeki diğer dosyalara uygularım.

 

[hamitcan]

Eki inceleyin.

 

[yesevi33]

Hocam ilginizden dolayı teşekkürler çok fazla oluyorum biliyorum. Ama işlemleri yaptığınız anadosya sizde olduğu için benim bilgisayarda açmıyor bir mahsuru yoksa yaptığınız işlemleri resimli olarak kaydedip bana gönderebilirmisiniz. Veya video olarak. Yada ne şekilde yapıldğını ayrıntılı bir şekilde yazarak da anlatabilirsiniz. Inanın bizim için çok önemli bunlar bazen 10-15 sayfa olduğu için yapılışı çok zor oluyor.

 

[hamitcan]

Dosya sizde açılmıyorsa, makro güvenlik ayarları ile ilgili olabilir. Kodun algoritması aslında sizin yazdığınız formül. Daha ileri bilgi için Excel Dershanesi bölümünde kod oluşturma ile ilgili makaleleri incelemenizi tavsiye ederim. Resim ve video hazırlamak için zamanım yok ama ilgili makalelerde bu tip çalışmalar bulabilirsiniz.

 

[rtk19641990]

Makro ile otomatik toplama

Hocam bunu benim ekteki dosyaya uygulayabilir miyiz?

Teşekkürler

 

[rtk19641990]

Yardımcı olacak arkadaşlarım var mı acaba?

 

[hamitcan]

Sorunuzun tamamını Düşeyara formülü ile yapabilirsiniz.
Örn: Ekstre bakiyesi

=DÜŞEYARA(C23;Sayfa2!$A$1:$H$107;3;YANLIŞ)

 

[rtk19641990]

Sayfa 1 de Tl karşılğı kısmında value hatası alıyorum.Makro ile zor mu olur? Yani bir defada hesaplatmak mümkün müdür acaba?

 

[rtk19641990]

Ekte formülünüzü uyguladım. Olmayanlar için N/A koydu ama value hataları alıyor ve toplam almıyor. Kusura bakmayın atladığım birşey var ama anlamadım.

 

[hamitcan]

Böyle deneyin.

=SAYIYAÇEVİR(G23)*F3

 

[rtk19641990]

=value(G23)*F3 yaptım yine value hatası aldı. Bu hesaplamaların makro kullanarak yapılması zor olur mu?

 

[hamitcan]

Bu hesaplamaların makro kullanarak yapılması zor olur mu?

Kolayı varken neden zoru ile uğraşalım. Formülü uyguladım, eki inceleyin.

 

[rtk19641990]

Aynı formülü başka hücrelere uyguluyorum. Ben de neden Value hatası alıyor acaba? excel 2007 kullanıyorum.

 

[rtk19641990]

ayrıca sizin yaptığınızı masaüstüne kaydettiğim zaman o hücre tekrar value haline geliyor???