İsim / Çarpma / Toplama

[nihatjeoloji]

Ýsim / Çarpma / Toplama

Salam arkadaşlar

makro ile
sadece bir isim veya hüçre boş ise.
A1= ; A2= ; A3=........A25=

Her hangi bu hüçrelerden birinde ALİ yazıldığında. veya boş bırakıldığında

Ã?R:
A1=ahm.
A2=muh.
A3=veli
A4=ALİ ise çarpım[T4*V4] işlemi oluşsun
A5=has.
.....
......
A23= (boş) ise çarpım[T23*V23] işlemi oluşsun
A24= (boş) ise çarpım[T24*V24] işlemi oluşsun
A25= (boş) ise çarpım[T25*T25] işlemi oluşsun
sonuçunda TOPLANARAK (U26)hüçresinde sonuçlansın ????

 

[isakarakus]

merhaba
denemedim ama bu şekilde olması lazım.

TOPLAM=0
If [A23]="" THEN TOPLAM=TOPLAM+[T23]*[V23]
If [A24]="" THEN TOPLAM=TOPLAM+[T24]*[V24]
If [A25]="" THEN TOPLAM=TOPLAM+[T25]*[V25]
[U26]=TOPLAM

 

[isakarakus]

özür dilerim düzeltiyorum
a sutununa veri girildikçe u stununda hesap yapıyor.

[vb:1:ce0e490f3f]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then

If Target.Text = "ALİ" Or Target.Text = "" Then
Target.Offset(0, 20) = Target.Offset(0, 19).Text * Target.Offset(0, 21)
End If

End If
End Sub[/vb:1:ce0e490f3f]

 

[nihatjeoloji]

Hallolmadı


Hangi hüçrede ALİ yazacam veya hangi hüçreyi boş bırakacam ??? ve
hangi hüçreye sayı girecem ???

 

[isakarakus]

(t) ve (v) sutunlarında sayılar var iken,
a sutununa ali girilince veya silinince
u sutununa t ve v sutunundaki değerleri çarparak yazıyor.

 

[nihatjeoloji]

syn isakarakus
çok sağolun fakat bu formülde iki şey olmadı

1- T1*V1= [U1]hüç.'nde sonuşlanıyor. oysa liste [U25]hüç.'nde bitiyor ve sonuç [U26]'da sonuçlansın toplam olarak diye sordum.

2-BOÞ kelimesi yazılmadan çarpım işlemi oluşsun.

yani ALİ ismi hangi hüçrede yazıldığı an ondan sonraki hüçreler boş olarak kalaçak ve otomatik çarpım işlemde devreye girecek.ALİ isiminden önçeki hüçreler ise çarpım işlemi ibtal olacak birde boş kalan hüçrelerde bazen bir kaç tanesine sayı girmiyebiliriz ve genede
çarpım ve en son toplanarak (U26)hüç.'de işlemi devam edecek.