Değiştir düğmesi kodları çalışmıyor :(

[ibrahimgul]

Arkadaşlar sizlerin soru-cevap ve örneklerinizi takip ederek birşeyler yapmaya çabalıyorum. Makro yazmaktan pek anlamıyorum, ancak verdiğiniz kodları kendime uyarlamaya çalışıyorum. Bu şekilde ekteki dosyayı yaptım. Kaydet, Temizle, bul düğmeleri çalışıyor, fakat Değiştir düğmesinin kodlarını beceremedim. DEÐİÞTİR düğmesine basınca çağırdığım personelin verilerinde yaptığım değişikliği o personelin olduğu yere yazsın istiyorum. Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Değiştir butonuna aşağıdaki gibi bir kod yazabilirsiniz. Kod içindeki sat değişkeni verinin çağırıldığı satır nosunu verir. Bundan sonra yapılacak şey bu satırnosunu dikkate alarak ilgili sütunlara textbox ve comboboxları bağlamaktır.

[vb:1:54ccb0d304]Private Sub CommandButton1_Click()
sat = cboad.ListIndex + 2
Cells(sat, 2).Value = Txtad.Text
Cells(sat, 3).Value = txtunvanı.Text
.
.
.
end sub
[/vb:1:54ccb0d304]

 

[ibrahimgul]

Sayın Leventm
eğer yanlış anlamadıysam DEÐİÞTİR düğmesine aşağıdaki kodu atamam gerekiyor, doğru mudur?
Private Sub CommandButton1_Click()
sat = cboad.ListIndex + 2
Cells(sat, 2).Value = Txtad.Text
Cells(sat, 3).Value = txtunvanı.Text
Cells(sat, 4).Value = txtbrans.Text
Cells(sat, 5).Value = txtmeddur.Text
Cells(sat, 6).Value = txtaileyard.Text
Cells(sat, 7).Value = txtkucukcocuk.Text
Cells(sat, 8).Value = txtbuyukcocuk.Text
Cells(sat, 9).Value = txtkadder.Text
Cells(sat, 10).Value = txtkadkad.Text
Cells(sat, 11).Value = txtmukder.Text
Cells(sat, 12).Value = txtmukkad.Text
Cells(sat, 13).Value = txtgorbastar.Text
Cells(sat, 14).Value = ttxtteraltar.Text
Cells(sat, 15).Value = txthizmetyili.Text
Cells(sat, 18).Value = txttres.Text
Cells(sat, 19).Value = txtes.Text
Cells(sat, 20).Value = txtebs.Text
Cells(sat, 21).Value = txtilksan.Text
Cells(sat, 22).Value = txtpersonelno.Text
Cells(sat, 23).Value = txthesapno.Text
End Sub
Ben bu kodu DEÐİÞTİR düğmesine atadım ama istediğim sonucu alamadım. Daha doğrusu hiçbir değişiklik olmadı verilerimde.
Nerede hata yaptığımı belirtirseniz memnun olacağım. Sizden isteğim bu açıklamayı yaparken Makrolardan anlamadığımı göz önüne alarak cevap yazmanız olacak. Sabrınız ve yardımlarınız için şimdiden teşekkürler.

 

[ibrahimgul]

Arkadaşlar yardımlarınızı beklemeye devam ediyorum.
Bir de forumda gördüğüm kadarıyla gelen soruların çoğu Bul-değiştir-sil-kaydet makrosu üzerine -veya bana öyle geliyor- acaba bu konuda ayrıntılı bir makale hazırlanabilir mi?

 

[ibrahimgul]

Arkadaşlar günler geçtikçe benim sorum alta doğru hızla iniyor :lol:
Ben sabır(sızlık)la cevaplarınızı bekliyorum.
DEÐİÞTİR butonu konusunda yardımlarınızı esirgemeyceğinizi umuyorum.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:97404b0ade]Private Sub CommandButton1_Click()
Cells(65536, 2) = Txtad.Value
Cells(65536, 3) = txtunvanı.Value
Cells(65536, 4) = txtbrans.Value
Cells(65536, 5) = txtmeddur.Value
Cells(65536, 6) = txtaileyard.Value
Cells(65536, 7) = txtkucukcocuk.Value
Cells(65536, 8) = txtbuyukcocuk.Value
Cells(65536, 9) = txtkadder.Value
Cells(65536, 10) = txtkadkad.Value
Cells(65536, 11) = txtmukder.Value
Cells(65536, 12) = txtmukkad.Value
Cells(65536, 13) = txtgorbastar.Value
Cells(65536, 14) = txtteraltar.Value
Cells(65536, 15) = txthizmetyili.Value
Cells(65536, 16) = txtgosterge.Value
Cells(65536, 17) = txtekgos.Value
Cells(65536, 18) = txttres.Value
Cells(65536, 19) = txtes.Value
Cells(65536, 20) = txtebs.Value
Cells(65536, 21) = txtilksan.Value
Cells(65536, 22) = txtpersonelno.Value
Cells(65536, 23) = txthesapno.Value
sat = cboad.ListIndex + 2
For a = 2 To 23
Cells(sat, a) = Cells(65536, a)
Next
Rows(65536).ClearContents
Unload Me
PersonelBilgisi.cboad = Cells(sat, "b").Value
PersonelBilgisi.Show
End Sub[/vb:1:97404b0ade]

 

[ibrahimgul]

Sayın Leventm
Yardımlarınız için çok çok teşekkür ediyorum.