merhabalar
aşağıdaki kodlarla sayfaya veri girişi yapıyorum. verilerin çoğunluğu sayı ve o sayıları =ETOPLA(ders_dağıtım_!B8:B126;"türkçe";ders_dağıtım_!D8
126) fonksiyonu ile ilgili yerlere toplatıyorum.ama textlerle sayfaya kaydederken metin biçiminde sakladığı için etopla fonksiyonu sayıları toplayamıyor.haliyle 0 "sıfır" değeri veriyor.sayfadaki hücreleri sayı olarak biçimlendirmem bile birşeyi değiştirmiyor.verileri sayı olarak nasıl kaydedebilirim bunu beceremedim. yardımcı olacaklara şimdiden teşekkürler.
Private Sub CommandButton2_Click()
Sheets("ders_dağıtım_").Select
Range("a7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ComboBox1
ActiveCell.Offset(1, 0) = TextBox48
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(1, 3) = TextBox4
ActiveCell.Offset(0, 4) = TextBox5
ActiveCell.Offset(1, 4) = TextBox6
ActiveCell.Offset(0, 5) = TextBox7
ActiveCell.Offset(1, 5) = TextBox8
ActiveCell.Offset(0, 6) = TextBox9
ActiveCell.Offset(1, 6) = TextBox10
ActiveCell.Offset(0, 7) = TextBox11
ActiveCell.Offset(1, 7) = TextBox12
ActiveCell.Offset(0, 8) = TextBox13
ActiveCell.Offset(1, 8) = TextBox14
ActiveCell.Offset(0, 9) = TextBox15
ActiveCell.Offset(1, 9) = TextBox16
ActiveCell.Offset(0, 10) = TextBox17
ActiveCell.Offset(1, 10) = TextBox18
ActiveCell.Offset(0, 11) = TextBox19
ActiveCell.Offset(1, 11) = TextBox20
ActiveCell.Offset(0, 12) = TextBox21
ActiveCell.Offset(1, 12) = TextBox22
ActiveCell.Offset(0, 13) = TextBox23
ActiveCell.Offset(1, 13) = TextBox24
End Sub
aşağıdaki kodlarla sayfaya veri girişi yapıyorum. verilerin çoğunluğu sayı ve o sayıları =ETOPLA(ders_dağıtım_!B8:B126;"türkçe";ders_dağıtım_!D8
Private Sub CommandButton2_Click()
Sheets("ders_dağıtım_").Select
Range("a7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ComboBox1
ActiveCell.Offset(1, 0) = TextBox48
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(1, 3) = TextBox4
ActiveCell.Offset(0, 4) = TextBox5
ActiveCell.Offset(1, 4) = TextBox6
ActiveCell.Offset(0, 5) = TextBox7
ActiveCell.Offset(1, 5) = TextBox8
ActiveCell.Offset(0, 6) = TextBox9
ActiveCell.Offset(1, 6) = TextBox10
ActiveCell.Offset(0, 7) = TextBox11
ActiveCell.Offset(1, 7) = TextBox12
ActiveCell.Offset(0, 8) = TextBox13
ActiveCell.Offset(1, 8) = TextBox14
ActiveCell.Offset(0, 9) = TextBox15
ActiveCell.Offset(1, 9) = TextBox16
ActiveCell.Offset(0, 10) = TextBox17
ActiveCell.Offset(1, 10) = TextBox18
ActiveCell.Offset(0, 11) = TextBox19
ActiveCell.Offset(1, 11) = TextBox20
ActiveCell.Offset(0, 12) = TextBox21
ActiveCell.Offset(1, 12) = TextBox22
ActiveCell.Offset(0, 13) = TextBox23
ActiveCell.Offset(1, 13) = TextBox24
End Sub