Kaydet Makrosunda düzeltme

[airborne]

s.a.

ekli örnek dosyada kaydet butonuna basınca textbox9 değerini bir türlü sayfaya aktaramadım. Kayıt düzeltmede çalışıyor. Yardımlarınız için şimdiden teşekkür ederim.

Selametle..................

indirme linki : http://s6.dosya.tc/server2/d8hrkw/Kitap1.xls.html

 

[Orion1]

Kırmızı satırı ekledim.

Private Sub Kaydet_Click()
Dim say As Integer
say = WorksheetFunction.CountA(Range("D:D")) + 1
Cells(say, 1).Value = TextBox1.Value
Cells(say, 2).Value = TextBox2.Value
Cells(say, 3).Value = TextBox3.Value * 1
Cells(say, 4).Value = TextBox4.Value
Cells(say, 5).Value = TextBox5.Value
Cells(say, 6).Value = ComboBox1.Value
Cells(say, 7).Value = TextBox7.Value
Cells(say, 8).Value = TextBox6.Value
Cells(say, 9).Value = TextBox8.Value
Cells(say, 10).Value = TextBox12.Value
Cells(say, 11).Value = TextBox11.Value
Cells(say, 12).Value = TextBox14.Value
Cells(say, 13).Value = TextBox13.Value
ActiveCell.Offset(0, 10) = "657 Sayılı Devlet Memurları Kanunu'nun" & " " & ComboBox5 & TextBox9.Value & " " & "maddesi uyarınca" & " " & _
TextBox16 & " " & ComboBox4 & " " & "Cezası"
Cells(say, 15).Value = TextBox10.Value
Cells(say, 16).Value = TextBox16.Value
Cells(say, 17).Value = TextBox17.Value
Cells(say, 18).Value = ComboBox2.Value
Cells(say, 19).Value = ComboBox3.Value
Cells(say, 20).Value = ComboBox4.Value
Cells(say, 21).Value = ComboBox5.Value
[B][COLOR="Red"]Cells(say, 22).Value = TextBox9.Value[/COLOR][/B]
Call CommandButton5_Click
End Sub

 

[airborne]

s.a.

Cells(say, 14).Value = "657 Sayılı Devlet Memurları Kanunu'nun" & " " & ComboBox5 & TextBox9.Value & " " & "maddesi uyarınca" & " " & _
TextBox16 & " " & ComboBox4 & " " & "Cezası"

olarak düzeltmem gerekiyormuş. üstad.

Cevabın ilham oldu Allah Razı olsun

 

[Orion1]

Rica ederim.
İyi çalışmalar.