Büyük harfe duyarlı formül

[ferhatgurbuz]

Arkadaşlar kolay gelsin. E4 hücresinde aşağıdaki gibi yazı var.

"AYSEL TAN;suat babacan;şakir pak"

daha önce arkadaşlara böyle bir formül yaptırmıştım.

=EĞER(ESAYIYSA(MBUL("TARIK KURT";E4));"Tarık KURT";EĞER(ESAYIYSA(MBUL("ŞAKİR PAK;"Şakir PAK";EĞER(ESAYIYSA(MBUL("MEHMET TAMER";E4));"Mehmet TAMER";EĞER(ESAYIYSA(MBUL("SUAT BABACAN";E4));"Suat BABACAN";EĞER(ESAYIYSA(MBUL("AYSEL TAN";E4));"Aysel TAN";EĞER(ESAYIYSA(MBUL("FİKRİ BULDUK";E4));"Fikri BULDUK";""))))))

Benim istediğim şudur. Yukarıdaki metinde geçen BÜYÜK HARFLE YAZILMIŞ KİŞİ ADINI M4 HÜCRESİNE YAZMASI.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar A sütunundaki büyük harfleri B sütununa aktarır, siz kendinize göre uyarlayınız.

Sub ayir()
For i = 1 To [a65536].End(3).Row
    For j = 1 To Len(Cells(i, "A"))
        If (Asc(Mid(Cells(i, "A"), j, 1)) > 64 And Asc(Mid(Cells(i, "A"), j, 1)) < 91) Or _
            Mid(Cells(i, "A"), j, 1) = "Ç" Or _
            Mid(Cells(i, "A"), j, 1) = "Ğ" Or _
            Mid(Cells(i, "A"), j, 1) = "İ" Or _
            Mid(Cells(i, "A"), j, 1) = "Ö" Or _
            Mid(Cells(i, "A"), j, 1) = "Ş" Or _
            Mid(Cells(i, "A"), j, 1) = "Ü" Then
        Cells(i, "B") = Cells(i, "B") & "  " & Mid(Cells(i, "A"), j, 1)
        End If
        Cells(i, "B") = Trim(Cells(i, "B"))
    Next j
Next i
End Sub

 

[ferhatgurbuz]

Ya ben uyarlamayı beceremedim. Benim metin aradığım sutun E, bulunan veriyi yazdırmak istediğim sutun ise J sutunu nereleri değiştirmem gerekecek.

 

[Levent Menteşoğlu]

Regexp ile alternatif bir çözüm olarak aşağıdaki kodu deneyin. E4 hücresindeki veriden sadece büyük harf yazan kelimeleri seçerek M4 hücresine yazacaktır.

Sub buyukharfal()
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^A-Z\Ç\Ğ\İ\Ö\Ş\Ü ]"
deg.Global = True
[m4] = deg.Replace([e4], "")
Set deg = Nothing
End Sub

 

[Necdet]

Merhaba,

Burada uygun yanıt Levent beyin yanıtı. Siz onu kullanın.

 

[ferhatgurbuz]

Yalnız şöyle bir sorun var. Bana sütün bazınla bir listeleme lazım. Yani benim veriler E4 ten başlayış E1200 e kadar gidiyor.Yani E4 hücresindeki işlemi diğer hücrelerede uygulaması lazım bunun için bir yöntem varmı

 

[Necdet]

Merhaba,

Aşağıdaki şekilde kullanabilirsiniz.

Sub buyukharfal()
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^A-Z\Ç\Ğ\İ\Ö\Ş\Ü ]"
    deg.Global = True
For i = 4 To [E65536].End(3).Row
    Cells(i, "J") = Trim(deg.Replace(Cells(i, "E"), ""))
Next i
Set deg = Nothing
End Sub

 

[ferhatgurbuz]

Çok teşekkkür ederim. Allah razı olsun. hayırlı geçeler iyi çalışmalar.

 

[Ömer]

Merhaba

Levent bey, güzel bir çözüm. Tebrik ederim.

.

 

[Levent Menteşoğlu]

Merhaba

Levent bey, güzel bir çözüm. Tebrik ederim.

.

Teşekkür ederim Ömer bey. Regexp, bu tür cümleden ayırma işlemlerinde çok pratik çözümler üretilmesine yarayan güzel bir araç. Konuya meraklı üyelerimizin bu araç üzerine eğilmelerini öneririm.