- Katılım
- 8 Aralık 2017
- Mesajlar
- 86
- Altın Üyelik Bitiş Tarihi
- 08/12/2018
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
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