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...
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...
Kod:
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