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
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