Merhaba Değerli Forum üyesi arkadaşlarım.
Aşağıdaki gibi bir fonksiyonum var, a1 hücresine 0 dan 11'e kadar sayılar girdiğimde toplamaya yapıyor veya değeri olduğu gibi alıyor.fakat benim istediğim msgbox kutusunun her seferinde benden onay almaması.Bu sayılardan ilgili olanları girdiğimde ilgili case ait bir açıklama yazmasını istiyorum.Bu illaki msgbox olmak zorunda diil.Herhangi bir sabit hücrede de yazabilir veya comment gibi çalışabilir.(comment te hücre üzerine gelince belli belirsiz bir açıklama görünüyor) benim istediğim sayı girince yapması.
yardımlarınız için şimdiden teşekkürler.
jolaus
********************************************
Function topla_b(Deger1, deger2, Condition)
Dim a
contion = Val(Condition)
Select Case Condition
Case 0
msgbox=("ELMA")
a = Deger1
Case 1
msgbox=("armut")
a = Val(Deger1) + Val(deger2)
Case 2
a = Val(Deger1) + Val(deger2)
Case 3
a = Deger1
Case 4
a = Val(Deger1) + Val(deger2)
Case 5
a = Val(Deger1) + Val(deger2)
Case 6
a = Deger1
Case 7
a = Val(Deger1) + Val(deger2)
Case 8
a = Val(Deger1) + Val(deger2)
Case 9
a = Val(Deger1) + Val(deger2)
Case 10
a = Deger1
Case 11
a = Val(Deger1) + Val(deger2)
Case ""
a = Deger1
End Select
topla_b = a
End Function
Aşağıdaki gibi bir fonksiyonum var, a1 hücresine 0 dan 11'e kadar sayılar girdiğimde toplamaya yapıyor veya değeri olduğu gibi alıyor.fakat benim istediğim msgbox kutusunun her seferinde benden onay almaması.Bu sayılardan ilgili olanları girdiğimde ilgili case ait bir açıklama yazmasını istiyorum.Bu illaki msgbox olmak zorunda diil.Herhangi bir sabit hücrede de yazabilir veya comment gibi çalışabilir.(comment te hücre üzerine gelince belli belirsiz bir açıklama görünüyor) benim istediğim sayı girince yapması.
yardımlarınız için şimdiden teşekkürler.
jolaus
********************************************
Function topla_b(Deger1, deger2, Condition)
Dim a
contion = Val(Condition)
Select Case Condition
Case 0
msgbox=("ELMA")
a = Deger1
Case 1
msgbox=("armut")
a = Val(Deger1) + Val(deger2)
Case 2
a = Val(Deger1) + Val(deger2)
Case 3
a = Deger1
Case 4
a = Val(Deger1) + Val(deger2)
Case 5
a = Val(Deger1) + Val(deger2)
Case 6
a = Deger1
Case 7
a = Val(Deger1) + Val(deger2)
Case 8
a = Val(Deger1) + Val(deger2)
Case 9
a = Val(Deger1) + Val(deger2)
Case 10
a = Deger1
Case 11
a = Val(Deger1) + Val(deger2)
Case ""
a = Deger1
End Select
topla_b = a
End Function