Kayıt sorunu

[moresby]

Dosyada 1.Dönem Not kısmında sınıf seçilince öğrenciler Listboxa geliyor. Oradan öğrenci üzerine tıklayınca tektboxlara düzgün olarak dağılıyor. Benim sıkıntım ise şu
Bilgilerde değişiklik yapıp kaydet dediğim zaman değişik yerlere kayıt yapıyor. Bilgilerin geldiği hücreye düzeltme yaptıktan sonrak kayıt nasıl yaptırabiliriz? Þimdiden tşk

 

[veyselemre]

verileri aldığınız gibi kaydetmeyi denediniz mi?
[vb:1:cf2aa33d24]Private Sub CommandButton2_Click()
On Error Resume Next
If ComboBox1.Value = "" = "" Then End
If ComboBox25.Value = "" = "" Then End
On Error Resume Next
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Cells(satir, x).Value = Controls("textbox" & x + 1)
Next
TextBox97 = Cells(satir, 223).Value
TextBox98 = Cells(satir, 224).Value
MsgBox ("Bilgiler kayıt edildi.")
End Sub[/vb:1:cf2aa33d24]

 

[moresby]

maalesef gene hata veyiror kayıt yapmıyor

 

[veyselemre]

alttaki satırları değiştirmeyi unutmuşum, şöyle deneyin
ayrıca seçili sayfanızın kaydedilecek sayfa olup olmadığını da kontrol edin veya koda ekleyin işinizi daha sağlam olur

[vb:1:6cb3d588cd]Private Sub CommandButton2_Click()
On Error Resume Next
If ComboBox1.Value = "" = "" Then End
If ComboBox25.Value = "" = "" Then End
On Error Resume Next
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Cells(satir, x).Value = Controls("textbox" & x + 1)
Next
Cells(satir, 223).Value = TextBox97
Cells(satir, 224).Value = TextBox98
MsgBox ("Bilgiler kayıt edildi.")
End Sub
[/vb:1:6cb3d588cd]

 

[moresby]

Kayıt yapıyor. Fakat kayıt öğrencinin bulunduğu satıra değilde hep birinci satıra yapıtor. Ã?ğrenci seçiniz yazan kısımda bu problem yok ama sınıf kısmından halletmeye çalışınca sıkıntı veriyor bu arada ilgine çok teşekkürler

 

[moresby]

Sorunu biraz daha anlatayım oda aynı sınıftaki öğrencilerden en son öğrencide değişiklik yaptığım halde kayıt aynı sınıftaki birinci sırada yer alan öğrenciye yapılıyor

 

[veyselemre]

anlamadığım sınıfı niye dahil ediyorsunuz
aynı okulda aynı numara 1 kez kullanılmıyor mu

 

[moresby]

sınıfı dahil etmemin sebebi şu okulda bildiğin üzere birçok öğrenci var ve notlar girilirken bu öğrencilerin numaralarını tek tek bilmen gerekecek bu zor. o yüzden sınıflar seçilerek listboxa aktarmaya oradanda notların girişini kolaylaştırmaya çalıştım ama beceremedim

 

[moresby]

veyselemre, bu arada uraşların için tşk

 

[moresby]

hala bekliyorum lütven yardım edin bir türlü işin içinden çıkamadım hala

 

[moresby]

hala bekliyorum lütven yardım edin bir türlü işin içinden çıkamadım hala

 

[moresby]

birde bu sorunumu çözseniz çok sevinicem valla tşk ederim uğraşlarınız için

 

[veyselemre]

ben denedim ilgili satıra kayıt yapıyor

 

[moresby]

syn veyselemre, sınıfı seçip-listboxtan öğrenciyi seçip kayıt yaptıktan sonra kayıtlar öğrencinin olduğu sütuna değilde ilk satıra yapılıyor. tşk

 

[veyselemre]

[vb:1:86d0084a4b]Private Sub ListBox5_Click()
On Error Resume Next
sat = Columns(3).Find(ListBox5.List(ListBox5.ListIndex, 0)).Row
Cells(sat, 2).Select

ComboBox1.Text = ListBox5.List(ListBox5.ListIndex, 0)

For i = 12 To 96

.
.
.
.

yukarıdaki kodlarınızın arasına koyu seçili kısmı girin
[/vb:1:86d0084a4b]

 

[moresby]

teşekkürler şimdi halloldu uğraştırdığım için kusura bakma