Soru Hücreye yazılan değeri sabit bir değer ile çarpma

[bedidofna]

Merhaba

Sorumla alakalı konulara baktım ancak birebir karşılık bulamadığım için konu olarak açmak istedim.

Bir hücreye isteğe uyarlanmış olarak GÜN ibaresini ekledim. Yani sayı olarak ne yazarsam yanında gün ibaresi çıkıyor. Ancak ben gün konusunda hesaplama yaparken saatler üzerinden işlem yapıyorum. Yani 7.5 saati bir tam gün olarak baz alıyorum. Bu sebeple benim hücreye yazmış olduğum sayıyı "0.13332" ile çarpmasını istiyorum.

Örneğin: Hücreye 5 yazdığımda, hücrede 0,6666 GÜN yazmalı.

Böyle bir şey mümkün müdür? Teşekkürler

 

[Ali]

Verilerinizin A sütununda olduğunu düşünerek

Dim ilk
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = 0 Then Exit Sub
If ilk = Target Then Exit Sub
If Target.Column = 1 Then
ilk = Target * 0.13332
Target = ilk
End If
End Sub

 

[bedidofna]

kodu nasıl işleyeceğim konusunda pek uzmanlığım yok. bu sebeple ekte yolladığım dosyada mavi olan hücrelere bunu yapabilirsek daha kolay olur benim için. Tekrar söylemek gerekirse mavi hücrelere kaç yazarsam o sayıyı 0.13332 ile çarpıp, o sonucu göstermesini istiyorum

 

[AdemCan]

Merhaba, Ali Beyin paylaştığı kodlarda sütun ve satır bilgisi ekledim.

Dim ilk
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target = 0 Then Exit Sub
If ilk = Target Then Exit Sub
    If (Target.Column = 5 Or Target.Column = 8) And (Target.Row > 8 And Target.Row < 19) Then
        ilk = Target * 0.13332
        Target = ilk
    End If
End Sub

Kodu eklemek için, resimdeki gibi sayfa ismi üzerinde sağ tuş ve kod görüntüleyi tıklayın. Açılan sayfaya da yukarıdaki kodları yapıştırın.


Daha sonra dosyanızı *.xlsm uzantısı ile kayıt edin.


Son olarak hücre biçimlendirme için kullandığınız formatı da ##0,000# "GÜN" olarak değiştirirseniz ilk resimdeki gibi sonuç 0,6666 GÜN olarak görünür.

 

[bedidofna]

teşekkür ederim sağolun

 

[AdemCan]

Rica ederim.