Find komutu büyük küçük harf duyarlı mı?

[kst]

Merhaba ilk mesajım tanışma bölümü göremedim buraya yazıyorum. Excel Vba ile birşey yapmak istiyorum sitenizden de faydalanıyorum.Ancak tam oldu derken başka bir sorun çıkıyor
Bir range içindeki iki harfli yazıyı (mesela AA, aa, Aa) arayıp, bulursa başka sayfadaki aynı range'in sayısını bir artırmasını istiyorum. Range.Find ile buluyorum ama gelen range ile diğer sayfaya aktaramadım, bende row ve column numarasını alıp diğer sayfadaki aynı range değerini artırabildim.
Şimdi Find(text) ile (mesela Find("AA")) bulunca büyük/küçük harf duyarlı oluyor. Ancak bu iki harfli yazılar birden çok olduğu için s(i) şeklinde dizi tanıtıp Find(s(i)) yapıyorum. Böyle yapınca eğer "AA" arıyorsam "aa" şeklinde de olsa bulmuş oluyor yani Find komutunun harf duyarlılığı kaybolmuş oluyor. Sebebi ve çözümü hakkında fikir verebilirseniz sevinirim. Örnek kod aşağıdaki gibidir.
Teşekkürler...

Sub aksam_Düğme7_Tıklat()
Dim i As Long
Dim s(3) As String
s(0) = "xx"
s(1) = "aa"
s(2) = "BB"
s(3) = "CC"
    ' Get search range
    Dim rgSearch As Range
    Set rgSearch = Range("A1:B9")
Dim a As Integer
Dim b As Integer
Dim cell As Range
   For i = 1 To 3
2     
    Set cell = rgSearch.Find(s(i))
    ' If not found then exit
    If cell Is Nothing Then
     i = i + 1   
  GoTo 2
   End If
    ' Store first cell address
    Dim firstCellAddress As String
    firstCellAddress = cell.Address
    ' Find all cells containing Elli
    Do
    a = cell.Row
    b = cell.Column
        Debug.Print "Found: " & a
        Debug.Print "Found: " & b
        's(i) adında sayfadaki  range değerini artırır
         Worksheets(s(i)).Cells(a, b) = Worksheets(s(i)).Cells(a, b) + 1
        Set cell = rgSearch.FindNext(cell)
    Loop While firstCellAddress <> cell.Address
Next i
End Sub

 

[Orion1]

Matchcase = true ise büyük küçük harfe duyarlı , değilse duyarsız oluyor.
Linkteki dosyayı inceleyiniz.

DOSYAYI INDIR

Sub arabul_59()

Dim k As Range, sonsat As Long, sat As Long

sat = 2

Range("D2:D" & Rows.Count).ClearContents

sonsat = Cells(Rows.Count, "A").End(xlUp).Row

Set k = Range("A2:A" & sonsat).Find("AA", , xlValues, xlWhole, MatchCase:=True)

If Not k Is Nothing Then

    adrs = k.Address

    Do

        Cells(sat, "D").Value = k.Value

        sat = sat + 1

        Set k = Range("A2:A" & sonsat).FindNext(k)

    Loop While Not k Is Nothing And k.Address <> adrs

End If

MsgBox "bitti"

 

[kst]

Teşekkürler, Find komutu default olarak duyarlı sanıyodum, demek böyle birşey de varmış. Sorun çözüldü.

 

[Orion1]

Teşekkürler, Find komutu default olarak duyarlı sanıyodum, demek böyle birşey de varmış. Sorun çözüldü.

Default olarak duyarsızdır.

 

[ptcsite]

Teşekkürler bende bunu arıyordum Büyük harf I tanımıyordu
MatchCase:=True
ile hallettim