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

Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki commandbutton kodunu deneyiniz:

PHP:
Private Sub CommandButton1_Click()
Set d = [D:D].Find(TextBox1.Value)
If Not d Is Nothing Then d.Offset(0, 1).Select
End Sub
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Yusuf bey ilginiz için teşekkür ederim maalesef çalışmadı.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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:

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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
C sütunu değil de D sütununda arayıp E sütunundakini seçmesi için C:C yerine D: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.
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Sonunda textbox içeriğinin temizlenmesi için ne yapabiliriniz. Saygılarımla.
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
End Sub satırından önce
TextBox2.Value = ""
satırını ekleyin.
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Eywallah işiniz gücünüz rast gelsin. Çok çok teşekkür ediyorum.
 
Üst