hazırlanan formüle değişik girdiler girip sonuç tablosu oluşurmak

[cagdasuzun]

selamlar

ekte gönderdiğim excel sayfasında toplam metraj(üstte kırmızı ile yazılmış 10) girişi yapılıp aşağıda e dahil ve e dahil değil diye iki sonuç çıkıyor.

benip yapmak istediğim ise aşağıdaki tabloda 10 değerinden sonra diğer değerleride(20,30,40......1000,1010..) girip e dahil ve e dahil değerlerini gösterecek bir tablo oluşturmak.bunun kolay bir yolu varmı.

illaki kolay bir yolu vardır, yoksa tek tek yazılıp çıkan değerleri tabloya girmek pek mantıklı gelmedi bana.

yardımlarınızı bekliyorum.

iyi geceler

 

[Korhan Ayhan]

Selamlar,

"e dahil" ve "e dahil değil" tablolarını 10,20,30... şekliden giden verilerinizin yanına satır bazında yerleştirirseniz alt hücrelere sürükleyerek diğer hücreleri otomatik hesaplatmış olursunuz.

Tablonuzun bu haliyle ancak makro ile tüm sonuçları listeleyebilirsiniz.

 

[AS3434]

Sayın cagdasuzun



Makro ile yapılmış ekli dosyayı inceleyin....

.

 

[cagdasuzun]

teşekkür ederim cevaplarınız için.

AS3434 hocam makroyla yapılmış halini inceledim fakat yine tek tek 10,20,30 gibi girmek gerekiyo. aşağıda "e dahil" "e dahil değil" kutucuklarını verilen sayılara göre otomatik yerleştirebilir mi acaba.

exceli makro haricinde yeterli düzeyde kullanabiliyorum fakat makroyla ilgili çok çok az bilgiye sahibim. formüllerle bi şekilde yapılsaydı devamını getirme şansım olurdu fakat olay makro olunca iş benden çıkıyo

zaman ayrıdığınız için çok çok teşekkür ederim.

 

[AS3434]

Sayın cagdasuzun

Şablonunuz sabit mi, ara değerler olacak mı?
Sabit değerlere göre tablo yapılsa işinize yarar mı?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub HESAPLA()
    Dim X As Integer
    
    Application.ScreenUpdating = False
    
    For X = 24 To Range("C65536").End(3).Row
        Range("E2") = Cells(X, "C")
        Cells(X, "D") = Range("H22")
        Cells(X, "E") = Range("I22")
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Hesaplama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[AS3434]

Sayın cagdasuzun

Sorunuzu değerli arkadaşımız Korhan Ayhan makro ile istediğiniz şekilde çözmüş.
Alternatif olarak formüllü tablo çözümü de ben gönderiyorum.



.