değiştirde sadece adını değiştiriyor

[yalovam77]

selamlar burada verdiğiniz bilgiler için teşekkür ederim. ancak bizler zxaman zaman tıkanıp kalıyoruz çünki temel olmadığı için çözüm üretemiyoruz. bu dosyayı öncede gönderdim ama yardım alamadım.konu şu kaydetle kişi kaydediyorum. listboxtaki listeden kişiyi seçiyorum. bilgilerini değiştir butonuna bastığımda sadece adı değişiyor oysa bilgilerinin tamamı değişsin istiyorum yardımcı olursanız sevinirim. dosya ektedir.

 

[Ayhan Ercan]

dosyanız ekte....


Listbox1 click olayına yazılan kod double click olayına geçirilmiştir. bu nedenle listboxdan textboxlara veri çağırmayı çift tıklama ile yapınız..

 

[yalovam77]

barlı uygulama

sayın ayhan çok teşekkür ederim. beni büyük bir dertten kurtardığınız için. bir konu daha vardı bu değiştirme olayı tek clickle olmazmı diğeride sil dediğim zaman diyelimki 1,2,3 sıralı kişiler var aradan 2 numaralı kişiyi sildiğimizde 1,3 oluyor sıralama 1,2 gibi sıralaması düzgün olmazmı yardım imkanınız varsa seviniri yoksa saolun asıl istediğim olduya bir kez daha teşekkür ederim

 

[Ayhan Ercan]

"SİL" butonuda yazlı kodlarını aşağıdaki gibi değiştirin .. (sıralama numaralarının düzgün gidebilmesi için)

............
............
............
            Silinecek_Satir = ListBox1.ListIndex + 2
            [COLOR=red][B]Sheets("personel").Range("B" & Silinecek_Satir & ":E" &  Silinecek_Satir).Delete[/B][/COLOR]
[COLOR=red][B]         Sheets("personel").[a65536].End(3).Delete[/B][/COLOR]
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            textBox4.Text = ""

listboxa tek tıklama ile veri aktarma yaptığınız zaman, "kayıt" anındaki ilk sıkıntılarınız oluşuyor...
ama üstadlarımız belki bu konuyu cevaplandıracaklardır. ben halledemedim..

 

[Orion1]

Değiştirme konusu çözüldü.
Dosyanız hazır.

 

[yalovam77]

değiştir

yardımlarınız ve sabrınız için çok teşekkür ederim

 

[Orion1]

yardımlarınız ve sabrınız için çok teşekkür ederim

5nci mesajda benim yolladığım dosya oldumu?

 

[yalovam77]

değiştir

sayın evren işime çok yaradı yaptığınız düzeltme yaklaşık 6 aydır uğraştığım üniversitelerde il dışından ders vermek için gelenlere yolluk ödenmesiyle ilgili bir excel projem vardı onu bu sayede tamamlamış olacağım inşallah onu tamamladığımda beğeninize sunacağım çok çok teşekkür ederim

 

[Orion1]

sayın evren işime çok yaradı yaptığınız düzeltme yaklaşık 6 aydır uğraştığım üniversitelerde il dışından ders vermek için gelenlere yolluk ödenmesiyle ilgili bir excel projem vardı onu bu sayede tamamlamış olacağım inşallah onu tamamladığımda beğeninize sunacağım çok çok teşekkür ederim

Rica ederim.
iyi çalışmalar.