Örnek dosyamdaki katlı sayı işlemi

[ESES1989]

Merhaba arkadaşlar ekli örnek dosyamdaki işlemimde yardımcı olabilirmisiniz.
Şimdiden yardımcı olan arkadaşlara teşekkür eder iyi günler iyi çalışmalar dilerim.

 

[ESES1989]

Merhaba F11 DİYE YAZDIĞIM HÜCREYİ YANLIŞ YAZMIŞIM F15 OLACAK.
BİRDE E 15 HÜCRESİ BOŞ İSE F15 HÜCRESİ BOŞ GELSİN. TEŞEKKÜRLER

 

[ESES1989]

İŞLEMİ YAPTIM BİR TEK E 15 HÜCRESİ BOŞ OLDUĞUNDA F15 HÜCRESİ BOŞ GELMESİNİ YAPAMADIM YARDIMLARINIZI BEKLİYORUM İYİ GÜNLER BİLERİ

 

[Korhan Ayhan]

İlgili hücreye mesela 15 yazarsanız ne olacak?

 

[ESES1989]

İlgili hücreye mesela 15 yazarsanız ne olacak?

Merhaba korhan bey 15 yazmıyacağım 8 ve katları yazacağımdan dolayı örnek dosyamdada o formülü yaptım ama yapamadığım E15 hücresi boş ise F15 hücresi boş gelmesini yapamadım

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E15")) Is Nothing Then Exit Sub
    If Target Mod 8 = 0 Then
        Target.Next = IIf(Target = "", "", Target / 8)
    Else
        MsgBox "8'in katlarını girmelisiniz!", vbCritical
        Application.EnableEvents = False
        Target.Resize(, 2).ClearContents
        Application.EnableEvents = True
    End If
End Sub

 

[ESES1989]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E15")) Is Nothing Then Exit Sub
    If Target Mod 8 = 0 Then
        Target.Next = IIf(Target = "", "", Target / 8)
    Else
        MsgBox "8'in katlarını girmelisiniz!", vbCritical
        Application.EnableEvents = False
        Target.Resize(, 2).ClearContents
        Application.EnableEvents = True
    End If
End Sub

Merhaba Korhan bey ilginiz ve alakanız için teşekkür ederim ama ben pek excel'i bilmiyorum bu formülü nasıl bir işlem yapacağım ?

 

[Korhan Ayhan]

Sayfa ismi üzerinde sağ tıklayıp KOD GÖRÜNTÜLE dedikten sonra açılan beyaz pencereye uygulayınız.

 

[Korhan Ayhan]

Sanırım siz formülle çözüm istiyorsunuz..

=EĞER(E15="";"";EĞER(MOD(E15;8)=0;E15/8;"8'in katlarını girmelisiniz!"))

 

[ESES1989]

Sayfa ismi üzerinde sağ tıklayıp KOD GÖRÜNTÜLE dedikten sonra açılan beyaz pencereye uygulayınız.

ekteki hatayı veriyor ?

 

[ESES1989]

ekteki hatayı veriyor ?

Korhan bey çok teşekkür ederim 2.göndermiş olduğunuz formül tam istediğim gibi oldu tekrar teşekkür eder iyi günler iyi çalışmalar dilerim.

 

[Korhan Ayhan]

Dosyanız kodu uyguladıktan sonra makro kodu içeren bir dosya oluyor. O hata dosyayı kayıt ederken "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt etmediğiniz için geliyor. Bahsettiğim şekilde kayıt ederseniz sorun yaşamazsınız.

Ama siz yine de makrolu çözümü görmezden gelebilirsiniz.

 

[ESES1989]

Dosyanız kodu uyguladıktan sonra makro kodu içeren bir dosya oluyor. O hata dosyayı kayıt ederken "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt etmediğiniz için geliyor. Bahsettiğim şekilde kayıt ederseniz sorun yaşamazsınız.

Ama siz yine de makrolu çözümü görmezden gelebilirsiniz.

İlgi ve alakanız için tekrar teşekkür ederim iyi günler iyi çalışmalar dilerim.