Enter'a basınca bu formül çalışabilir mi?

[lechpoznan93]

Sub Makro1()
İlk = Evaluate("=MIN(IF(j1:s1>0,COLUMN(j1:s1)))")
Son = Evaluate("=MAX(IF(j1:s1>0,COLUMN(j1:s1)))")
Range("A4) = Cells(1, İlk) + Cells(1, Son)
End Sub


J1 ile S1 arasındaki değerlerden ilkini ve sondakini toplayıp, sondaki değeri yazdığımda, entera basınca A sütünuna otomatik olarak toplayıp yazmasını istiyorum.

 

[lechpoznan93]

Yardimci olabilecek kimse var mi acaba?

 

[lechpoznan93]

Kimse gormuyor mu mesaji veya imkansiz bir sey mi istedim ????

 

[EmrExcel16]

Tam olarak ne istediğinizi anlatamadiniz yada sizin anlatmak istediginizi cevap verecek kisinin tam olarak anlamadindan cevap alamamis olabilirsiniz sorunuzu biraz daha açarak ve mümkün ise bir örnek dosya ekleyerek sorarsaniz kesinlikle cevap ve çozüm alacaksinizdir emin olun esenle kalin.

 

[lechpoznan93]

Ne demek istediğimi tam olarak anlattığımı düşüüyorum.

J1 sütunu ile S1 sütünu arasında birden fazla değer var. Bu değerleri ben bazen silebiliyorum. Benim istediğim şey bu iki sütun arasındaki değerlerden ilk değeri ve son değeri toplaması. Topladıktan sonra ise A4 sütununa toplamı yazması.

Örnek: J1 sütunu ile S1 sütunu arasında 50,60,70,50,50,80 değerleri var. İstediğim şey ilk değer olan 50 ile son değer olan 80'i toplaması ve bunu A4 sütununa otomatik olarak 130 diye yazması.

Bunu bu forumdan buldum ve yaptım. Benim yardım almak istediğim nokta ise ben 80 değerini girip "enter" a bastığımda makronun otomatik olarak a4 sütununa toplamı yazması.

Aynı şeyleri tekrar ettiğimi düşünüyorum. Daha açık nasıl yazabilirim bilemedim.

 

[Zeki TEOMAN]

..

 

[çıtır]

Bahisleri hiç sevmem.

 

[lechpoznan93]

Örnek dosyayı aşağıya ekledim arkadaşlar.
Benim oluşturmak istediğim sistemden bahsetmek istiyorum.
Ben bahis oynuyorum. Oynadığım bahisleri belli bir mantığa-sisteme göre oturtmaya çalışıyorum. Bu sisteme sayı dizisi diyorum.
Örneğin 250 lira kazanmayı hedefliyorum diyelim. Ben bu 250 lirayı 5 parçaya/seriye bölüyorum. 50,50,50,50,50 olarak. Bu sistemde (Kazanılacak tutar/(Oran-1)) formülünü kullanıyorum ve her zaman ilk ve son değeri toplayıp (50+50)/(Oran-1) olarak yatırmam gereken tutarı hesaplıyorum. Diyelim ki bahis kazandı ise ilk ve son değer olarak yazdığım 50,50 siliyorum. Yeni seri üç tane 50,50,50 oluyor. Kaybetseydim eğer hiç silme işlemi yapmadan 50,50,50,50,50'lik serinin yanına yatırdığım miktar olan (50+50) 100 lirayı ekliyorum. Yeni seri 50,50,50,50,50,100 oluyor. Artık yeni bir bahis alacaksam eğer kazanmam gereken tutar ilk ve son değer olarak 50+100 oluyor.

Ben de bunu sisteme oturtmak istiyorum. Yeni seri rakamı yazdığımda otomatik olarak kazanmam gereken miktarı A sütununda belirtmesini istiyorum. Bunu çözdükten sonra bu makroyu "eğer" formülüne oturtmak istiyorum. Bunu nasıl yapacağımı bilmiyorum. Yani "Durum" sütununda kazandı veya kaybetti kelimesini yazdığımda otomatik olarak "A" sütununun altına yeni bahis için kazanmam gereken miktarı girsin istiyorum.

SAYI DİZİSİ EXCEL DOSYASI

 

[lechpoznan93]

Lutfen yardim