Textbox1'in değerini A sutununda bul Altına Yeni Hücre Ekle Textbox2'nin değerini yaz

[yeniyetme]

Bütün forum üyelerine selamlarımı ve sevgilerimi sunuyorum...

A1 = ...... herhangi bir bilgi soruyla alakası yok..
A2= ........ herhangi bir bilgi soruyla alakası yok
A3= "isim"
A4="soyad"
A5="vilayet"
Böyle bir sayfam ve userformumda iki adet textbox ve bir adet kaydet butonum var...

kaydet butonuna bastığımız zaman (textbox1="isim" textbox2="ali" girdiğimizi varsayalım ) textbox1'in değerini A sütununda bul Hemen altına bir hücre ekle ve bu hücreye textbox 2' nin değerini ver..
sonucun şu şekilde olması gerekiyor..

A3= "isim"
A4= ali
A5="soyad"
A6="vilayet"

örnek amaçlı bir kayıt daha yapalım textbox1="soyad" textbox2="gungor"
yine aynı şekilde textbox 1 a da bul altına hücre ekle ve sonuç şöyle

A3= "isim"
A4= ali
A5="soyad"
A6=gungor
A7="vilayet

Anlaşılmayan bir nokta varsa sorun lütfen....

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
sat = WorksheetFunction.Match(TextBox1, [a:a], 0)
Rows(sat + 1).Insert Shift:=xlDown
Cells(sat + 1, "a") = TextBox2
End Sub

 

[yeniyetme]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
sat = WorksheetFunction.Match(TextBox1, [a:a], 0)
Rows(sat + 1).Insert Shift:=xlDown
Cells(sat + 1, "a") = TextBox2
End Sub

Levent hocam ne diyebilirim ki bu kadar uzun bir soruya bu kadar kısa bir cevap hiç beklemiyordum. Kodlar gerçekten mükemmel.

Sizden bir ricada bulunsam yazdığınız kodda
sat = WorksheetFunction.Match(TextBox1, [a:a], 0)
bunun açılımını yapabilirmisiniz.

Bu arada bu kodları kendi programıma entegre ettikten sonra sorunlarım olursa dile getiririm...

 

[Levent Menteşoğlu]

Levent hocam ne diyebilirim ki bu kadar uzun bir soruya bu kadar kısa bir cevap hiç beklemiyordum. Kodlar gerçekten mükemmel.

Sizden bir ricada bulunsam yazdığınız kodda
sat = WorksheetFunction.Match(TextBox1, [a:a], 0)
bunun açılımını yapabilirmisiniz.

Bu arada bu kodları kendi programıma entegre ettikten sonra sorunlarım olursa dile getiririm...

Rica ederim.

sat = WorksheetFunction.Match(TextBox1, [a:a], 0)

Yukarıdaki fonksiyon MATCH yani KAÇINCI fonksiyonun VBA daki kullanım şeklidir. Burada fonksiyonun kullanılmasının amacı Textbox1 de aranılan verinin kaçıncı satırda olduğunu bulmaktır.

 

[yeniyetme]

Levent hocam çok teşekkür ederim ilgi ve alakanıza
çalışmalarınızda başarılar dilerim....