İlk kez olduktan sonra kaç kez daha %1 ve üstünde artış göstermiş

[uyelik.ben]

Merhaba,
B2 hücresinde yer alan hisse senedinin, 2 nolu satırda bir önceki günkü fiyatına oranla ne kadar değişim gösterdiğini belirten % hesaplamaları bulunmaktadır.

Ekli dosyadaki sorum adımlarım aşağıda sıralanmıştır.
1) B2 Hücresinde yer alan hisse 11.05.2018 tarihinden itibaren(D kolonu) ilk %1 değişim olduktan sonra kaç gün daha %1 ve üstü değişim göstermiş. Örnek olarak 14.05.2018 tarihinde ,%9,3 değişmiş ancak sonraki gün -%3,2 değiştiği için beni ilgilendirmiyor. Ancak 16.05.2018 tarihinde %2,2 değiştikten sonraki 3 gün boyunca daha %2,2 değişmiş. Bana bu değişimin adeti gerekiyor., yani 3.
Bu değerleri verebilecek bir formül veya makro konusunda yardımınızı rica ederim.

 

[uyelik.ben]

Function YANYANA_SAY(Alan As Range, Optional Kriter As String = "X")
Dim X As Integer, Say As Integer, Maksimum As Integer

Application.Volatile True

For X = Alan.Cells(1, 1).Column - Alan.Column + 1 To Alan.Cells(1, Alan.Columns.Count).Column Step 2
If Alan.Cells(1, X) = Kriter Then
Say = Say + 1
If Say > Maksimum Then Maksimum = Say
Else
Say = 0
End If
Next

YANYANA_SAY = Maksimum
End Function

Forumda yan yana say için yukarıdaki makroyu buldum. Bu makroda nasıl bir düzenleme yapabilirim. ? Bu makroyu rakamlara uyarlamam ve her satır için ayrı ayrı çalışacak şekilde yapmam gerekiyor ekteki dosyada olduğu gibi.

 

[uyelik.ben]

Makroyu ">=0,01" vb denemeler yaparak çalıştıramadım. Yardımcı olabilecek var mı?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Kullanımı; =YANYANA_SAY(D2:AF2;">0")

Option Explicit

Function YANYANA_SAY(Alan As Range, Kriter As Variant)
    Dim Veri As Range, Say As Integer, Maksimum As Integer
    
    Application.Volatile True
    
    For Each Veri In Alan
        If Application.Evaluate(Replace(Veri.Value, ",", ".") & Replace(Kriter, ",", ".")) Then
            Say = Say + 1
            If Say > Maksimum Then Maksimum = Say
        Else
            Say = 0
        End If
    Next
    
    YANYANA_SAY = Maksimum
End Function

 

[uyelik.ben]

Aşağıdaki gibi deneyiniz.

Kullanımı; =YANYANA_SAY(D2:AF2;">0")

Option Explicit

Function YANYANA_SAY(Alan As Range, Kriter As Variant)
    Dim Veri As Range, Say As Integer, Maksimum As Integer
   
    Application.Volatile True
   
    For Each Veri In Alan
        If Application.Evaluate(Replace(Veri.Value, ",", ".") & Replace(Kriter, ",", ".")) Then
            Say = Say + 1
            If Say > Maksimum Then Maksimum = Say
        Else
            Say = 0
        End If
    Next
   
    YANYANA_SAY = Maksimum
End Function

Hocam merhaba, "" ile belirtilen yerlere kriter mi yazmam gerekiyor? Eğer öyleyse ne yazmalıyım ? Makro bu haliyle ilk %1 artış olduktan sonra yan yana kaç kez daha artış olmuş soruma cevap vermedi.

 

[uyelik.ben]

Korhan Hocam, ayrıca ben 0,01 , 0,02 vb olarak başka kriterlerde yapmak istiyorum. Bunun için makroda ve formülde hangi veriyi değiştirmem gerekiyor?

 

[Korhan Ayhan]

Fonksiyonun sonundaki kriter bölümünü kullanmanız gerekiyor.

Yüzde birden büyük eşit yan yana artışları saymak için örnek kullanım;

=YANYANA_SAY(D2:AF2;">=0,01")

 

[uyelik.ben]

Fonksiyonun sonundaki kriter bölümünü kullanmanız gerekiyor.

Yüzde birden büyük eşit yan yana artışları saymak için örnek kullanım;

=YANYANA_SAY(D2:AF2;">=0,01")

Hocam çalıştı, sadece şöyle bir problem var, belirlenen aralık için yan yana en fazla kaç tane varsa o bilgiyi getiriyor. Örnek olarak, eğer inceleme alanımda aynı anda 3 ve 4 tane farklı yerlerde yan yana 0,01 üstü olsun bana 4 tane olanı söylüyor. Bu kapsamda yeni bir sorum ortaya çıktı. Eğer arada boşluklar olmak üzere 4 farklı yerde 3'erli gruplar halinde 0,01 ve üstü hücreler olsun. Baktığın satırda 4 tane yan yana gelmiş grupvar diyebilecek bir kod mümkün mü?

 

