Soru Bul Değiştir

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Kod:
Set bul = Range("f2:f65536").Find(TextBox1, lookat:=xlWhole)
If Not bul Is Nothing Then
TextBox1 = Cells(bul.Row, "b")
TextBox2 = Cells(bul.Row, "e")
TextBox3 = Cells(bul.Row, "d")
TextBox4 = Cells(bul.Row, "g")
TextBox5 = Cells(bul.Row, "h")
TextBox6 = Cells(bul.Row, "j")
TextBox7 = Cells(bul.Row, "m")
TextBox8 = Cells(bul.Row, "n")
TextBox9 = Cells(bul.Row, "o")
TextBox10 = Cells(bul.Row, "p")
ComboBox2 = Cells(bul.Row, "l")
ComboBox3 = Cells(bul.Row, "k")
Else
MsgBox "aradığınız kayıt bulunamadı."
End If
Yukarıdaki kodda sadece Textbox1' e göre arıyor. Set bul = Range("f2:f65536").Find(TextBox1, lookat:=xlWhole)
Arama Kısmını "Textbox1, Textbox2, Textbox8, Textbox9" olarak ayarlayabilmemiz mümkün mü?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Sorunuz eksik gibi. Eğer textbox1 deki değeri bulamazsa mı bir sonraki textbox değerini arayacak?
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Yok Ömer abi
Hatalı yazdığım için özür dilerim. 4 textboxun "Textbox1, Textbox2, Textbox8, Textbox9" değerini arayacak.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Bu 4 texbox için; eğer textbox1 deki değeri bulamazsa 2 yi, bulmazsa 8 ei bulamazsa 9 umu arayacak.
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Yok Ömer abi
Textbox1 B2: B100
Textbox2 C2: C100
Textbox8 I2: I100
Textbox9 J2: J100
hücrelerinde arayacak bulacak 4 textbox eşit olacak bu eşitliğe göre formda ki bilgileri değiştirecek.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
O zaman 4 textbox içinde ayrı ayrı 4 tane bul yani find set etmelisiniz.
 
Son düzenleme:

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Evren Abi
Set bul = Range("f2:f65536").Find(TextBox1, lookat:=xlWhole)
bu koddan 4 tane mi yapacağım
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Evren abi yaptım ama hatası var. Hatası da aynı satıra değil bir alt hücreye yazıyor.
Set bul = Range("c2:c65536").Find(TextBox1, lookat:=xlWhole)
Set bul = Range("d2:d65536").Find(ComboBox1, lookat:=xlWhole)
Set bul = Range("e2:e65536").Find(ComboBox2, lookat:=xlWhole)
If Not bul Is Nothing Then
Cells(bul.Row, "c") = TextBox1
Cells(bul.Row, "d") = ComboBox1
Cells(bul.Row, "e") = ComboBox2
Cells(bul.Row, "f") = TextBox14
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Eğer böyle yapacaksanız,Set bul1
set bul2=
set bul3 =
set bul4 =
bu şekilde yapınız.
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Evren Abi
If Not bul Is Nothing Then
Cells(bul.Row, "c") = TextBox1
Cells(bul.Row, "d") = ComboBox1
Cells(bul.Row, "e") = ComboBox2
Cells(bul.Row, "f") = TextBox14
Bu kısım hangisine göre set bul1, set bul2 ya da set bul3' arayacak
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Yanlış ,mantık hatasıda var burada.
Textbox1 deki veriyi bulmak için;
Set bul1 = range("C2:C65536").find(textbox1.value,lookat:=xwhole)
bul1.value = değişecekveri
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Şöyle daha doğru olacak.
Textbox1 deki veriyi bulmak için;
Kod:
Set bul1 = range("C2:C65536").find(textbox1.value,lookat:=xwhole)
değişecekveri="TEST"
'Değiştirmek için.
Range("C" & bul1.row).value = değişecekveri
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Evren Abi Hakkını helal et. Teşekkür ederim
 
Üst