Mouse exit olayı hakkında...

E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Merhaba arkadaşlar. Mause exit olayında eklediğim kodlar ListBoxımda hataya neden oluyor.
Maus ile arama için, TextBoxlarıma tıklıyorum, ListBox'ıma tıklama yaparken tüm veriler kayboluyor.
Acaba sorun nedir çözemedim?

Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
TextBox2.Text = ListBox1.Column(1)
TextBox3.Text = ListBox1.Column(2)
TextBox4.Text = ListBox1.Column(3)
ComboBox1.Text = ListBox1.Column(4)
ComboBox2.Text = ListBox1.Column(5)
TextBox5.Text = ListBox1.Column(6)
TextBox6.Text = ListBox1.Column(7)
TextBox7.Text = ListBox1.Column(8)
ComboBox3.Text = ListBox1.Column(9)
ComboBox4.Text = ListBox1.Column(10)
TextBox8.Text = ListBox1.Column(11)
ComboBox5.Text = ListBox1.Column(12)
ComboBox6.Text = ListBox1.Column(13)
ComboBox7.Text = ListBox1.Column(14)
ComboBox8.Text = ListBox1.Column(15)
ComboBox9.Text = ListBox1.Column(16)
ComboBox10.Text = ListBox1.Column(17)
ComboBox11.Text = ListBox1.Column(18)
TextBox9.Text = ListBox1.Column(19)
TextBox10.Text = ListBox1.Column(20)
TextBox10.Value = Format(TextBox10, "dd.mm.yyyy")
CommandButton1.Enabled = True 'False yaparsanız kaydet butonu pasif olur
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub



Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("C2:C65536").Find(TextBox13.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("C2:C65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With

End Sub
Private Sub TextBox13_Enter()
    TextBox13 = ""
End Sub


Private Sub TextBox13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox13 = ""
End Sub

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox13.Text = "KİŞİ ARA"
End Sub

Private Sub TextBox14_Change() 'ŞEHİR ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox14.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("E2:E65536").Find(TextBox14.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("E2:F65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End Sub
Private Sub TextBox14_Enter()
    TextBox14 = ""
End Sub


Private Sub TextBox14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox14 = ""
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox14.Text = "ŞEHİR ARA"
End Sub
Private Sub TextBox15_Change() 'TELEFON ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox15.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("G2:G65536").Find(TextBox15.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("G2:G65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End Sub
Private Sub TextBox15_Enter()
    TextBox15 = ""
End Sub


Private Sub TextBox15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox15 = ""
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox15.Text = "TELEFON ARA"
End Sub
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
listboxa tıkladığınızda imleç, bulunduğu textboxtan ayrılıp aktif olan nesneye yani listboxa geçtiği için textboxtaki exit olayınıda tetiklemiş oluyor. Yani önce textboxun exit olayı sonrada listboxun click olayı çalışıyor. Bunun düzeltmek için farklı mantıklar kullanmalısınız.
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Anladığım kadarı ile kodlamaların sıralamasında, yer değişikliği sorunu çözer. Değil mi?
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Levent Menteşoğlu' Alıntı:
Olabilir. Bunu deneyerek göreiblirsiniz. Ancak bana sanki bir mantık değişikliği gerekiyor gibi geldi.
Genişletmek için tıkla ...
Kodların yerini değiştirdim. Bir sonuç alamadım. Bildiğim kadarıyla ancak bunu deneyebildim. Zaten mantık yürütebilmek için bilmek gerek. Şayet siz VBA dilini okuyarak bir mantık yürütebiliyorsanız ben bundan yoksunum. Zira benim bu dili çözmeme daha çooook var.

Bütün bunların dışında mantığım mausun exit olayını kaldır diyor. Ama Laz damarım sorunu çöz diyor... :)
 
H

Huseyinkis

Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
Emine Şahin' Alıntı:
Kodların yerini değiştirdim. Bir sonuç alamadım. Bildiğim kadarıyla ancak bunu deneyebildim. Zaten mantık yürütebilmek için bilmek gerek. Şayet siz VBA dilini okuyarak bir mantık yürütebiliyorsanız ben bundan yoksunum. Zira benim bu dili çözmeme daha çooook var.

Bütün bunların dışında mantığım mausun exit olayını kaldır diyor. Ama Laz damarım sorunu çöz diyor... :)
Genişletmek için tıkla ...
Bu konuyu açmadan once diğer kısımda bir açıklama yapmıştın ordaki işlemi deneme şansınız oldumu?

http://www.excel.web.tr/f14/textbox-icerisindeki-yazy-hk-t115116/sayfa2.html
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Gece rüyalarıma girer oldu. Sayıklıyorum artık. :) Bir kere mürekkep bulaştı, kurtulmak zor...

Sabahın seher vaktinde kalkıp abdest almak inanın bir ömre bedel.
Hani şair şiirinde diyorya "Yatma seherde, uğrarsın derde..."