[Korhan Ayhan]

Mümkün.

En az kaçarlı grup olacak?

 

[uyelik.ben]

Mümkün.

En az kaçarlı grup olacak?

Hocam en az 2 li gruplar halinde olmalı, en çoğu zaten ilgili makroda çalışıyor. Ben bir satır boyunca 20 kez en az 2 li gruplar halinde üstü üste artış olmuş sorusuna cevap arıyorum.

 

[uyelik.ben]

Korhan Hocam, ilave açıklama yapmam gerekir mi?

 

[Korhan Ayhan]

Peki diyelim ki satırda 4 adet peşpeşe 0.01 üstü ve sonrasında boşluk daha sonra tekrar 2 adet peşpeşe 0.01 üstü değer var.

Sonuçta kaç adet saymasını istiyorsunuz?

 

[Korhan Ayhan]

Deneyin bakalım istediğiniz sonucu verecek mi?

Fonksiyonu önceki mesajlarımda önerdiğim şekilde kullanacaksınız. Kullanımında bir değişiklik yoktur.

Option Explicit

Function YANYANA_SAY(Alan As Range, Kriter As Variant)
    Dim Veri As Range, Say As Integer, Adet As Integer
   
    Application.Volatile True
   
    For Each Veri In Alan
        If Application.Evaluate(Replace(Veri.Value, ",", ".") & Replace(Kriter, ",", ".")) Then
            Say = Say + 1
        Else
            If Say >= 2 Then Adet = Adet + 1
            Say = 0
        End If
    Next
   
    YANYANA_SAY = Adet
End Function

 

[uyelik.ben]

Deneyin bakalım istediğiniz sonucu verecek mi?

Fonksiyonu önceki mesajlarımda önerdiğim şekilde kullanacaksınız. Kullanımında bir değişiklik yoktur.

Option Explicit

Function YANYANA_SAY(Alan As Range, Kriter As Variant)
    Dim Veri As Range, Say As Integer, Adet As Integer
  
    Application.Volatile True
  
    For Each Veri In Alan
        If Application.Evaluate(Replace(Veri.Value, ",", ".") & Replace(Kriter, ",", ".")) Then
            Say = Say + 1
        Else
            If Say >= 2 Then Adet = Adet + 1
            Say = 0
        End If
    Next
  
    YANYANA_SAY = Adet
End Function

Hocam yukarıda yazdığınız makronun sarı dolgulu hücrede 31.05.2018 21.06.2018 tarih aralığında 3 sonucunu vermesi gerekirdi. Yani %1 ve üstü artış ilgili aralıkta en az 3 kez oluşmuş. Bir kez olduktan sonra kaç gün boyunca olduğunun bu makroda önemi yok. Grup sayısını vermesi yeterli. En az 2 gün en çok maks. Bu şekilde mümkün mü?

 

[Korhan Ayhan]

21.06.2018 hücresi boş olduğu için fonksiyonun hata vermesi gerekir. Siz nasıl 2 değerine ulaştınız?

Boş hücrelerde işlem yapmaması için koda küçük bir ekleme yaptım.

#13 nolu mesajımda ki fonksiyonu tekrar deneyiniz.

 

[uyelik.ben]

21.06.2018 hücresi boş olduğu için fonksiyonun hata vermesi gerekir. Siz nasıl 2 değerine ulaştınız?

Boş hücrelerde işlem yapmaması için koda küçük bir ekleme yaptım.

#13 nolu mesajımda ki fonksiyonu tekrar deneyiniz.

Hocam haklısını boş hücrelerde hata veriyor. Ekran alıntısında gönderdiğim analizde aralığıma boş hücreyi dahil etmedim, bu yüzden hata vermedi. Ama ilgili aralıkta 3 değerini vermesi gerekirdi onu alamıyorum.

 

[Korhan Ayhan]

Kodu revize ettim. Tekrar deneyiniz

 

[uyelik.ben]

Kodu revize ettim. Tekrar deneyiniz

Hocam kusura bakmayın ancak sormak zorundayım. Revize ettiğiniz kod nerede? Eski mesajlarınız da ki kodu revize edebiliyor musunuz? Oradan mı bakmalıyım ?

 

[Korhan Ayhan]

#13 nolu mesajdaki kodu revize ettim.

Bu durumu #15 nolu mesajımda da açıklamıştım. Sanırım gözünüzden kaçtı.

 

[uyelik.ben]

#13 nolu mesajdaki kodu revize ettim.

Bu durumu #15 nolu mesajımda da açıklamıştım. Sanırım gözünüzden kaçtı.

Hocam kusura bakmayın, mevcut mesajların revize edilebildiğini bilmiyordum. Kod tam olarak istediğim şekilde sonucu veriyor. Benimle 2 çalışan kod paylaşmış oldunuz. 1.si en çok kaç gün yükseldi ise o bilgiyi veriyor, diğer kod üst üste yükselen günlerin grup sayısını veriyor. Teşekkürler, elinize sağlık.