D ve E stunlarındaki değerlerin A ve B stunlarında kaç adet aynı satırda birlikte old

[badem18]

D ve E stunlarındaki değerlerin A ve B stunlarında kaç adet aynı satırda birlikte olduklarını bulmak istiyorum
lütfen yardım

 

[Merhum İdris SERDAR]

.

COUNTIFS = ÇOKEĞERSAY

Yada

SUMPRODUCT = TOPLA.ÇARPIM

işlevlerini kullanabilirsiniz.

 

[tarhan822]

D ve E stunlarındaki değerlerin A ve B stunlarında kaç adet aynı satırda birlikte olduklarını bulmak istiyorum
lütfen yardım

ekteki dosyada çözüm

 

[Ömer BARAN]

Merhaba.

=TOPLA.ÇARPIM(($A$2:$A$33=D2)*($B$2:$B$33=E2))

 

[badem18]

D ve E stunlarındaki değerlerin A ve B stunlarında kaç adet aynı satırda birlikte olduklarını bulmak istiyorum dedim
=TOPLA.ÇARPIM(($A$2:$A$33=D2)*($B$2:$B$33=E2)) Ömer BARAN
=TOPLA.ÇARPIM(($A:$A=D2)*($B:$B=E2)) tarhan822
İdris SERDAR
hocalar "MAŞALLAH" şıp diye sorunumu yıldırım hızıyla çözdüler hocalara sonsuz teşekkürler beden ve ruhlarına sağlık

 

[badem18]

kırmızı renkli karakterin hücre içinde soldan kaçıncı sırada olduğunu bulma

kırmızı renkli karakterin hücre içinde soldan kaçıncı sırada olduğunu bulmak istiyorum

1,2,3,4,5,6,7,8

kırmızı renkli karakterin hücre içinde soldan kaçıncı sırada olduğunu bulmak istiyorum

hocalarım bir haylidir yardım bekliyorum lğtfen yardım

 

[Ömer BARAN]

kırmızı renkli karakterin hücre içinde soldan kaçıncı sırada olduğunu bulmak istiyorum

1,2,3,4,5,6,7,8

kırmızı renkli karakterin hücre içinde soldan kaçıncı sırada olduğunu bulmak istiyorum

hocalarım bir haylidir yardım bekliyorum lğtfen yardım

Aşağıdaki kod ihtiyacınızı görecektir.
.

[B]Sub KIRMIZI_BUL()[/B]
For satır = 2 To Cells(Rows.Count, "A").End(3).Row
    For k = 1 To Len(Cells(satır, "A"))
        If Cells(satır, "A").Characters(Start:=k, Length:=1).Font.ColorIndex = 3 Then
            Cells(satır, "B") = k: Exit For: End If
    Next
Next
MsgBox "İşlem tamamlandı...", vbInformation, "..:: Ö.BARAN ::.."
[B]End Sub[/B]

 

[tahsinanarat]

Birden fazla renk var ise

Aşağıdaki kod ihtiyacınızı görecektir.
.

[B]Sub KIRMIZI_BUL()[/B]
For satır = 2 To Cells(Rows.Count, "A").End(3).Row
    For k = 1 To Len(Cells(satır, "A"))
        If Cells(satır, "A").Characters(Start:=k, Length:=1).Font.ColorIndex = 3 Then
            Cells(satır, "B") = k: Exit For: End If
    Next
Next
MsgBox "İşlem tamamlandı...", vbInformation, "..:: Ö.BARAN ::.."
[B]End Sub[/B]

Sn. Ömer Bey öncelikle elinize sağlık, aynı hücre içinde birden fazla renk var ise b sütununa kaçıncı olduklarını (3,6,9 vb) yazdırılabilir mi?

 

[Ömer BARAN]

Sn. Ömer Bey öncelikle elinize sağlık, aynı hücre içinde birden fazla renk var ise b sütununa kaçıncı olduklarını (3,6,9 vb) yazdırılabilir mi?

Aşağıdaki gibi olabilir.
.

[B]Sub KIRMIZI_BUL()[/B]
For satır = 2 To Cells(Rows.Count, "A").End(3).Row
    For k = 1 To Len(Cells(satır, "A"))
        If Cells(satır, "A").Characters(Start:=k, Length:=1).Font.ColorIndex = 3 Then
            metin = metin & ", " & k
        End If
    Next
If metin = "" Then GoTo 10
        Cells(satır, "B") = "" & Mid(metin, 3, Len(metin) - 2)
        Cells(satır, "B").NumberFormat = "@": metin = ""
10: Next
MsgBox "İşlem tamamlandı...", vbInformation, "..:: Ö.BARAN ::.."
[B]End Sub[/B]

 

[tahsinanarat]

Sn. Ömer hocam teşekkür ederim, elinize sağlık.

 

[Ömer BARAN]

Sn. Ömer hocam teşekkür ederim, elinize sağlık.

Eyvallah.
İyi günler dilerim.
.