Atanan değerin data kısmına yazılması

[tactless]

Merhaba arkadaşlar.

Mesai kutucuğum var bu kutuya yazdığım değer tablodan seçmiş olduğum isimli kişinin data sayfasında bulunan mesai karşılığına yazılmalı. makro ve buton kullanılabilir.

Yardımlarınızı bekliyorum. şimdiden tşkler.

** sorumu nayrıntısı ektedir.

 

[hamitcan]

Sub ListeKutusu1_Değiştir()
    Sheets("Data").Cells([m5] + 1, 3) = [c3]
End Sub

 

[tactless]

Sub ListeKutusu1_Değiştir()
    Sheets("Data").Cells([m5] + 1, 3) = [c3]
End Sub

hocam elinize sağlık bunu butona bağlı yapabilirmiyiz. değeri yazdıktan sonra butona basıldığında ilgili yere yazsın.

şimdiden çok tşk ederim.

sayg.

 

[tactless]

hocam butona basılmadığı sürece atama yapılmazsa süper olur. bu şekliyle değer girmezsem bile listeden seçim yaptığımda bu sefer data kısmında 0 atıyor eski girdiğim veri siliniyor. özetle butona basıldığında ilgili yere girilen değer yazılsın yoksa değişim olmasın. tşkler.

 

[hamitcan]

Dosyayı güncelledim.

 

[tactless]

Sub Düğme10_Tıklat()
'
' Düğme10_Tıklat Makro
' Makro 10/08/2010 tarihinde kaydedildi.
'
Sheets("Data").Cells([m5] + 1, 3) = [c3]

End Sub

tamamdır hocam ben yaptım çok tşkler. iyi çalışmalar.

***aynı anda yazmışız ) bende bi yandan yapmış oldum.