Deneyiniz doğru sonuç verecek mi?
Dim arr
arr = Array("TextBox3", "TextBox4", "TextBox5", "TextBox7", "TextBox9", "TextBox11", "TextBox8")
For i = 3 To 10
If Me.Controls(arr(i - 3)) = "" Then
ActiveCell.Offset(0, i).Value.ClearContents
Else
ActiveCell.Offset(0, i).Value = CDbl(Me.Controls(arr(i - 3)))
End If
NextYıkardaki kodu ekledim düğerlerini silip.
Private Sub CommandButton12_Click()
Dim say As Integer
If islemYapma = True Then Exit Sub
'If TextBox5.Value & TextBox6.Value & TextBox8.Value & TextBox85.Value & TextBox86.Value & TextBox88.Value = "" Then
ActiveSheet.Unprotect "4455"
var:
GIRIS = InputBoxDK("ÞÝFRE GÝRÝÞÝ.", "ÞÝFRE PENCERESÝ", "") ''InputBox a parola maskesi ba?y devacy modülde
sifre = "111" ' Þifrenizi buraya tanymlayynyz.
If GIRIS = "" Then
MsgBox "ÝÞLEM ÝPTAL EDÝLDÝ"
ActiveSheet.Protect "4455"
Exit Sub
End If
If GIRIS <> sifre Then
MsgBox "ÞÝFRE YANLIÞ"
say = say + 1
If say = 5 Then Exit Sub
GoTo var
Exit Sub
End If
MsgBox "KAYITLAR DEÐÝÞTÝRÝLMÝÞTÝR." 'InputBox a parola maskesi sonu
satýr = ActiveCell.Row
ListBox1.RowSource = ""
On Error Resume Next
ActiveSheet.Unprotect "4455"
ActiveCell.Offset(0, 1).Value = CDate(TextBox1.Value)
ActiveCell.Offset(0, 2).Value = TextBox2
Dim i As Byte
Dim arr
arr = Array("TextBox3", "TextBox4", "TextBox5", "TextBox7", "TextBox9", "TextBox11", "TextBox8")
For i = 3 To 10
If Me.Controls(arr(i - 3)) = "" Then
ActiveCell.Offset(0, i).clearcontents
Else
ActiveCell.Offset(0, i).Value = CDbl(Me.Controls(arr(i - 3)))
End If
Next
On Error GoTo 0
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [A65536].End(3).Row
Range("A65535").End(xlUp).Offset(1, 0).Select
ThisWorkbook.Save
TextBox1.SetFocus
'Unload Me
'UserForm1.Show
'Exit For
'End If
For i = 2 To 11
Me.Controls("TextBox" & i) = Empty
Next
Me.ComboBox3 = Empty
' toplamlar Makro sonu
ActiveSheet.Protect "4455"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
TextBox1.Text = [L7]
TextBox28.Text = [M1]
UserForm_Initialize
ListBox1.ListIndex = ListBox1.ListCount - 1 'ListBoxýn son satýrýna gider.'
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider
TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih
'Else
'MsgBox "...!!!.LÜTFEN PERSONEL ÖDEMELERÝ VEYA TEDARÝKÇÝLER ÝLE BÝLGÝLERÝ GÝRÝNÝZ, MESAÝ BÝLGÝLERÝNÝ GÝRMEYÝNÝZ.!!!...", vbInformation
'End If
End Sub