Soru BİR SATIRDA YANYANA KAÇ ADET X YİNELENEN VAR

[ibrahimyalcin]

MERHABA ,
EKTEKİ DOSYADA HER BİR SATIRDA YANYANA KAÇ ADET X YİNELENİYOR ONU BULMAM LAZIM YARDIMLARINIZI RICA EDERIM ?
ÖRNEĞİN ; BİR SATIRDA 1 KERE 5 ADET YANYANA "X" ATIYORUM 2 ADET 10 TANE " X" YANYANA GİBİ BOŞ BİR KAÇ HÜCREYE YAZDIRMAK İSTİYORUM

 

[Seceren]

= UZUNLUK(A1)

 

[ibrahimyalcin]

Şifreyi Kaldırdım

 

[Seceren]

Soruyu da değiştirdin!? Dosyayı zaten göremiyorum.

 

[ibrahimyalcin]

= UZUNLUK(A1)

Üstat soruma çözüm olmadı verdiğin formül

Ben satırda kaçtane yanyana kaç defa x yinelenmiş onu bulmam lazım

 

[ibrahimyalcin]

Pardon şifreliydi kaldırdım dosyayı tekrar ekledim

 

[ibrahimyalcin]

Şifreyi Kaldırdım

 

[Korhan Ayhan]

Alttaki kullanıcı tanımlı fonksiyonu deneyiniz.

Hücrede kullanım şekli; =YANYANA_SAY(H4:BK4;"X")

Option Explicit

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

 

[ibrahimyalcin]

Alttaki kullanıcı tanımlı fonksiyonu deneyiniz.

Hücrede kullanım şekli; =YANYANA_SAY(H4:BK4;"X")

Option Explicit

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

HOCAM YAPTIM BL5 HÜCRESİNE ÖNCE HESAPLAMADI DEĞER SIFIR VERDİ ARDINDAN KAPATIP AÇTIM DÖNGÜSEL BAŞVURU VAR DİYOR

 

[ibrahimyalcin]

Alttaki kullanıcı tanımlı fonksiyonu deneyiniz.

Hücrede kullanım şekli; =YANYANA_SAY(H4:BK4;"X")

Option Explicit

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

2010 EXCELDE YAPTIM OLDU HOCAM SIMDILIK TESEKKUR EDERIM

 

[ibrahimyalcin]

Alttaki kullanıcı tanımlı fonksiyonu deneyiniz.

Hücrede kullanım şekli; =YANYANA_SAY(H4:BK4;"X")

Option Explicit

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

SAYIN HOCAM YAN SÜTUNA DA HÜCRE İCİNDE RAP YAZANLARI SAYDIRMAK İSTERSEM
Function YANYANA_SAY(Alan As Range, Optional Kriter As String = "RAP")
Dim RAP As Integer, Say As Integer, Maksimum As Integer

Application.Volatile True

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

YANYANA_SAY = Maksimum
End Function

X LERİ RAP İLE DEĞİŞTİRDİM AMA DİĞER MAKRODA BOZULDU ONU NASIL YAPABİLİRİM

 

[ibrahimyalcin]

BULDUM SANIRIM

Function YANYANA_SAY(Alan As Range, Optional Kriter As String = "X")
X RAP DİYE DEĞİŞTİRDİM VERDİ

 

[ibrahimyalcin]

YOK BECEREMEDİM SANIRIM

 

[ibrahimyalcin]

YOK BECEREMEDİM SANIRIM

Option Explicit

Function YANYANA_SAY_R(Alan As Range, Optional Kriter As String = "RAP")
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_R = Maksimum
End Function


BÖYLE OLDU

 

[YUSUF44]

SAYIN HOCAM YAN SÜTUNA DA HÜCRE İCİNDE RAP YAZANLARI SAYDIRMAK İSTERSEM
Function YANYANA_SAY(Alan As Range, Optional Kriter As String = "RAP")
Dim RAP As Integer, Say As Integer, Maksimum As Integer

Application.Volatile True

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

YANYANA_SAY = Maksimum
End Function

X LERİ RAP İLE DEĞİŞTİRDİM AMA DİĞER MAKRODA BOZULDU ONU NASIL YAPABİLİRİM

Bunun için makroyu değiştirmenize gerek yok. Formülde RAP kullanmanız gerekir:

[B]=YANYANA_SAY(H4:BK4;"RAP")[/B]