KAYDET

[MES_ELE]

ARKADAÞLAR AÞAÐIDAKİ MAKRO FORMÜLÜNDE NERDE HATA YAPIYORUM BİLMİYİYORUM ; USER FORM3 DEKİ TEXTBOX10-11-12-13 E YAZDIKLARIMI DÃ?KÜM SAYFASI J2 SUTUNUNDAN M20 ARALIÐINA BİRER BİRER KAYDETMESİNİ İSTİYORUM OLMUYOR YARDIMCI OLURMUSUNUJ....?



Private Sub CommandButton1_Click()
Dim deneme As Integer
deneme = Application.CountA(Sheets("DÃ?KÜM").Columns("J")) + 1
sat = WorksheetFunction.CountA(Sheets("DÃ?KÜM").[J2:J65536]) + 2
say = 0
For no = 1 To 4
Sheets("DÃ?KÜM").Cells(deneme, no) = UserForm3.Controls("TextBox" & no).Value
If no = 2 Or no = 4 Then
say = say + 1
GoTo 4
End If
Sheets("DÃ?KÜM").Cells(sat, no + 1 - say) = UserForm3.Controls("TextBox" & no).Value
4 UserForm3.Controls("Textbox" & no) = ""
Next no
End Sub


Private Sub TextBox10_Change()
On Error Resume Next
TextBox10 = Evaluate("=büyükharf(""" & TextBox10 & """)")
TextBox10 = Evaluate("=upper(""" & TextBox10 & """)")
TextBox10 = StrConv(TextBox10, vbUpperCase)
End Sub

Private Sub TextBox11_Change()
On Error Resume Next
TextBox11 = Evaluate("=büyükharf(""" & TextBox11 & """)")
TextBox11 = Evaluate("=upper(""" & TextBox11 & """)")
TextBox11 = StrConv(TextBox11, vbUpperCase)
End Sub

Private Sub TextBox12_Change()
On Error Resume Next
TextBox12 = Evaluate("=büyükharf(""" & TextBox12 & """)")
TextBox12 = Evaluate("=upper(""" & TextBox12 & """)")
TextBox12 = StrConv(TextBox12, vbUpperCase)
End Sub

Private Sub TextBox13_Change()
On Error Resume Next
TextBox13 = Evaluate("=büyükharf(""" & TextBox13 & """)")
TextBox13 = Evaluate("=upper(""" & TextBox13 & """)")
TextBox13 = StrConv(TextBox13, vbUpperCase)
End Sub

 

[Levent Menteşoğlu]

Commandbuttona yazdığınız kodları aşağıdaki ile değiştirerek deneyin.

[vb:1:1e211b2ebc]Private Sub CommandButton1_Click()
Dim deneme As Integer
deneme = WorksheetFunction.CountA(Sheets("DÃ?KÜM").[J2:J65536]) + 2
For no = 10 To 14
Sheets("DÃ?KÜM").Cells(deneme, no) = UserForm3.Controls("TextBox" & no).Value
UserForm3.Controls("Textbox" & no) = ""
Next no
End Sub
[/vb:1:1e211b2ebc]

 

[MES_ELE]

leventm, levent bey gönderdiğiniz kodu yazdım fakat kaydederken hata veriyor. ne yapmalıyım

 

[MES_ELE]

levent bey gönderdiğiniz kodu yazdım fakat kaydederken hata veriyor. ne yapmalıyım
_________________


Private Sub CommandButton1_Click()
Dim deneme As Integer
deneme = WorksheetFunction.CountA(Sheets("DÃ?KÜM").[J2:J65536]) + 2
For no = 10 To 14
Sheets("DÃ?KÜM").Cells(deneme, no) = UserForm3.Controls("TextBox" & no).Value
UserForm3.Controls("Textbox" & no) = ""
Next no
End Sub