textboxtaki degeri combobox taki seçilen degere bölüp sayfaya aktarmak

[fedeal]

textboxtaki degeri combobox taki seçilen degere bölüp sayfaya aktarmak istiyorum. textboxtaki deger örnegin 1000 ise combobox 4 secilmişse son boş b sütünuna 250, c sütununa 250 , d sütununa 250 , e sütununa 250 ; deger 1000 combobox 5 ise b 200 , c200 ,d 200 , e200 , f200 olarak aktarmasını istiyorum. birde combobox1 de seçilen sayfaya verileri göndermek mümkünmü? yardımlarınız için şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub
Private Sub CommandButton1_Click()
Dim son As Integer
son = Cells(65336, "b").End(xlUp).Row + 1
Do While ComboBox2 = 5
Cells(son, "b") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "c") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "d") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "e") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "f") = Val(TextBox1) / Val(ComboBox2)
Exit Do
Loop
Cells(son, "b") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "c") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "d") = Val(TextBox1) / Val(ComboBox2)
Cells(son, "e") = Val(TextBox1) / Val(ComboBox2)
End Sub

 

[fedeal]

hocam cevabınız bir harika çok teşekkür ederim, bir şeyler uyarlıyabilirmiyim diye bir deneme yaptım beceremedim soruyu sanırım yalnış yazdım combobox2 ye yazılan degere bölünecek rakam fakat 12 ye bülünürse 12 sütuna yazılacak 11 e bülünürse 11 sütuna mümkünmü?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim son, sut As Integer
son = Cells(65336, "b").End(xlUp).Row + 1
For sut = 1 To ComboBox2
Cells(son, sut + 1) = Val(TextBox1) / Val(ComboBox2)
Next
End Sub

 

[fedeal]

çok teşekkür ederim emeginize saglık

 

[N.Ziya Hiçdurmaz]

Bir şey değil sayın fedeal