Bir hücreye sayı yazdığımda aynı hücreye çarpıp yazsın

[S.K.]

Mesela A1 hücresine bir sayı yazdığımda yine aynı sayfanın aynı hücresine 0,90 ile çarpılmış halini yazmasını istiyorum. Mesela 100 yazdım, enter a bastığımda 100 sayısının otomatik olarak 90 olmasını istiyorum...

Yardımcı olursanız çok sevinirim...

 

[Recep İpek]

Sayın : S.K.,

Aşağıdaki kodları deneyebilirmisiniz.

[vb:1:6c7706bf46]
Dim ilk As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
ilk = Target * 0.9
Target = ilk
End Sub
[/vb:1:6c7706bf46]

 

[S.K.]

Denedim fakat çalışmıyor...

 

[Recep İpek]

Sayın : S.K.,

Aşağıdaki kodları sayfanızın kod bölümüne kopyalamamız yeterlidir.
Bende gayet güzel çalışıyor.

[vb:1:fff99fdb6b]
Dim ilk As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
ilk = Target * 0.9
Target = ilk
End Sub
[/vb:1:fff99fdb6b]

 

[S.K.]

Çok teşekkür ederim. Şimdi çalıştı....

 

[S.K.]

Ben o koddaki sayıyı 0.916 yaptım. 100 yazdığımda 83.91 çıkıyor. Bir yanlışlık var ama yardımcı olursanız sevinirim...

 

[Recep İpek]

Sayın S.K.,

ilk = (Target / 100) * 0.916


olarak denermisiniz?

 

[S.K.]

Dediğiniz gibi yaptım ama 100 yazıyorum 0,916 yazıyor. Bunda da bir problem var sanırım...

 

[Recep İpek]

SayınS.K.,

Sonuçda bir problem olmaması lazım.

Çünkü 100'ün 0,916'ı 0,916 yapar.

 

[S.K.]

Sayın ripek,

100'ün 0,916 ile çarpımı 91,60 yapar, ama ben kodlarda virgül kaydırarak problemi hallettim.

Çok teşekkür ederim...

 

[Recep İpek]

SayınS.K.,

Kafa başka yerlerde olunca bu şekil oluyor.

"Kodlarda virgül kaydırarak" derken nasıl yaptınız?

 

[S.K.]

Dim ilk As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D461")) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
ilk = (Target / 100) * 91.6
Target = ilk
End Sub


Tekrar teşekkür ederim. Emeğinize sağlık...