Seher vakti veya tanyerinin ağarması sırasında uykunun insanı esir almasından kurtulmanın yolunu Allah Rasûlü şöyle bir benzetme ile açıklamaktadır:
"İnsan uyuduğu zaman şeytan onun boynuna üç düğüm atar.
Kişi uykudan uyandığında oturup besmele çekince bu düğümlerden biri çözülür.
Kalkıp abdest aldığında ikincisi, iki rekat namaz kıldığında ise üçüncüsü çözülür.
Böylece kul dinç ve kalbi huzurlu sabaha çıkar. Aksi halde tenbel ve berbat bir halde güne başlar.

Uzun ettim kelamı sanırım. Aklıma sabahanın seher vakti şu geldi. Ne kadar "mantıklı" artık siz karar verin. :)
Burada kullandığım "TextBox" yerine "ComboBox" mı kullansam acaba?
 
H

Huseyinkis

Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
Anlatmak istediğim işlem için sizin kodlara textbox2000-2001 ve 2002 ismi ile 3 adet textbox ekledim Enter , Exit ve textbox change kısımlarını incelelermisiniz.



Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
TextBox2.Text = ListBox1.Column(1)
TextBox3.Text = ListBox1.Column(2)
TextBox4.Text = ListBox1.Column(3)
ComboBox1.Text = ListBox1.Column(4)
ComboBox2.Text = ListBox1.Column(5)
TextBox5.Text = ListBox1.Column(6)
TextBox6.Text = ListBox1.Column(7)
TextBox7.Text = ListBox1.Column(8)
ComboBox3.Text = ListBox1.Column(9)
ComboBox4.Text = ListBox1.Column(10)
TextBox8.Text = ListBox1.Column(11)
ComboBox5.Text = ListBox1.Column(12)
ComboBox6.Text = ListBox1.Column(13)
ComboBox7.Text = ListBox1.Column(14)
ComboBox8.Text = ListBox1.Column(15)
ComboBox9.Text = ListBox1.Column(16)
ComboBox10.Text = ListBox1.Column(17)
ComboBox11.Text = ListBox1.Column(18)
TextBox9.Text = ListBox1.Column(19)
TextBox10.Text = ListBox1.Column(20)
TextBox10.Value = Format(TextBox10, "dd.mm.yyyy")
CommandButton1.Enabled = True 'False yaparsanız kaydet butonu pasif olur
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If

