Toplu devamsızlık giriş hk.

[Mahmut Bayram]

Öncelikle Forum'a selamlar.
Arkadaşlar ekli dosyada yardıma ihtiyacım var.
Listbox1 de günler var, o günler 2 kolonu birden alıyor o günlere ait sabah, öğle devam durumları var.
Yapmak isteyipte başaramadığım nokta ise,
listbox1 deki güne ait sabah ve öğle ne ait verileri 1. öğrenciden 50. öğrenciye kadar toplu giriş yaptırmak istiyorum.
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum.

Örnek anlatım:
Listbox1 de 3 ü seçtim.
Sabah=k yazdım
Öğle=v yazdım
H11:H60 k olmalı.
I11:I60 v olmalı.

 

[Mahmut Kök]

aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
bas = (ListBox1 * 2) + 2
For a = 11 To 60
Cells(a, bas) = TextBox1
Cells(a, bas + 1) = TextBox2
Next
End Sub

 

[udentr2002]

mesleki hocam

bir ricam olacak ya yukarıdaki kodları açıklayarak anlatırmısınız lütfen mantığını kavrayabilmek amacı ile çok makbule geçer

 

[Mahmut Bayram]

Sayın mesleki çok teşekkür ediyorum.
Günlere ait ayrı ayrı aktif satır ve kolonu buldurarak yapmaya çalışıyordum. Ama diğer kodlar birbiri ile çakıştığı için silmek zorunda kaldım.
Sağolun.

 

[Mahmut Kök]

Sayın Partner, rica ederim..

Private Sub CommandButton1_Click()
bas = (ListBox1 * 2) + 2
For a = 11 To 60
Cells(a, bas) = TextBox1
Cells(a, bas + 1) = TextBox2
Next
End Sub

bir ricam olacak ya yukarıdaki kodları açıklayarak anlatırmısınız lütfen mantığını kavrayabilmek amacı ile çok makbule geçer

Cells (a,b) şeklindeki kodda a=satır, b=sütun demektir. b=1 ise sütun A; b=2 ise sütun B şeklinde devam eder.

bas = (ListBox1 * 2) + 2

Örnekte ilk sütun D olduğundan yani 4 olduğundan, listede 1 seçildiğini düşünürsek;

(1*2)+2 = 4 olacaktır. parantez içindeki 2, sabah veya öğlen değerlerinin 2 sütun atlayarak gittiği için, ayraç dışındaki +2 ise, ilk sütundan başlamadığı için gerekli olan fark.

Kısaca böyle açıklayabiliriz..

 

[udentr2002]

mesleki üstadım

açıklamanız için çok teşekkür ederim kısacık kod ile yapmanız harika birde böyle açıklamalar bence bizim kodların mantığını anlamamıza daha iyi olanak sağlıyor tekrar çok teşekkür ederim