Soru Sayfada satır bulma ve bulunan satırı seçme

[reosman]

Saygıdeğer arkadaşlar,

Bir sayfamda A,B,C,D,E sütunlarım var

Sayfada bir Textbox ve Commandbuton ekleyerek sadece D sütunundaki
verileri arayıp bulunduktan sonra o satırın sonundaki E sütununun seçilmesini istiyorum.

Bu hususta yardımlarınızı rica ediyorum.

 

[YUSUF44]

Aşağıdaki commandbutton kodunu deneyiniz:

Private Sub CommandButton1_Click()
Set d = [D:D].Find(TextBox1.Value)
If Not d Is Nothing Then d.Offset(0, 1).Select
End Sub

 

[reosman]

Yusuf bey ilginiz için teşekkür ederim maalesef çalışmadı.

 

[YUSUF44]

Hoşgörünüze sığınarak bir bir fıkra hatırlatmak istiyorum:

Adamın biri "kurban" mevzuunu anlatıyormuş: "Çocuğu olmayan Hz Davut, Allah'a dua etmiş, 'Ya rabbi bana bir kız çocuğu ver, onu sana kurban edeyim' demiş. Dua tutmuş, Davut, kızının adını Ayşe koymuş. Gel zaman git zaman, çocuğun kurban edileceği zaman gelmiş. Hz Davut kızı yatırmış, tam boğazını kesip kurban edecekken, Azrail, gökten bir keçiyle çıkagelmiş. 'Kızı bırak, al bu keçiyi kurban et' demiş"!
dinleyenlerden biri dayanamamış:
"Yahu bunun neresini düzelteyim; Hz. Davut değil Hz.İibrahim; kız değil erkek; Ayşe değil İsmail; Azrail değil Cebrail; keçi değil, koç"!

İlk mesajınızda "D sütununda arayacak" demiştiniz ama örnek dosyanızda veriler C sütununda; "Bir textbox olacak" demiştiniz ama dosyanızdaki textboxın adı "Textbox2"; "E sütunu seçilecek" demiştiniz ama dosyanızda "D sütununun" seçilmesi gerekiyor. Ayrıca kodlarınızın başında Option Explicit olduğu için kodlarda kullanılan tüm değişkenlerin tanımlanması gerekiyor. Aşağıdaki dibi deneyin:

Private Sub CommandButton1_Click()
Dim d As Range
Set d = [C:C].Find(TextBox2.Value)
If Not d Is Nothing Then d.Offset(0, 1).Select
End Sub

 

[reosman]

Yusuf bey çok çok teşekkür ederim hata benim ek yapmadan bazı yerleri silmiştim aslında D sütunu doğru sorun değil ona göre uyarladım. Fakat tek sorunum kaldı aradığını tam değil içerenleri şeklinde buluyor yani tam sicil numarasını bulmasını istiyorum ve bulduktan sonda E sütununa konumlanması, textbox kutusunun temizlenmesini istiyorum. Saygılarımla.

 

[YUSUF44]

Aşağıdaki kod örnek dosyanızda C sütununda tam eşleşme varsa D sütununundaki hücreyi seçer, yoksa "Bulunamadı" uyarısı verir:

Private Sub CommandButton1_Click()
Dim d As Range
Set d = [C:C].Find(what:=TextBox2.Value, LookAt:=xlWhole)
If Not d Is Nothing Then
    d.Offset(0, 1).Select
Else
    MsgBox "Bulunamadı!", vbExclamation
End If
End Sub

Bulamadığında herhangi bir şey yapmaması için aşağıdaki gibi kullanabilirsiniz:

Private Sub CommandButton1_Click()
Dim d As Range
Set d = [C:C].Find(what:=TextBox2.Value, LookAt:=xlWhole)
If Not d Is Nothing Then d.Offset(0, 1).Select
End Sub

 

[YUSUF44]

C sütunu değil de D sütununda arayıp E sütunundakini seçmesi için C:C yerine D şeklinde kullanmalısınız.

C sütununda arayıp E sütununu seçmek isterseniz offset(0,2) olarak kullanmalısınız.

 

[reosman]

Sonunda textbox içeriğinin temizlenmesi için ne yapabiliriniz. Saygılarımla.

 

[reosman]

Yusuf bey anlayışınız ve herşey için çok teşekkür ederim. Son olarak textbox içeriğinin temizlenmesi için ne yazmam gerekli.

 

[YUSUF44]

End Sub satırından önce
TextBox2.Value = ""
satırını ekleyin.

 

[reosman]

Eywallah işiniz gücünüz rast gelsin. Çok çok teşekkür ediyorum.