Soru Bul Değiştir

[sirkülasyon]

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]

Merhaba,

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

 

[sirkülasyon]

Yok Ömer abi
Hatalı yazdığım için özür dilerim. 4 textboxun "Textbox1, Textbox2, Textbox8, Textbox9" değerini arayacak.

 

[Ömer]

Bu 4 texbox için; eğer textbox1 deki değeri bulamazsa 2 yi, bulmazsa 8 ei bulamazsa 9 umu arayacak.

 

[sirkülasyon]

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]

O zaman 4 textbox içinde ayrı ayrı 4 tane bul yani find set etmelisiniz.

 

[sirkülasyon]

Evren Abi
Set bul = Range("f2:f65536").Find(TextBox1, lookat:=xlWhole)
bu koddan 4 tane mi yapacağım

 

[Orion1]

Evren Abi
Set bul = Range("f2:f65536").Find(TextBox1, lookat:=xlWhole)
bu koddan 4 tane mi yapacağım

Evet.
Diğer textboxlar için adresi ve nesneyi yazarak set etmelisiniz.

 

[sirkülasyon]

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]

Eğer böyle yapacaksanız,Set bul1
set bul2=
set bul3 =
set bul4 =
bu şekilde yapınız.

 

[sirkülasyon]

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]

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]

Şöyle daha doğru olacak.
Textbox1 deki veriyi bulmak için;

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]

Evren Abi Hakkını helal et. Teşekkür ederim