hücre içeriğine göre formül

[GursoyC]

Merhaba,

Bir makro ile yapmak istediğim şey şudur.
A1 hücresinin içeriğine göre B1 hücresindeki değeri farklı değerlerle çarparak C1'e yazsın.

Örnek: A1'de Ahmet yazıyorsa B1'i 1,18 ile çarparak C1'e yazsın.
A1'de Mehmet yazıyorsa B1'i 1,15 ile çarparak C1'e yazsın.
A1'de Cemil yazıyorsa B1'i 1,08 ile çarparak C1'e yazsın.

yardımcı olur musunuz.

Teşekkürler.

 

[YUSUF44]

YAzdıklarınızın tam karşılığı budur. Kodu ilgili sayfanın kod bölümüne yapıştırın, A1'i değiştirdikçe belirttiğiniz işlemi yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target = "" Then [C1] = ""
If Target = "Ahmet" Then [C1] = [B1] * 1.18
If Target = "Mehmet" Then [C1] = [B1] * 1.15
If Target = "Cemil" Then [C1] = [B1] * 1.08
End Sub

Ancak gerçekte istediğinizin bu olmadığını düşünüyorum

 

[GursoyC]

Hemen deneyeyim

 

[GursoyC]

Yusuf bey bir düğme yapıp bu yazdığınız kodu direkt olarak düğmeye atadım ama hata veriyor. başka bir şey mi yapmam gerekiyor acaba?

 

[YUSUF44]

Kodu ilgili sayfanın kod bölümüne yapıştırın, A1'i değiştirdikçe belirttiğiniz işlemi yapar:

demiştim. Sayfa adına sağ tıklayıp Kod Görüntüle deyin ve çıkan sayfaya kodu yapıştırın.

 

[GursoyC]

Evet yusuf bey, benim hatam, gayet güzel çalıştı. Teşekkür ederim.