If TextBox2000.Text <> "" Then
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("C2:C65536").Find(TextBox2000.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("C2:C65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox13_Enter()
    TextBox13 = ""
    TextBox2000 = ""
End Sub


Private Sub TextBox13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox13 = ""
    TextBox2000 = ""
End Sub

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2000.Text = TextBox13.Text
TextBox13.Text = "KİŞİ ARA"
End Sub

Private Sub TextBox14_Change() 'ŞEHİR ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox14.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
If TextBox2001.Text <> "" Then
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("E2:E65536").Find(TextBox2001.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("E2:F65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox14_Enter()
    TextBox14 = ""
    TextBox2001 = ""
End Sub


Private Sub TextBox14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox14 = ""
    TextBox2001 = ""
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2001.Text = TextBox14.Text
TextBox14.Text = "ŞEHİR ARA"
End Sub
Private Sub TextBox15_Change() 'TELEFON ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If Textbox15.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
If Textbox2002.Text <> "" Then

With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("G2:G65536").Find(Textbox2002.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("G2:G65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox15_Enter()
    Textbox15 = ""
    Textbox2002 = ""
End Sub


Private Sub TextBox15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    Textbox15 = ""
    Textbox2002 = ""
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox2002.Text = Textbox15.Text
Textbox15.Text = "TELEFON ARA"
End Sub
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Huseyinkis' Alıntı:
Anlatmak istediğim işlem için sizin kodlara textbox2000-2001 ve 2002 ismi ile 3 adet textbox ekledim Enter , Exit ve textbox change kısımlarını incelelermisiniz.



Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
TextBox2.Text = ListBox1.Column(1)
TextBox3.Text = ListBox1.Column(2)
TextBox4.Text = ListBox1.Column(3)
ComboBox1.Text = ListBox1.Column(4)
ComboBox2.Text = ListBox1.Column(5)
TextBox5.Text = ListBox1.Column(6)
TextBox6.Text = ListBox1.Column(7)
TextBox7.Text = ListBox1.Column(8)
ComboBox3.Text = ListBox1.Column(9)
ComboBox4.Text = ListBox1.Column(10)
TextBox8.Text = ListBox1.Column(11)
ComboBox5.Text = ListBox1.Column(12)
ComboBox6.Text = ListBox1.Column(13)
ComboBox7.Text = ListBox1.Column(14)
ComboBox8.Text = ListBox1.Column(15)
ComboBox9.Text = ListBox1.Column(16)
ComboBox10.Text = ListBox1.Column(17)
ComboBox11.Text = ListBox1.Column(18)
TextBox9.Text = ListBox1.Column(19)
TextBox10.Text = ListBox1.Column(20)
TextBox10.Value = Format(TextBox10, "dd.mm.yyyy")
CommandButton1.Enabled = True 'False yaparsanız kaydet butonu pasif olur
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If

If TextBox2000.Text <> "" Then
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("C2:C65536").Find(TextBox2000.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("C2:C65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox13_Enter()
    TextBox13 = ""
    TextBox2000 = ""
End Sub


Private Sub TextBox13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox13 = ""
    TextBox2000 = ""
End Sub

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2000.Text = TextBox13.Text
TextBox13.Text = "KİŞİ ARA"
End Sub

Private Sub TextBox14_Change() 'ŞEHİR ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox14.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
If TextBox2001.Text <> "" Then
With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("E2:E65536").Find(TextBox2001.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("E2:F65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox14_Enter()
    TextBox14 = ""
    TextBox2001 = ""
End Sub


Private Sub TextBox14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    TextBox14 = ""
    TextBox2001 = ""
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2001.Text = TextBox14.Text
TextBox14.Text = "ŞEHİR ARA"
End Sub
Private Sub TextBox15_Change() 'TELEFON ARA

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If Textbox15.Text = "" Then
ListBox1.RowSource = "satış!A1:U" & Sheets("satış").[a65536].End(xlUp).Row
Exit Sub
End If
If Textbox2002.Text <> "" Then

With Worksheets("satış")
    ListBox1.RowSource = ""
    If .FilterMode Then .ShowAllData
    Set k = .Range("G2:G65536").Find(Textbox2002.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
       Do
            a = a + 1
            For j = 1 To 50
               myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("G2:G65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ReDim Preserve myarr(1 To 50, 1 To a)
        ListBox1.Column = myarr
    End If
End With
End If
End Sub
Private Sub TextBox15_Enter()
    Textbox15 = ""
    Textbox2002 = ""
End Sub


Private Sub TextBox15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
    Textbox15 = ""
    Textbox2002 = ""
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox2002.Text = Textbox15.Text
Textbox15.Text = "TELEFON ARA"
End Sub
Genişletmek için tıkla ...
Hata alıyorum Hüseyin Bey.
Satış ekranını tıkladığımda...
 
H

Huseyinkis

Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
Hata almanız muhtemel cunku textbox2000 diye bir textboxsınız olmadığından unce uzer form uzerinde 3 tane textbox ekleyin ve isimlerini txtbox2000 textbox2001 textbox2002 diyin boyutlarını ufaltın userform uzerinde gorunur olmasına gerek yok ..
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Huseyinkis' Alıntı:
Hata almanız muhtemel cunku textbox2000 diye bir textboxsınız olmadığından unce uzer form uzerinde 3 tane textbox ekleyin ve isimlerini txtbox2000 textbox2001 textbox2002 diyin boyutlarını ufaltın userform uzerinde gorunur olmasına gerek yok ..
Genişletmek için tıkla ...
Dediğinizi uyguladım. Oldu ama bu sefer de arama yapmıyor. :(
Dosyam ektedir.
 

Ekli dosyalar

E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Olmuş Hüseyin Bey.
"-KİŞİ ARA-" yazmadığımız için mi sorun oldu?
 
H

Huseyinkis

Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
Emine Şahin' Alıntı:
Olmuş Hüseyin Bey.
"-KİŞİ ARA-" yazmadığımız için mi sorun oldu?
Genişletmek için tıkla ...
Arama yaparken her harf yazılınca arama yapılıyor ben aramayı exit dedikten sonra yap şeklinde düzenlemiştim şimdi her harf yazdığında araması için ayarladım.

-KİŞİ ARA- ara yapmamım sebebi textbox'ın exit kısmında Kişi Ara yazmasını istiyoruz ama bu işlem textbox change olayını tetikliyor ve data arasında Kişi Ara diye isim arıyor buda sizin listbox kısmında boyle bir isim olmadığı için boş gelmesine sebep veriyordu..

Ben yardımcı textbox kullanarak çıkışta Kişi ara yazdığında aranacak değerin sizin verdiğiniz son değerin aranmasını ve yazdığınız son değerin textbox2000 de saklanmasını sağlamak istedim.
Textbox çıkış kısmına -Kişi Ara- yamasa idim k ile başlayanlar demek zorunda kalırdım buda ismi k ile başlayan kimseyi bulamassınız anlamına gelirdi. oyuzden arama yaparken kullanmıyacağınız bir karakteri metne ekledim.

Biraz karışık oldu ama inşallah anlatabilmişimdir..

İyi çalışmalar.
 
E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Yok!.. çok iyi anlatmışsınız. Aslında ta başından beri Levent Bey mantık mantık deyip durdu ama, benim anlayabileceğim bir durum değildi. Çok mantıklı bir çözüm üretmişsiniz. Bu da benim kodlardan anlamadığım manasına gelir ki, inşallah öğreneceğim...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst