Içeren formül

[resolve45]

İyi çalışmalar, Arakadaşlar satırların içeriğinde sadece u veya sadece k veya ikisi "u-k" geçiyorsa HT yazsın eğer geçmiyorsa VEYA 1 ve birden fazla hücre boş isede fu ve k haricinde başka harf rakam var ise Boş Yazsın Örnek aşağıdaki gibi


A B C D E Formül Sonucu Sonuç olarak

1) u k u k k =formül HT Yazması lazım
2) k k k k =formül Boş Kalacak
3) u k u k d =formül Boş kalacak
4) u u u u u =formül Ht yazması Lazım
5) u k u k k =formül HT yazması lazım

 

[sakman26]

selam,
"satırların içeriğinde" ifadesinden
kaç sütun var.
bir sütunda kaç satır var.
Bu "HT" nereye yazılacak.

Sonradan ilave Not :
mesajınıdaki örnek olarak ABCDE kolonlarına 5 satır olarak değer yazılmış ve F kolonunda da sonucu hesaplanmış örnek ektedir.

link : http://s6.dosya.tc/server7/ukl5wb/oRnek11.xlsx.html
kullanılan formül :
F2 hücresi için

=EĞER(BOŞLUKSAY(A2:E2)>0;"";EĞER(YERİNEKOY(YERİNEKOY(A2&B2&C2&D2&E2;"u";"");"k";"")<>"";"";"HT"))

Örnekten farklı ise , en güzeli örnek dosya ekleyin , değerlendirme yapılacak alanı da belirtin derim.

 

[bzace]

Merhaba,

Arakadaşlar satırların içeriğinde sadece u veya sadece k veya ikisi "u-k" geçiyorsa HT yazsın

Bu kısımda bunu demişsiniz ama

2) k k k k =formül Boş Kalacak

bu kısımda da boş kalsın demişsiniz ?
Bu nasıl olacak ?

Sayın Sakman26'nın formülüne alternatif;

=EĞER(BOŞLUKSAY(A1:E1)>0;"";
  METNEÇEVİR(MAK(EĞER(ESAYIYSA(MBUL(A1:E1;
    {"u"\"k"};1));1;));"""HT"";;"" """))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIT+ENTER ile tamamlayınız.[/COLOR]

Saygılar,
Şeşen

 

[resolve45]

Teşekkür ederim arkadaşlar çok sağolun iki formülde çalışıyor elinize sağlık

 

[coco_616]

hücre karakterlerini makroyla gösterme

meraba arkadaşlar
şimdi hücre içindeki karakterlerin bulunup eşleştirilmesi ile ilgili bi makro var şöyleki ;

Sub RoundedRectangle1_Click()
Dim i As Long
On Error Resume Next
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "D").End(3).Row
If Cells(i, "D") Like "*SU ÜRÜN MÜDÜR YRD*" Then Cells(i, "J") = 1
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..."
End Sub

burada örneğin SU ÜRÜN MÜDÜR YRD içeen hücreyi gördüğünde onun karşısına 1 yazıyor ama bunun gibi 203 tane veri var , her karakterde makroyu değiştirmek istemiyorum bunun için kısa bi yol varmıdır acaba.

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Örnek belge olmayınca açıklığa kavuşması gereken hususların olması da kaçınılmaz.

-- Eşleşme olduğunda yine J sütununa mı 1 yazılacak acaba?
-- SU ÜRÜN MÜ .... gibi verilerin sayfadaki konumu nedir, hangi sütunda, hangi satırdan itibaren listelenmiş halde?
-- Daha önce J sütununda bir önceki arama sonucunda 1 yazılmış değer varsa, ikinci veri için arama yapıldığında
bu da D sütunundaki hücrede varsa, 1 sayısı 1+1 = 2 'mi olacak yoksa hep 1 mi olacak?
gibi belirsizlikler var.

Bence sorunuzu, cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre hazırlanmış bir örnek belge ile desteklemelisiniz.
.

 

[Ömer BARAN]

Merhaba.

Anlaşılan örnek belge yüklemeyeceksiniz.

-- Arama yapılacak alanın D2 hücresinden itibaren D sütununda olduğu,
-- Aranacak verilerin E2 hücresinden itibaren E sütununda olduğu,
-- Arama sonuçlarından bir tanesinin sonucu olumlu ise J sütununa 1 yazılmak istendiği,
varsayımlarına göre aşağıdaki kod'u kullanabilirsiniz.
.

[FONT="Arial Narrow"]Sub RoundedRectangle1_Click()
Set WF = Application.WorksheetFunction: Application.ScreenUpdating = False: Range("J:J").ClearContents
    For dsat = 2 To Cells(Rows.Count, "D").End(3).Row
        If Cells(dsat, "J") = "" And Cells(dsat, "D") <> "" Then
        For aranan = 2 To Cells(Rows.Count, "E").End(3).Row
            If WF.CountIf(Cells(dsat, "D"), "*" & Cells(aranan, "E") & "*") > 0 Then Cells(dsat, "J") = 1
        Next: End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..."
End Sub[/FONT]