veri aktarımları

[moresby]

benim örnekte verdiğim dosyada bir kaça sıkıntım var onları halletmeme yardımcı olursanız çok memmun olurum
1- öğrencilerin notlarını girdiğim zaman notları öğrencilerin isimlerinin karşısına nasıl yazabilirim
2-Combobox2 de öğrencinin adı nı seçtiğim zaman textboxlara ve aynı zamanda sayaf2 de not çizelgesine nasıl aktarabilirim
3-değişiklik yaptığım zaman nasıl akydedebilirim

şimdiden teşekkürler

 

[bedersu]

Merhaba,

Dosyanızda birkaç değişiklik yaptım.Bir inceleyin.Kafanıza takılan yerleri sorun,tekrar bakalım.

 

[moresby]

tşk
peki bu notları aynı anda sayfa2 deki yerlerine nasıl aktarabilirim?

 

[moresby]

Yardım edecek yokmu?

 

[iggydarsa]

Sayfa2'de yapmaya calistiginizi anlayamadim.
Belliki istatistiksel birsey yapmaya calismizsiniz ama ornegin Turkce ile 1.yazilinin kesistigi hucreye ne gibi bir bilginin aktarilmasini istiyorsunuz?

 

[moresby]

Yapmaya çalıştığım notlar kısmına herhangi bir öğrencinin notlarını çağırdığımzaman bu notlar sayfa2 ye gidip orday Türkçe 1 se türkçe bire Türkçe 2 varsa türkçe 2 ye yazsın

 

[iggydarsa]

Eminim for dongusuyle kolayca yapilabilir fakat su anda kisa yoldan aklima gelen su:

Formda Not bolumunde Kaydet butonuna su satirlari ekleyin

Worksheets("Sayfa2").Range("B2").Value = TextBox13
Worksheets("Sayfa2").Range("C2").Value = TextBox14
Worksheets("Sayfa2").Range("D2").Value = TextBox15
Worksheets("Sayfa2").Range("E2").Value = TextBox16
Worksheets("Sayfa2").Range("F2").Value = TextBox17
Worksheets("Sayfa2").Range("G2").Value = TextBox18

Worksheets("Sayfa2").Range("B3").Value = TextBox19
Worksheets("Sayfa2").Range("C3").Value = TextBox20
Worksheets("Sayfa2").Range("D3").Value = TextBox21
Worksheets("Sayfa2").Range("E3").Value = TextBox22
Worksheets("Sayfa2").Range("F3").Value = TextBox23
Worksheets("Sayfa2").Range("G3").Value = TextBox24

bu duzeni takip ederk boyle toplam 60 satir yaratbilirsiniz (her not icin)
Dedigim gibi kisa yolu vardir ama ben bilemiyorum.
Kodu yazdiktan sonra formdan Not bolumunu ordan ogrenciyi secin ve kaydete basin, notlar sayfa2'ye aktarilmis olacaktir

 

[moresby]

Teşekkürle
daha kısa yolunu yazan olursa daha makbule geçer genede teşkkürler

 

[bedersu]

Merhaba,
kusura bakmayın sorunuzu eksik yollamışım.ekteki dosya işinizi görür.ama Textbox 7 sıra olduğu için ben de 7 sınav üzerinden yaptım.Sayıyı siz değiştirebilirsiniz.

 

[veyselemre]

Set sh2 = Sheets("sayfa2")
For x = 13 To 18
sh2.Cells(2, x - 11) = Controls("textbox" & x)
sh2.Cells(3, x - 11) = Controls("textbox" & x + 6)
Next

 

[moresby]

Çok teşekkür ederim
birde bir textboxa sadece sayı yada sadece metin girilmesini nasıl sağlayabiliriz
tşk

 

[veyselemre]

textbox1 'e sadece rakam
textbox2 'e sadece harf
girebilirsiniz

 

[moresby]

İyide nasıl sadece rakaym yada sadece harf girebiliriz ben onu öğrenmek istiyorum

 

[moresby]

Tşk ederim dosyayı yeni gördüm demin görünmüyordu

 

[moresby]

Verili sayı olarak görememe sorunu

Userformdan ekcele aktarılan sayısal değerler sayı olarak görünmüyor buda grafiğimizi çalıştırmıyor bu değerleri her zaman yada otomatik olarak sayı nasıl gösterebiliriz Hücreleri biçimlendirmeden sayıya çeviriyoruz fakat tekrar sayı aktarıldığında metin olarak görüyor

 

[bedersu]

merhaba,

Kullandığınız hücreyi sayı olarak biçimlendirmeyi,verileri aktarırken kullandığınız kodlara eklerseniz sorun olmaz:

Selection.NumberFormat = "0"

gibi.