Büyük Küçük Harf Duyarlılığı

[ozbinici07]

Aşağıdaki Kod İle Açılan Listboxda Küçük Büyük Karakter Kontrolü var Büyük Küçük Kelime Duyarlılığını Nasıl Kapatırım. ve ayrıca sadece Gelen Sayfada Arama yapıyor ben gelen ve giden sayfada arama yapmak istiyorum mümkünmü ?

ListBox Kodu

Private Sub Arama_Click()
Set bul = Sheets("GELEN").Range("A:AB").Find(Arama.Column(0), LookAt:=xlWhole)
If Not bul Is Nothing Then
sirano = Arama.Column(0)
With Gelen
End With
End If
End Sub

Userform Kodu

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call arabul
TextBox1 = ""
End Sub

Private Sub arabul()
If TextBox1 = "" Then Exit Sub
say = WorksheetFunction.CountIf(Sheets("GELEN").Range("C:C"), TextBox1)
If say > 0 Then
MsgBox "Kayıtlar Bulun" & Chr(100) & "u", vbExclamation
son = Sheets("GELEN").Cells(Rows.Count, 1).End(3).Row
ReDim dizi(1 To 8, 1 To 1)
For Each veri In Sheets("GELEN").Range("C4:C" & son)
If CStr(veri.Value) = TextBox1 Then
x = x + 1
ReDim Preserve dizi(1 To 8, 1 To x)
dizi(1, x) = veri.Offset(0, -1).Value
dizi(2, x) = veri.Offset(0, 0).Value
dizi(3, x) = veri.Offset(0, 1).Value
dizi(4, x) = veri.Offset(0, 2).Value
dizi(5, x) = veri.Offset(0, 21).Value
dizi(6, x) = veri.Offset(0, 22).Value
dizi(7, x) = veri.Offset(0, 23).Value
dizi(8, x) = veri.Offset(0, 24).Value
End If
Next
Call form2
Else
End If
End Sub

 

[Muzaffer Ali]

Büyük küçük harf duyarlığını kaldırmak için kodlarınızın bulunduğu sayfanın en üst satırına aşağıdaki kodu yazın.

Option Compare Text

Diğer sorunuzu cevaplamak için örnek dosyanızı eklerseniz yardımcı olmaya çalışırız.

 

[ozbinici07]

Tek Bir Kodla İşimi Gördünüz Çok Teşekkür Ederim.Diğer Sorum İçinde Örnek Dosyayı Ekledim.


Ekli dosyayı görüntüle Örnek.xlsm

Büyük küçük harf duyarlığını kaldırmak için kodlarınızın bulunduğu sayfanın en üst satırına aşağıdaki kodu yazın.

Option Compare Text

Diğer sorunuzu cevaplamak için örnek dosyanızı eklerseniz yardımcı olmaya çalışırız.

 

[Muzaffer Ali]

Panel adlı formun kodlarını silin aşağıdaki kodları kopyalayın.

Option Compare Text

Dim x

Private Sub CommandButton1_Click()
Application.Visible = True
Gelen.Show
End Sub

Private Sub CommandButton2_Click()
Application.Visible = True
Giden.Show
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ReDim dizi(1 To 8, 1 To 1)
   Call arabul("GELEN")
   Call arabul("GİDEN")
   Call form2
    TextBox1 = ""
End Sub

Private Sub arabul(SayfaAdi As String)
    If TextBox1 = "" Then Exit Sub
    say = WorksheetFunction.CountIf(Sheets(SayfaAdi).Range("C:C"), TextBox1)
    If say > 0 Then
        MsgBox "Kayıtlar Bulun" & Chr(100) & "u", vbExclamation
        son = Sheets(SayfaAdi).Cells(Rows.Count, 1).End(3).Row
        
        For Each veri In Sheets(SayfaAdi).Range("C4:C" & son)
            If CStr(veri.Value) = TextBox1 Then
                x = x + 1
                ReDim Preserve dizi(1 To 8, 1 To x)
                dizi(1, x) = veri.Offset(0, -1).Value
                dizi(2, x) = veri.Offset(0, 0).Value
                dizi(3, x) = veri.Offset(0, 1).Value
                dizi(4, x) = veri.Offset(0, 2).Value
                dizi(5, x) = veri.Offset(0, 21).Value
                dizi(6, x) = veri.Offset(0, 22).Value
                dizi(7, x) = veri.Offset(0, 23).Value
                dizi(8, x) = veri.Offset(0, 24).Value
            End If
        Next
        
    Else
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1.TabIndex = 0
End Sub

 

[ozbinici07]

Çok Teşekkür Ederim Yardımlarınız İçin Minnettarım.

Panel adlı formun kodlarını silin aşağıdaki kodları kopyalayın.

Option Compare Text

Dim x

Private Sub CommandButton1_Click()
Application.Visible = True
Gelen.Show
End Sub

Private Sub CommandButton2_Click()
Application.Visible = True
Giden.Show
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ReDim dizi(1 To 8, 1 To 1)
   Call arabul("GELEN")
   Call arabul("GİDEN")
   Call form2
    TextBox1 = ""
End Sub

Private Sub arabul(SayfaAdi As String)
    If TextBox1 = "" Then Exit Sub
    say = WorksheetFunction.CountIf(Sheets(SayfaAdi).Range("C:C"), TextBox1)
    If say > 0 Then
        MsgBox "Kayıtlar Bulun" & Chr(100) & "u", vbExclamation
        son = Sheets(SayfaAdi).Cells(Rows.Count, 1).End(3).Row
        
        For Each veri In Sheets(SayfaAdi).Range("C4:C" & son)
            If CStr(veri.Value) = TextBox1 Then
                x = x + 1
                ReDim Preserve dizi(1 To 8, 1 To x)
                dizi(1, x) = veri.Offset(0, -1).Value
                dizi(2, x) = veri.Offset(0, 0).Value
                dizi(3, x) = veri.Offset(0, 1).Value
                dizi(4, x) = veri.Offset(0, 2).Value
                dizi(5, x) = veri.Offset(0, 21).Value
                dizi(6, x) = veri.Offset(0, 22).Value
                dizi(7, x) = veri.Offset(0, 23).Value
                dizi(8, x) = veri.Offset(0, 24).Value
            End If
        Next
        
    Else
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1.TabIndex = 0
End Sub