Değere göre veri doğrulamadaki değerle sonuç çevirme

[Büşra Güzelyurt]

Merhaba,

Uğratşım fakat girilen değere göre miktarı veri doğrulamada tek seçildiyse aynen çift seçildiyse çiftini yazmasını istiyorum fakat genel anlamda yaptım birtek o veri doğrulamadan nasıl kontrol etircem onu çözemedim...

yardımcı olursanız sevinirim.

 

[İhsan Tank]

açıklamalarınız hiç net değil neye göre belirliyorsunuz 10 mesela

 

[Büşra Güzelyurt]

10 u ben kendim giriyorum....

 

[İhsan Tank]

10 u ben kendim giriyorum....

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3")) Is Nothing Then Exit Sub
If Range("C3") = "Çiftli Sistem" Then
Range("D6") = Range("C6").Value
Range("C6") = Range("C6") + Range("D6")
Range("D6").ClearContents
End If
End Sub

bu kodu yazınız ve deneyiniz.
kayıt yaparken lütfen makro içerebilen dosya şeklinde kayıt yapınız

 

[Büşra Güzelyurt]

çok teşekkür ederim fakat makro kullanmadan yapmanın imkanı yokmu ? ben topla.çarpımları toplatarak vs lerle uğraştım fakat olmadı işte...

 

[İhsan Tank]

formülle yapılmaz sebebi ise şu
siz sonucu c6 hücresinde görmek istiyorsunuz ve rakamı'da C6 hücresine yazmak istiyorsunuz nasıl olacak formül kendi kendine iptal olup geri mi gelecek