hücredeki büyük harfleri ayırma

[security]

merhaba

örnek:

123456A BCdef7 89asli DRFGTG256 4545  145swd TTTb fgGRF

sorunum a1 hücresindeki sayı ve rakamlardan oluşan metni sadece büyük harfleri b1 hücresine yazdırmak yardımlarınız için tşk.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
metin = Range("A1")
For a = 1 To Len(metin)
    If Not IsNumeric(Mid(metin, a, 1)) And Mid(metin, a, 1) = UCase(Mid(metin, a, 1)) Then
        yeni = yeni & Mid(metin, a, 1)
    End If
Next
yeni = Replace(yeni, "ı", "")
Range("B1") = yeni 'Boşluklar yazılacaksa
Range("C1") = Replace(yeni, " ", "") 'Boşluklar yazılmayacaksa
End Sub

 

[security]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
metin = Range("A1")
For a = 1 To Len(metin)
    If Not IsNumeric(Mid(metin, a, 1)) And Mid(metin, a, 1) = UCase(Mid(metin, a, 1)) Then
        yeni = yeni & Mid(metin, a, 1)
    End If
Next
yeni = Replace(yeni, "ı", "")
Range("B1") = yeni 'Boşluklar yazılacaksa
Range("C1") = Replace(yeni, " ", "") 'Boşluklar yazılmayacaksa
End Sub

sayın mucit77 çok tşk ederim peki bu işlemi formül ile yapabilirmiyiz.

 

[Korhan Ayhan]

Deneyiniz.

Hücrede ne varsa olduğu gibi ayrıştırmak için;

=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"a";"");"b";"");"c";"");"ç";"");"d";"");"e";"");"f";"");"g";"");"ğ";"");"h";"");"ı";"");"i";"");"j";"");"k";"");"l";"");"m";"");"n";"");"o";"");"ö";"");"p";"");"r";"");"s";"");"ş";"");"t";"");"u";"");"ü";"");"v";"");"y";"");"z";"");"x";"");"q";"");"w";"")

Fazla boşlukları kaldırmak için;

=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"a";"");"b";"");"c";"");"ç";"");"d";"");"e";"");"f";"");"g";"");"ğ";"");"h";"");"ı";"");"i";"");"j";"");"k";"");"l";"");"m";"");"n";"");"o";"");"ö";"");"p";"");"r";"");"s";"");"ş";"");"t";"");"u";"");"ü";"");"v";"");"y";"");"z";"");"x";"");"q";"");"w";""))

Hiç boşluk olmaması için;

=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"a";"");"b";"");"c";"");"ç";"");"d";"");"e";"");"f";"");"g";"");"ğ";"");"h";"");"ı";"");"i";"");"j";"");"k";"");"l";"");"m";"");"n";"");"o";"");"ö";"");"p";"");"r";"");"s";"");"ş";"");"t";"");"u";"");"ü";"");"v";"");"y";"");"z";"");"x";"");"q";"");"w";"");" ";"")

 

[Erdem Akdemir]

Merhaba,

Alternatif olarak tag'daki KTF ile yapabilirsiniz.

Function BÜYÜKAL(alan As Range)
Application.Volatile
Dim deg As Boolean
For i = 1 To Len(Range("a1"))
If Not IsNumeric(Mid(Range("a1"), i, 1)) Then
a = Mid(Range("a1"), i, 1)
b = UCase(Mid(Range("a1"), i, 1))
deg = StrComp(a, b)
If Not deg Then
sonuc = sonuc & Mid(Range("a1"), i, 1)
End If
End If
Next
sonuc = Replace(sonuc, " ", "")
BÜYÜKAL = sonuc
End Function

Kullanımı

=BÜYÜKAL(A1)

 

[Korhan Ayhan]

Alternatif KTF;

=BÜYÜK_HARFLER(A1)

Function BÜYÜK_HARFLER(Veri As Range)
    Application.Volatile True
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^A-ZÇĞİÖŞÜ]"
        BÜYÜK_HARFLER = .Replace(Veri.Value, "")
    End With
End Function

 

[security]

MERHABA
SN: Korhan Ayhan - SN:kuvari çok tşk ederim. vermiş olduğunuz kodlar işimi gördü.
korhan hocam kırp formulu çalışmadı.

=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"a";"");"b";"");"c";"");"ç";"");"d";"");"e";"");"f";"");"g";"");"ğ";"");"h";"");"ı";"");"i";"");"j";"");"k";"");"l";"");"m";"");"n";"");"o";"");"ö";"");"p";"");"r";"");"s";"");"ş";"");"t";"");"u";"");"ü";"");"v";"");"y";"");"z";"");"x";"");"q";"");"w";""))

 

[bzace]

Merhabalar,
Alternatif;

[SIZE="3"]Function AYIR(jilly As String) As String
Dim j As Integer
For j = 1 To Len(jilly)
  If InStr(1, "ABCÇDEFGHIİJKLMNOÖPRSŞTUÜVYZXW", Mid(jilly, j, 1)) <> 0 Then _
  AYIR = AYIR & Mid(jilly, j, 1)
Next
End Function[/SIZE]

=AYIR(A1)

Not: Büyük harfleri eksik yazmış olabilirim kontrol edersiniz.

Hay marja!
Saygılar,