Seçime Göre Kayıt!!!

[ocamsul]

Arkadaşlar iyi pazarlar diliyorum.........

Benim sorum ekli UserForm üzerindeki TextBox111 yada ListBox1 de seçili personel hangisi ise TextBox1.2.3.4........ girilen puantaj bilgilerinin o kişiye ait sütunlara yazdırılması istiyorum. bu konuda yardım edebilirseniz sevinirim.

 

[Levent Menteşoğlu]

Listboxtaki kodu aşağıdaki ile değiştirin. Yalnız kodun doğru çalışması için puantaj girişindeki textboxların isimlerini textbox1,textbox2,.....textbox31 şeklinde yeniden düzenleyin.

[vb:1:06f89688bd]Private Sub ListBox1_Click()
g = ListBox1.ListIndex
TextBox111.Value = Sheets("GÜNDÜZ").Cells(g + 5, 2).Value
TextBox112.Value = Sheets("GÜNDÜZ").Cells(g + 5, 3).Value
For a = 1 To 31
Controls("textbox" & a) = Cells(g + 5, a + 3)
Next
End Sub[/vb:1:06f89688bd]

 

[ocamsul]

LEVENTM sabrınıza ve emeğinize çok teşekkür ederim. eksik olmayın. iyi çalışmalar.

 

[ocamsul]

arkadaşlar benim bir çalışmam var. ancak anlayamadığım bazı yerler var yardım ederseniz sevinirim.

1 - şimdi formda seçili personel kim ise puantajları o kişinin sırasına yazmak istiyorum, ama olmuyo?
2 - birde seçili personel kim ise onun puantajlarında düzeltme yapmak istiyorum. Bu bir DÜZELT butonu ile olursa daha iyi olur gibi.

Form ekte arkadaşlar. inceleyip yardım ederseniz sevinirim.

 

[ocamsul]

inceleme imkanı olan arkadaş yokmu? biliyorum belki biraz karışık ama şu şekilde olsa daha iyi olur diyen de mi yok arkadaşlar. zaten bu mevzuyu çözsem diğer çalışmalarımın tamamına alternatif olacak.

 

[ali semerci]

bence "puantaj cetveli" gibi bir başlık açarsan ilgilenen daha çok kişi olur...
başlık iyi olursa sorunun cevaplanma ihtimali de yüksek olur.