TextBox1 e Göre Kayıt

[captan]

Arkadaşlar Formda aradım ama bulamadım.


Kaydet butonuna tıklayınca TextBox1 yazdığım veriyi A:A da arayıp bulacak ve onun karşısındaki B hüceresine TextBox2 yi yazacak kodlara ihtiyacım var.

Yardımlarınızı Bekliyorum,
Herkese Çok Kolay Gelsin . .

 

[Mahmut Kök]

Arkadaşlar Formda aradım ama bulamadım.


Kaydet butonuna tıklayınca TextBox1 yazdığım veriyi A:A da arayıp bulacak ve onun karşısındaki B hüceresine TextBox2 yi yazacak kodlara ihtiyacım var.

Yardımlarınızı Bekliyorum,
Herkese Çok Kolay Gelsin . .

for a=1 to 65000
if cells(a,"a")= textbox1 then
cells(a,"b")=textbox2
end if
next

 

[Levent Menteşoğlu]

on error resume next
[a1:a65536].find(textbox1).next=textbox2

 

[captan]

Teşekkürler

Syn Mesleki ve Leventm Bey Çok teşekkür ederim ilginize,

Ancak Ben aşağıdaki kodlara göre bir kayıt yapmayı düşünmüştüm.

son = Y
Cells(son, 2) = TextBox2.Value * 1
Cells(son, 3) = TextBox3.Value * 1
Cells(son, 4) = TextBox4.Value * 1

Şimdi Y yerine nasıl bir kod yazmalıyım.
Kusura bakmayın kafam karıştı. .

 

[Levent Menteşoğlu]

Aşağıdaki kodu Y yerine yazın.

[a1:a65536].find(textbox1).row

 

[captan]

Teşekkürler

Sayın Leventm Bey Çok Teşekkürler.

 

[captan]

Leventm Bey

Sayın Leventm Bey,

Sayın Leventm Bey Çok Teşekkürler
. .