Soru X leri ve Saatleri toplamak

[k0081]

Merhaba arkadaşlar

X = 1
/ = 0.5
sayılar=sayılar

bunların toplamlarını alacak formülü nasıl yapabilirim. toplamda alınan sayıların 1 ile çarpanları olacak.

örnek biçim ve sonuç ekteki dosyadadır.

X= 12
/= 0.5
/= 0.5



=(1*13)+(1*sayıların toplamı ) = 21,5

DENEME1.rar dosyasını indir - download

DENEME1.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

yardımcı arkadaşa şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

=(1*((EĞERSAY(C2:Z2;"/")*0,5)+EĞERSAY(C2:Z2;"X")))+(1*TOPLA(C2:Z2))

Rakamları 1 ile çarpmak bir şey değiştirmez neden 1 ile çarpıyorsunuz. Aşağıdaki gibi de olur.

=(EĞERSAY(C2:Z2;"/")*0,5)+EĞERSAY(C2:Z2;"X")+TOPLA(C2:Z2)

 

[k0081]

Merhaba.

=(1*((EĞERSAY(C2:Z2;"/")*0,5)+EĞERSAY(C2:Z2;"X")))+(1*TOPLA(C2:Z2))

Rakamları 1 ile çarpmak bir şey değiştirmez neden 1 ile çarpıyorsunuz. Aşağıdaki gibi de olur.

=(EĞERSAY(C2:Z2;"/")*0,5)+EĞERSAY(C2:Z2;"X")+TOPLA(C2:Z2)

1 burada değişken olduğu için formülde olması gerekiyor. o yüzden...

Teşekkür ederim. oldu. Fakat ben bir adet X veya / daha eklediğimde değer değişmiyor nedense

 

[YUSUF44]

Örnek dosyanıza formülü uyguladığımda Z2 hücresinde yaptığım değişiklikleri formül dikkate aldı, belirttiğiniz gibi değer değişmeme sorunu olmadı.

 

[k0081]

Tamam. Başka bir bilgisayarda deneyip, sonucu yazacağım.

* X , / , veya saat bilgisi(sayısı) girip, Ctrl+S dediğimde güncelliyor... onun dışında değiştirmiyor. öyle kalıyor.

 

[Muzaffer Ali]

Tamam. Başka bir bilgisayarda deneyip, sonucu yazacağım.

* X , / , veya saat bilgisi(sayısı) girip, Ctrl+S dediğimde güncelliyor... onun dışında değiştirmiyor. öyle kalıyor.

Formüller tabında bulunan Hesaplama Seçenekleri = Otomatik seçin.

 

[k0081]

Formüller tabında bulunan Hesaplama Seçenekleri = Otomatik seçin.

Evet bunu daha önce de değiştirmiştim. Tekrar manuel düşmüş... otomatik aldım. Düzeldi. Teşekkürler.

* bir de bu syafa da X her zaman büyük yazdırmayı nasıl sağlarım bazen CAPSLock kapalı olabiliyorda...

 

[Muzaffer Ali]

Büyük küçük harf fark etmiyor ikisini de toplama yapıyor.

Mutlaka büyük harfle yazmak istiyorsanız kod ile olur.

 

[k0081]

Evet onu fark ettim. x,X hesaplama yapıyor. Ama Tablo görünümü açısından X her zaman büyük olmalı

 

[Muzaffer Ali]

Sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:Z")) Is Nothing And Target = "x" Then
        Application.EnableEvents = False
        Target = "X"
        Application.EnableEvents = True
    End If
End Sub

"C:Z" aralığındaki tüm hücrelere yazılan x leri büyük yapar

 

[k0081]

@Muzaffer Ali

Çok Teşekkür ederim. Tamamdır. Elinize sağlık.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[k0081]

Sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:Z")) Is Nothing And Target = "x" Then
        Application.EnableEvents = False
        Target = "X"
        Application.EnableEvents = True
    End If
End Sub

"C:Z" aralığındaki tüm hücrelere yazılan x leri büyük yapar

Hocam bu mevcut kodu koruyarak, aynı aralığa bir ekleme daha yapabilirmiyiz ?

şöyle ; eksi ( - ) işareti girdiğim de slash ( / ) işaretine çevirsin... kodu nasıl düzenlemeliyiz ?


* bir de bu aralıkta değer sildiğimde : Runtime '13' type mismatch hatası veriyor excel.

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin. Önceki kodu silin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:Z")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        Target = Replace(Target.Text, "x", "X")
        Target = Replace(Target.Text, "-", "/")
        Application.EnableEvents = True
    End If
End Sub

 

[k0081]

@Muzaffer Ali

Tamamdır., oldu hocam. Hatasız çalışıyor... Çok Teşekkür ediyorum. Elinize sağlık.

 

[Muzaffer Ali]

Rica ederim Kolay gelsin.