Büyük Harfli Hücreleri Filtreleme

[yasinkaratas0359]

Merhabalar;

Excel Satırlarındaki Sadece Büyük Harf İle Yazılan Hücreleri Filtrelemek İstiyorum;

Yardımlarınız İçin Şimdiden Teşekkürler;

Filtre

a

A

a

a

A

 

[pitchoute]

Herhangi biri yardımcı olacaktır.

=VE(TAMAM(A1;BÜYÜKHARF(A1));A1<>"")
=VE(A1=BÜYÜKHARF(A1);A1<>"")
=EĞER(VE(A1<>"";A1=BÜYÜKHARF(A1));DOĞRU;YANLIŞ)

Vba olarak alternatif çözüm;

Sub BuyukHarfleriFiltrele()
    Dim rng As Range
    Dim alan As Range
    Dim son_satir As Long
    son_satir = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & son_satir)
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    rng.Parent.Range("A1").AutoFilter
    Range("Z1:Z" & son_satir).Formula = "=AND(EXACT(A1,UPPER(A1)),A1<>"""")"
    ActiveSheet.Range("A1").AutoFilter Field:=26, Criteria1:="TRUE"
    Range("Z1:Z" & son_satir).Value = Range("Z1:Z" & son_satir).Value
End Sub

 

[yasinkaratas0359]

Teşekkür Ederim;

Başarılı Olamadım Büyük Harfle Yazılı Olanları Seçip Düzeltmek İstiyorum Bu Şekilde Bin Civarı Satır Mevcut

Yardımlarınız İçin Şimdiden Teşekkürler;

Filtre

aaaaaaaa

AAAAAAAAAAAAAA

AAAAAAAA

aaaaa

 

[pitchoute]

Hocam tam olarak nasıl olmasını istiyorsunuz? Büyük harflerin küçük harflere dönüştürülmesini mi talep ediyorsunuz?