hücreye girilen değerin değişmesi

[thecarow]

Merhaba;
Bir konuda desteğinizi talep edecektim. Yapmak istediğim, hücreye sayı girişi yaptığımda girilen değeri istediğim bir oranla çarparak yazması. Mümkün müdür bilmiyorum, destek olabilirmisiniz
Saygılarımla

 

[vardar07]

Örnek dosyanızı ekleseniz hangi hücreye ne yazılacak yüzde nedir nereye yazacak belirtirseniz bizde yardımcı olmaya çalışırız.

 

[thecarow]

Hocam örnek dosya ektedir

 

[Orion1]

B5 hücresine aşağıdaki formülü giriniz.

=A5*5

 

[vardar07]

Eğer istediğiniz A5 hücresine 20 yazınca aynı hücrede sonuç görmek isterseniz formül ile yapılamaz. Makro ile yapılabilir. Yok yan tarafına (B5 e) yazacaksa sayın Orion1 cevap vermiş.

 

[thecarow]

Teşekkürler hocam, buda bir yöntem ancak ben "=" kullanmadan makro veya başka bir şekilde mümkünmüdür diye sormuştum, ama ilginiz için yinede teşekkür ederim

 

[Orion1]

Teşekkürler hocam, buda bir yöntem ancak ben "=" kullanmadan makro veya başka bir şekilde mümkünmüdür diye sormuştum, ama ilginiz için yinede teşekkür ederim

Makro ile çözüm için Makro-vba bölümüne sorularınızı sorunuz.
Siz fonksiyonlar bölümüne sorduğunuz için bende fonksiyon olarak cevapladım.

 

[YUSUF44]

Örneğin aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda A1:A10 aralığına sayı girdiğinizde 5 katını yan hücreye yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If IsNumeric(Target) = True Then Target.Offset(0, 1) = Target * 5
End Sub

Aşağıdaki kodlar ise A1:A10 arasına sayı girdiğinzide 5 katını yine aynı hücreye yazar, örneğin A1'e 1 yazarsanız 5'e dönüştürür:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) = True Then Target = Target * 5
Application.EnableEvents = True
End Sub

 

[thecarow]

Hocam ilginiz ve desteğiniz teşekkür ederim, hangi bölüme yazacağımı bilmediğim için karışıklık oldu, iyiki varsınız