veri değiştirme

[öğrtm]

mrb

çalışma kitabımda 6-A sınıfındaki verileri userform üzerinden değiştirebiliyorum.fakay aynı kitapta bulunan okul kütüğü sayfasında o veriyi değiştiremedim.örnek dosyamı ekliyorum
ilgilenenlere şimdiden teşekkür ederim.

not:kütükte 6-A sınıfı öğrencileri haricinde de öğrenciler var.

 

[öğrtm]

arkadaşlar yardımlarınızı bekliyorum konuyu karşılayacak link vs de olabilir.

 

[Yüksel Varlı]

Merhaba,
Private Sub UserForm_Initialize()
ComboBox1.AddItem "6-A"
ComboBox1.AddItem "okul kütüğü"
With ListBox1
.ColumnCount = 3

End With
End Sub

Private Sub ComboBox1_Change()
Dim syf
syf = ComboBox1.Value
Sheets(syf).Select
ListBox1.RowSource = "a1:c100"

şeklinde yazarsanız sorun çözülür.

 

[ozgretmen]

Öğrenciyi kütük sayfasında arayabilmek için ÖĞRENCİ NUMARASINI kullandım.Bu durumda no değiştirmek olanaksız.Ama öğrencinin ismini, eğer eklenirse diğer bilgilerini değiştirmek mümkün olabilir.Formunuzdaki kodu aşağıdaki kod ile değiştiriniz. İyi geceler.

Private Sub CommandButton1_Click()
i = ListBox1.ListIndex + 1
ListBox1.RowSource = vbNullString
Cells(i, 2).Value = TextBox2.Value
Cells(i, 3).Value = TextBox1.Value
[COLOR="Red"]Sheets("okul kütüğü").Activate
Y = Cells(65536, "B").End(xlUp).Row
Range("B1:B" & Y).Find(TextBox2.Value, LookIn:=xlValues, LookAt:=xlWhole).Select
ActiveCell.Offset(0, 1) = TextBox1.Value
Sheets("6-A").Activate[/COLOR]
ListBox1.RowSource = "a1:c100"
End Sub

 

[öğrtm]

teşekkürler

sayın ozgretmen okul işlerinde numara pek değişmez ama proğramın esnekliği dolayısıyla numarayıda değişecek şekilde yapmaya çalışıyorum.yardımınız için yinede teşekkür ederim

sayın varlı sizin örneğinizde kütükte değişiklik yapılabiliyor ama sınıf listesi aynı kalıyor benim yapmaya çalıştığım sınıfı güncellediğimde kütüğünde aynı anda güncellenmesi.alaka ve yardımlarınız için teşekkür ederim.